VisualBasic程序设计讲义第5章循环结构程序设计

1、第5章循环结构程序设计5.1循环结构程序设计的概念实际的数据处理中，常需要进行一些大量重复的操作如求：1+2+3+ +n1!+2!+3!+ .+n!这些操作都可有用循环结构实现VB中有多种循环结构，最常用的有 Do丄oop结构和For.Next结构5.2 DoLoop语句了/循环休、1继续循环的条件DO循环的格式无条件循环DO循环体继续循环的条件循环体LOOP当循环前测试型DO WHILE 继续循环的条件循环体LOOP当循环后测试型终止循环条件循环体循环休DO循环体LOOP WHILE 继续循环的条件直到循环前测试DO UNTIL 终止循环的条件循环体LOOP直到循环后测试型DO循环体LOOP

2、 UNTIL 终止循环的条件另外可以用EXIT DO语句终止循环例(p94-1.vbp)用exit do退出循环操作Private Sub Comma nd1_Click()Dim Sum As Sin gle, x As Si ngleSum = 0Dox = Val(I nputBox("e nter a value")If x = 0 Then Exit DoSum = Sum + xPrin t "sum=" SumLoopEnd Sub例 5-1(P95-1.VBP)计算 1+2+3+ .+100可以用当循环来实现。Private Sub Co

3、mma nd1_Click()'当循环Dim s As In teger, n As In tegers = 0: n = 1Do While n = 100s = s + nn = n + 1LoopLabel2.Capti on = "1+2+3+.+100=" & sEnd Sub循环体终止循环条件n1当n=100s0直到口100s-s+nnn+1输出sPrivate Sub Comma nd2_Click()'直到循环Dim s As In teger, n As In tegers = 0: n = 1Do Un til n > 10

4、0s = s + nn = n + 1LoopLabel2.Caption = "1+2+3+.+100=" & s & "(直到循环)"End Sub1、 2、 3、100，试计算其累加和Private Sub Form_Load()Label1.Caption ="今有 100 个数:Label2.Captio n =""Comma nd1.Captio n = "&C计算"End Sub例5-2(p96-1.vbp)判断一个正整数是否是素数。选用当循环。Private Sub

5、 Comma nd1_Click()Dim n As Integer, i As Integer, a As StringSelect Case Val(Text1.Text)Case Is < 3MsgBox "请输入一个大于 2 的整数！ ", vbInformation + vbOKOnly," 注意"Case Is > 2147483647MsgBox "此数太大！ ", vbInformation + vbOKOnly," 注意"Case Elsen = Val (Text1.Text)s =

6、 0: i = 2Do While i <= Sqr( n) And s = 0 If n Mod i = 0 The ns = 1Elsei = i + 1End IfLoopIf s = 0 The na ="是一个素数”Else输入一个正整数nI2? s0 （s为整除标志）当I二 Vn and s二0如果 n mod 1=0-真SlT _T n 弔 x|请输入一个正整数:绸J断素数997是一个素数a ="不是一个素数"End IfLabell.Caption = Str(n) & aEnd SelectTextl.SetFocusEnd Sub

7、例5-3(p97-1.vbp)计算n。计算公式:分析:分子为2保持不变若第n项的分母为p”，则第n+1项的分母为p”“ = . 2 p” 第1项除外，第2项的分母为 20，p的初值为0若前n项的乘积为sn，则前n+1项乘积为s计2SnPni输入小数点后面有效数字位数mt"-Spsqr(2+p)直到Itp|<0. lin输岀周率pi二s第1项的乘积为2，s的初值为2 通过前后两个乘积的差，来控制循 环。从而得流程图：Private Sub Comma nd1_Click()Dim m As Integer, p As Double, s As DoubleDim pi As Do

8、uble, f As Stri ng , t As Doublem = Val(Text1.Text)p = 0: s = 2Dot = s: p = Sqr(2 + p): s = s * 2 / p Loop Until Abs(t - s) < 0.1 八 m f = String(m - 1, "#")Text2.Text = Format(s, "0." & f) Text1.SetFocusEnd Sub例5-4输入两个正整数，求它们的最大公约数（P98-VBP。用辗转相除法，m n是两个正整数,r是余数，用直到循环操作的流程图

9、： 注：若m<n第一次作除法时r=m,第二作除法就会正常进行。Private Sub Comma nd1_Click（）Dim m As Integer, n As Integer, r As Integerm = Val（Text1.Text）n = Val（Text2.Text）输入整数 n注：叫11不能同时为0rm/n的余数除数作被除数）n-r（余数作除数直到工二0输岀最后一次作除法的除数mIf n * m = 0 The nMsgBox "两个数都不能为 0 ! “"Exit SubEnd IfDor = m Mod nm = nn = rLoop Un ti

10、l r = 0Text3.Text = mEnd Sub5.3 For Next 语句FOR循环结构一一计数循环FOR-NEXT循环结构格式FOR循环变量=循环变量初值TO循环变量终值STEP循环变量增量 循环体NEXT循环变量FOR-NEXT循环结构由三部分组成：FOR语句：即循环起始语句（又称为循环说明语句），说明循环变量的初值、 增量（步长）和终值，实现对循环次数的控制，如上例中的i便是循环变量。循环体：给出循环操作语句组或程序段 NEXT语句：即循环终端语句，给 出了循环操作结束的位置，每次执行到 next语句，循环变量都按步长增值。 注意：FOR语句与NEXT语句必须成对出现，缺一不

11、可； FOR语句必须在NEXT语句之前； FOR语句中的循环变量与 NEXT语句中的循环变量必须为同一变量 如果步长为+1,则“STEP何省略.FOR-NEXT循环的执行过程循环变量取得初值将循环变量的当前值与终值比较： 如果循环变量的当前值没有超过终值，程序执行循环体中的操作，遇next语句 后循环变量按步长增值，然后又回到FOR语句，重复循环变量的当前值与终值比 较的操作； 如果循环变量超过终值,程序终止循环，跳过循环体，执行next语句的后继语 句.说明：注意程序的终止条件是循环变量的值超过终值”，而不是循环变量的值等于 终值”。如上例中，当i=100,执行了 s=s+i后，程序又回到f

12、or语句，i=i+1,i=101, 这时循环变量的值超过了终值，程序终止循环，执行 next之后的语句。当循环体内没有对循环变量进行修改时，循环的次数可以直接从根据循环变 量的初值、终值和步长计算出来：循环次数=|循环变量终值循环变量初值1|步长|注意：如果在循环体中对循环变量进行了修改，上述公式将不成立。循环变量应尽量使用整型变量，以免出现误差。因为实型变量在存储和运算 过程中会出现误差，至使循环次数多一次或少一次。循环变量初值和终值可以是正值、负值或零。步长可以是正值或负值。注意:循环变量超过终值，是指沿循环变量变化的方向超过终值;所以当步长为正 时,循环变量必须大于终值才终止循环；当步长

13、为负时，循环变量必须小于终值才 终止循环.当步长为零时，循环永不终止，循环变量可以在循环体中引用，也可以不引用，由程序需要定(7)EXIT FOR 语句 可以实现提前终止for-next循环。FOR i = 1 TO 100sum = sum + i * iIF sum >= 100 THEN EXIT FORNEXT iPRINT sum 例5-5利用for循环结构显示1000以内的所有能被37整除的自然数字符串变量忍一Sri 从 1 到 1000如果n mod 37=0真&str(n)输 Feral输出数字串忍Private Sub Comma nd1_Click() Dim

14、 a As String, n As In teger a =""For n = 1 To 1000If n Mod 37 = 0 The na = a & Str( n) & vbCrLf End Ifill3148I185222259296333370创按开始按钮 ,可以在文 本框中显示 所有1000以内 能被37整NextText1.Text = aEnd Sub注：Text1属性 Multiline 设置为 True,属性 ScrollBars设置为2 (Vertical),运行时才会出现 垂直滚动条，且这两个属性都只能在窗体设计时 设置，在运行时这

15、两个属性是只读的，不能更改。例5-6(p101-1.vbp)求从1000到1100之间的所有素数程序流程如右图：是一个用fornext实现的双重循环， 外层循环依次生成1000到1100之间的 各个数，内层循环对每一个数进行测 试，测试后退出内层循环后判断：若s=0，是素数，输出该数；若s<>0，不是素数，n自动加1，进入 下一轮外循环，准备测试下一个数Private Sub Comma nd1_Click()Dim a As String, n As In tegerDim i As In teger, s As In tegera =""For n = 10

16、01 To 1100 Step 2s = 0For i = 2 To Sqr( n)If n Mod i = 0 The ns = 1Exit ForEnd IfNextIf s = 0 The n a = a & Str( n) & vbCrLfNextText1.Text = aEnd Sub字符串变量乱一"d 从1000到 1100(整除标志)i 从 2 到 sqr (n)n mod i=0真E退出内层循环s=0真输出n冠 Foral10091013101910211031103310391049按开始按钮， 可以在文本框 中显示所有从1000到1100之 间的

17、素数5.4列表框与组合框列表框(ListBox):是用户可以从中进行选择的滚动列表组合框(ComboBox)将文本框和列表框的功能结合在一起。用户可通过在组合框中输入文本来选定项目，也可从列表中选定项目列表框李宁4华梅 伟春红 张王关Z1筍列表框示例-Bra列表中 的第一项是 ListI ndex=0 , ListCount 始终比最大的ListBox控件显示项目列表，从其中可以选择一项或多项。如果项目总数超过了可显示的项目数，就自动在ListBox控件上 添加滚动条1属性基本属性丄istBox最常用的属性有 Name、Enabled、Visiblet禾口 Index(控件数组中用)等.Lis

18、t属性：返回或设置控件的列表部分的项目object .List (index) = string object对象表达式，一个 ListBox对象。In dex列表中具体某一项目的号码。stri ng子符串表达式，指定列表项目。列表是一个字符串数组，数组的每一项都是一列表项目，在设计时可以通过属 性浏览器得到。List数组的下标是从0开始的，也就是说，第一个元素的下标是0可在设计状态添置项目，用Ctrl+Enter回车换行参见例(p102-1.vbp)。Listindex属性：返回或设置控件中当前选择项目的索引在窗体设计时不可 用,只能在程序中设置和引用。说明表达式List(List1.Lis

19、tIndex)返回当前选择项目的字符串ListI ndex 值大 1。对于可以做多重选择的控件，该属性的行为取决 于所选择项目的个数。如果只选择了一个项目， Listindex返回该项目的 索引。在多重选择中(MultiSelect=1/2) , Listindex返回包含在焦点矩形内的项目的索引，而不管该项目是否被选。例(P102-1.VBP)Private Sub List1_Click()Textl = List1.List(0)Text2 = List1. List(List1. Listindex)End SubListCount属性：返回控件的列表部分项目的个数。该属性只能在程序中

20、设 置和引用.列表中最后一个元素的下标=ListCount-1Selected属性:返回或设置在ListBox控件中的一个项的选择状态。该属性 是一个与List属性一样、有相同项数的布尔值数组。在窗体设计时是不可用 的。格式：objectSelected(ndex) = booleanObject对象表达式，其值是一个 ListBox对象。in dex控件中项的索引号。Boolean 个用来指定项是否被选中的布尔表达式其值为：True表示项被选中,False (缺省值)表示项没有被选中。说明：此属性对能够复选是尤其有用的。可以快速检查在列表中哪些项已被选 中。也可以从代码中使用该属性选中或取消

21、选中列表中的一些项。Sorted属性:返回一个值，指定控件的元素是否自动按字母表顺序排序，该属性只能在设计状态设置当值为：True列表中的项目按字符码顺序排序。False (缺省值)列表中的项目不按字母表顺序排序。Text属性：ListBox控件返回列表框中诜择的项目：返回值总与表达式 list(listlndex)的返冋值相同。只能在程序中设置和引用.在运行时为只读。可以 用Text属性来确定当前选择的项目。(p102-2.vbp)Private Sub List1_Click()Textl = List1.List(0)Text2 = Listl.TextEnd SubMultiSelec

22、t属性:返回或设置一个值，该值指示 是否能够在ListBox控件中进行复选以及如何进行复选。在运行时是只读的0 （缺省值）不允许复选。1简单复选。鼠标单击或按下 SPACEBAR （空格键）在列表中选中或取消 选中项。（箭头键移动焦点。）2扩展复选。按下 SHIFT并单击鼠标或按下 SHIFT以及一个箭头键（上 箭头、下箭头、左箭头、和右箭头）将在以前选中项的基础上扩展选择到当前 选中项。按下 CTRL并单击鼠标来在列表中选中或取消选中项Style属性值为:常数值描述VbListBoxStandard0（缺省值）标准的。ListBox控件按它在 Visual Basic老版本中的样 子显示；即

23、，象是文本项的列表。VbListBoxCheckbox1复选框。在 ListBox控件中，每一个文本项的边上都有一个复选框。在ListBox中可以选择多项。2.方法Additem方法 用于将项目添加到 ListBox控件，语法格式:objectAddItem item, indexItem必需的。字符串表达式，它用来指定添加到该对象的项目。Index可选的。是整数，它用来指定新项目或行在该对象中的位置。对于ListBox控件的首项，index为0。说明：如果所给出的index值有效，则item将放置在object中相应的位置。 如果省略index，当Sorted属性设置为 True 时，ite

24、m 将添加到恰当的排 序位置，当Sorted属性设置为False时，item将添加到列表的结尾Removeitem方法:用以从 ListBox控件中删除一项。语法格式：objectRemoveltem indexobject必需的。一个对象表达式，其值为应用于”列表中的一个ListBox对象。index必需的。一个整数，它表示要删除的项或行在对象中的位置。对于ListBox中的首项，in dex = 0。Clear方法:用于清除ListBox的内容。语法格式：object.Clearobject所在处代表一个对象表达式，其值为列表中的一个ListBox对象。例5-7(p102-3.vbp)用列

25、表框显示1000到1100之间的素数Private Sub Comma nd1_Click()10091013101910211031103310391049按开始按钮， 可以在文本框 中显不所有从1000到1100之 间的素数Dim n As In tegerDim i As In teger, s As In tegerFor n = 1001 To 1100 Step 2s = 0For i = 2 To Sqr( n)If n Mod i = 0 The ns = 1Exit ForEnd IfNextIf s = 0 Then Listl.Addltem nNextEnd Sub例5

26、-8(p103-1.vbp)同构数是一个整数，它恰好出现在其平方的右端，例如5*5=25,25*25=125 ,即卩5和25都是同构数。求10000以内的同构数11从1到9999 (for循环)情况n (select选择,n为测试表达式)n*2 mod 10输出d, n*2n*2 mod 100输出儿n*2n"2 mod 1000输出叫iT2n2 mod 10000输出n, rT21 位同构数 n: n=n*n mod 102 位同构数 n: n=n*n mod 1003 位同构数 n: n=n*n mod 10004 位同构数 n: n=n*n mod 10000 可以用for循环

27、中嵌套select选择语句来实现，流程如图：Private Sub Comma nd1_Click()Dim n As LongFor n = 1 To 10000Select Case nCase n * n Mod 10List1.AddItem Format( n, ” ") & Format(n * n, ”)Case n * n Mod 100List1.AddItem Format( n, " ") & Format(n * n, "")Case n * n Mod 1000List1.AddItem Format(

28、 n, " ") & Format(n * n, "")Case n * n Mod 10000List1.AddItem Format( n, " ") & Format(n * n, "")152563625625765776376141376625390625J按开始按辺， 可以奁列表框 中显S10000以 内所有同构数同构数nn的平方End SelectNextEnd Sub例5-9算术练习程序(P104-1 .VBP )。出题部分由窗体的Activate事件过程实现Activate事件当一

29、个窗体对象成为活动窗口时发生。程序中用Forml.Tag来存放生成的题目数。答题部分通过文本框的KeyPress事件过程实现。程序中用Listl.Tag来存放完成 的题目数。注意：窗体设计时或初始化控件时必须把程序使用的Tag赋值为0,否则编译时会报类型不匹配，因为Tag默认为字符串型。由于属性 Tag是附加在各控件 的，在这里相当于窗体文件(模块)级的变量,共窗体内各过程共享.Private Sub Form_Load()初始化控件Labell.Captio n =""Label1.BackStyle = 1Label1.BackColor = QBColor(15)Te

30、xt1.Text =""Frame1.Captio n =""Label2.Captio n =""Label3.Captio n =""Command1.Caption =" 关闭(&C)"Image1.Picture = LoadPicture("D:notevbasicVB3EXAMPLEPOINT02.ICO")Form1.Tag = 0 '强制使Tag属性为数值List1.Tag = 0End SubPrivate Sub Form_Activate

31、()'出题过程Dim a As In teger, b As In teger, p As In tegerRan domize (Time)a = In t(10 + 90 * Rnd)b = In t(10 + 90 * Rnd)p = Int(2 * Rnd)Select Case pCase 0Label1.Caption = a & "+" & b & "="Text1.Tag = a + bCase 1Label1.Capti on = a & "-" & b & &

32、quot;="Textl.Tag = a - bEnd SelectForml.Tag = Forml.Tag + 1Textl.SelStart = 0Textl.Text =""End SubPrivate Sub Text1_KeyPress(KeyAscii As In teger)'答题过程Dim frm As Strin g, item As StringIf KeyAscii = 13 The nfrm = ”!"If Val (T ext1.Text) = Text1.Tag The nitem = Format(Label1.C

33、aptio n & Text1.Text, frm) & " V"'生成一个列表项List1.Tag = List1.Tag + "1"Elseitem = Format(Label1.Caption & Text1.Text, frm) & " x "End IfList1.AddItem item, 0Label2.Caption ="共"& Form1.Tag & "题，"& Chr(13) & "正确率为：

34、"Label3.Capti on = Format(List1.Tag / Form1.Tag, "#0.0#%")Form_ActivateEnd IfEnd Sub选择和移动数据例 5-10(P105-VBP)相互移动。注：listbox的style.Multiselect属性只能在窗体设计时完成，在程序运行时是只 读的，不能更改。本例中：List1.Style=1(带复选框)，List2.Multiselect=2(扩展复 选，即多项选择)，列表框的其它属性都取默认值。Private Sub Form_Load()初始化控件Label1.Caption =&

35、quot;经营商品"Label2.Caption ="需采购商品"Label3.Caption = "Ctrl或Shift+鼠标左键可以在右框中选择多项数据”Command1.Caption =" 选项右移"Command2.Caption =" 全部右移"Command3.Caption =" 选项左移"Command4.Caption =" 全部左移"Listl.Addltem "电冰箱"Listl.Addltem "洗衣机"Lis

36、tl.Addltem "彩色电视机"Listl.Addltem "组合音响"Listl.Addltem "影碟机"Listl.Addltem "电水壶"Listl.Addltem "饮水机"Listl.Addltem "微波炉"Listl.Addltem "照相机"Listl.Addltem "计算机"Listl.Addltem "电话机"End SubPrivate Sub Comma nd1_Click()

37、9;选项右移Dim i As In tegeri = 0Do While i < List1.ListCo untIf List1.Selected(i) = True ThenList2.AddItem List1 丄 ist(i)List1.RemoveItem (i)Elsei = i + 1End IfLoopEnd SubPrivate Sub Comma nd2_Click()'全部右移Dim i As In tegerFor i = 0 To List1.ListCou nt - 1List2.AddItem (List1. List(i)NextList1.Cle

38、arEnd SubPrivate Sub Comma nd3_Click()'选项左移Dim i As In tegeri = 0Do While i < List2.ListCo untIf List2.Selected(i) = True The n List1.Addltem (List2.List(i) List2.RemoveItem (i)Elsei = i + 1End IfLoopEnd SubPrivate Sub Comma nd4_Click()'全部左移Dim i As In tegerFor i = 0 To List2 丄 istCou nt

39、- 1List1.AddItem (List2.List(i)NextList2.ClearEnd Sub542 组合框组合框控件将文本框和列表框的功能结合在一起。有了这个控件，用户可通过 在组合框中输入文本来选定项目，也可从列表中选定项目。组合框向用户提供了供选择的列表。如果项目数超过了组合框能够显示的项目 数，控件上将自动出现滚动条。用户即可上下或左右滚动列表。 此外，组合框节省了窗体的空间。组合框的样式每种样式都可在设计时或运行时来设置，而且每种样式都Visual Basic常数来设置组合框的样式(Style)。有三种组合框样式。使用数值或相应的下拉式组合框简单组合框vbComboDro

40、pDow nvbComboSimple下拉式列表框vbComboDropDow nList卜拉式组合框 Jx|旨oral重庆交通学院在缺省设置(Style = 0)下，组合框为下拉式组框 在屏幕上只显示文本编辑框和一个下拉箭头。用户 可(象在文本框中一样)直接输入文本，也可单击 组合框右侧的附带箭头打开选项列表。选定某个选项后，将此选项插入到组合框顶端的文本部分中。当控件获得焦点时，也可按ALT+ DOWN ARROW 键打开列表。西"财e華I回田重庆交通学院 mi简单组合框(Style = 1 )将组合框Style属性 设置为1将指定一个简单的组合框，任何时候 都在其内显示列表。I

41、重庆商学院为显示列表框部分，必须将列表框绘制得足够 大。当选项数超过可显示的限度时将自动插入 一个垂直滚动条。用户可直接输入文本，也可从 列表中选择。象下拉式组合框一样，简单组合框也允许用户输入那些不在列表 中的选项。下拉式列表框(Style = 2 )下拉式列表框(Style = 2 )与正规列表框相似一它显示项目的列表，用户必须从中选择。但下拉式列表框与列表框的不同之处在于，除非单击框右侧的箭头，否则不显示列表。这种列表框 与下拉式组合框的主要差别在于，用户不能在列 表框中输入选项，而只能在列表中选择。当窗体 上的空间较少时，可使用这种类型的列表框。例(P107-1.VBP) ComboB

42、ox 的三种形式Private Sub Form_Load()Combo3.Text ="组合框样式0"Combo2.Text ="组合框样式1"'Combol.Text ="组合框样式2"End Sub注：过程中最后一句编译不能通过，因为下拉列表框的文本框部分是只读的， 不能写入新的数据项。注意：当组合框的样式为0或1,即为下拉式组合框和简单组合框时，在它的 列表框中选择的数据项，会立即在它的文本框中显示出来，在它的文本框中输入的数据，可以用语句：组合框名.Addltem 组合框名.Text,index添加到它的列表框中。下

43、拉列表框Style=2例5-11（P108-1.VBP）前面算术练习程序中的列表框改为组合框,在窗体设计 时，设置Style=2（DropdownList,下拉列表框），并增加一个重置按钮，可重复 练习。Private Sub Form_Load()'初始化控件Label1.Captio n =""Label1.BackStyle = 1Label1.BackColor = QBColor(15)Text1.Text =""Frame1.Captio n =""Label2.Captio n =""Labe

44、l3.Captio n =""Command1.Caption =" 关闭(&C)"Command2.Caption =" 重置(&R)"Image1.Picture =LoadPicture("D:notevbasicVB3EXAMPLEPOINT02.lCO")Form1.Tag = 0 '强制使Tag属性为数值Combo1.Tag = 0End Sub Foral重置（B）关闭（C）Private Sub Form_Activate()'出题过程Dim a As Integer

45、, b As Integer, p As IntegerRandomize (Time)a = Int(10 + 90 * Rnd)b = Int(10 + 90 * Rnd)p = Int(2 * Rnd)Select Case pCase 0Label1.Caption = a & "+" & b & "=" Text1.Tag = a + bCase 1 Label1.Caption = a & "-" & b & "="Text1.Tag = a - bEnd

46、 SelectForm1.Tag = Form1.Tag + 1Text1.SelStart = 0Text1.Text = ""End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer) 答题过程 Dim frm As String, item As StringIf KeyAscii = 13 Thenfrm = "!"生成一个列表项正确率为： "If Val(Text1.Text) = Text1.Tag Thenitem = Format(Label1.Capti on & Te

47、xtl.Text, frm) & " V Combo1.Tag = Combo1.Tag + 1Elseitem = Format(Label1.Capti on & Textl.Text, frm) & " x End IfCombo1.AddItem item, 0Combo1.ListIndex = 0Label2.Caption = " 共" & Form1.Tag & " 题，" & Chr(13) & "Label3.Caption = Format(Com

48、bo1.Tag / Form1.Tag, "#0.0#%") Form_ActivateEnd IfEnd SubPrivate Sub Command2_Click() 重置过程Forml.Tag = 0Combol.Tag = 0Combol.ClearLabel3.Caption ="欢迎重新开始！"Label2.Captio n =""Form_ActivateTextl.SetFocusEnd SubPrivate Sub Comma nd1_Click()Un load Me简单组合框Style=1End Sub例5-12(P109-1.VBP)简易抽奖机使用简单组合框，在窗体设计时设置Style=1(Simple Combo)Private Sub Form_Load() 初始控件Frame1.Caption = ”请输入参加抽奖的号码”Label1.Caption ="输入所有抽奖号码后，按开始按钮，将得到中奖号码Comma nd1.Captio n =" 开始"Command2.Caption = ”自动生成抽