制作一个双色球选号小软件可以通过多种编程语言和开发环境实现。以下是使用易语言和VB6.0两种方法的详细步骤：

使用易语言制作双色球选号工具

打开易语言v5.11 ，新建一个Windows窗口程序。

添加控件

添加2个按钮，分别命名为“按钮_选号”和“按钮_退出”。

添加1个文本框，命名为“编辑框_号码”。

编写代码

双击“按钮_选号”，添加以下代码：

```易语言

.版本 2

.子程序 _按钮_选号_被单击

局部变量 红球, 整数型, , "0"

局部变量 蓝球, 整数型, , "0"

局部变量 a, 整数型

局部变量 b, 整数型

局部变量 号码文本, 文本型

局部变量 h, 整数型

局部变量 l, 整数型

' 给数组加入成员.计次循环首 (33, a) 加入成员 (红球, a).计次循环尾 ()

随机生成6个红球号码

计次循环首 (6, )

置随机数种子 ()

h = 取随机数 (1, 取数组成员数 (红球))

号码文本 = 号码文本 + 到文本 (红球 [h]删除成员 (红球, h, ) .计次循环尾 ()

' 随机生成1个蓝球号码

置随机数种子 ()

l = 取随机数 (1, 取数组成员数 (蓝球))

' 把红球和蓝球输出到文本框

号码文本 = 号码文本 + “-” + 到文本 (蓝球 [l])

编辑框_号码.内容 = 号码文本

```

双击“按钮_退出”，添加以下代码：

```易语言

结束 ()

```

运行程序：

完成上述步骤后，运行程序即可生成随机的双色球号码并显示在文本框中。

使用VB6.0制作双色球选号器

打开VB6.0，新建一个标准EXE工程。

添加控件

添加1个Label控件，Caption属性为“双色球选号器”。

在Label下面画8个Label控件，用于显示红球号码。

添加1个ComboBox控件，用于存放选中的号码。

添加2个CommandButton控件，分别命名为“开始选号”和“退出”。

编写代码

双击“开始选号”按钮，添加以下代码：

```vb

Private Sub Command1_Click()

Dim a(5) As Integer

Dim b(2) As Integer

For i = 1 To 5

a(i) = Int(Rnd() * (35 - 1 + 1)) + 1

Next i

For i = 1 To 5

For j = i + 1 To 5

If a(i) < a(j) Then

T = a(i)

a(i) = a(j)

a(j) = T

End If

Next j

Next i

For i = 1 To 2

b(i) = Int(Rnd() * (12 - 1 + 1)) + 1

Next i

' 将红球和蓝球号码显示在Label控件中

For i = 1 To 5

Label1.Caption = Label1.Caption & a(i) & " "

Next i

Label2.Caption = "蓝球: " & b(1) & " " & b(2)

' 将选中的号码添加到ComboBox控件中

ComboBox1.Clear

ComboBox1.Add a(1)

ComboBox1.Add a(2)

ComboBox1.Add a(3)

ComboBox1.Add a(4)

ComboBox1.Add a(5)

ComboBox1.Add b(1)

ComboBox1.Add b(2)

End Sub

```

双击“退出”按钮，添加以下代码：

```vb

End

```

运行程序：

完成上述步骤后，