Simone如何用VB制作随机选号器
的有关信息介绍如下：
Visual Basic语言(以下简称VB）以其入门简单、语法易懂、可视化编程等诸多优点，虽然面世很早，但至今仍有很多人在用、在学。下面小编就以制作一个简单的大乐透彩票选号器为例，来带领要学习VB的童鞋快速掌握VB的编程方法。
首先打开VB程序，新建一个工程，如图所示。
这里我们选择“标准EXE”，单击“确定”按钮。
该软件的界面还是比较简洁的，左边是常用的工具箱，右边是相关的属性栏目。先把我们要制作的软件命名，如图，在“caption”后面输入“随机选号器”。
选择“commandbutton”工具，在目标区域用鼠标拖动画出一个按钮，在属性面板输入按钮上显示的文字。步骤如图中标识所示。
用“label”工具在图中2处画出区域，在3处输入要显示的文字。
用“textbox”工具在合适位置画出文本框区域，用来显示你选号的结果，如图所示。
用鼠标双击刚才插入的按钮，输入代码：
Private Sub Command1_Click()
Dim a(5) As Integer
Dim b(2) As Integer
For i = 1 To 5 a(i) = Int(Rnd() * (1 + (35 - 1))) + 1
For j = 1 To i - 1
If a(i) = a(j) Then i = i - 1
End If
Next
Next
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
Next
For i = 1 To 2 b(i) = Int(Rnd() * (1 + (12 - 1))) + 1
For j = 1 To i - 1
If b(i) = b(j) Then i = i - 1
End If
Next
Next
For i = 1 To 2
For j = i + 1 To 2
If b(i) < b(j) Then T = b(i): b(i) = b(j): b(j) = T
End If
Next
Next
Text1.Text = a(5) & " " & a(4) _ & " " & a(3) & " " & a(2) & " " & a(1) & " +" & b(2) & " " & b(1)
End Sub
单击“启动”按钮调试程序。有错误就需要修改，没有错误的话就可以保存了。
我们也可以输出为EXE文件，这样在没有安装VB程序的电脑上也可以运行。如图，我们选择“生成工程1.EXE”，选择保存的位置即可。自己试试吧。
