VB实验报告答案新

1、 Visual Basic程序设计基础实验1.1 常用标准控件（一）【实验目的与要求】1.掌握Visual Basic的启动与退出。2.熟悉Visual Basic的集成开发环境。3.掌握在窗体中放置控件的方法。4.掌握在“属性窗口”中设置控件属性的方法。5.掌握在“代码编辑器”窗口中输入程序代码的方法。6.掌握工具栏上启动按钮、结束按钮的使用方法。7.掌握标签、文本框、命令按钮、列表框等控件的使用方法。【实验内容与步骤】实验1.1 标签的使用(一)1.题目与要求请根据以下的要求设计Visual Basic应用程序（包括界面和代码）。在名称为Form1、标题为“标签”的窗体上画一个名称为Lab

2、el1的标签，并设置适当属性以满足以下要求：1)标签的内容为“计算机等级考试”；2)标签可根据显示内容自动调整其大小；3)标签带有边框，且标签内容显示为三号字。运行后的窗体如图1.1.1(a)所示。存盘时必须存放在C:VBSy01文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。图1.1.1(a)2.实验步骤1)界面设置在名称为Form1的窗体上放置一个标签控件Label1，如图1.1.1(b)所示；图1.1.1(b)2)属性设置表1.1.1 对象属性对 象属性名称属性值Form1Caption标签Label1Caption计算机等级考试AutoSizeTrueFont三号

3、BorderStyle13)执行程序单击工具栏上的启动按钮，执行程序，运行后窗体如图1.1.1(a)所示。4)保存文件存盘时必须存放在C:VBSy01文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。实验1.2 标签的使用(二)请根据以下的要求设计Visual Basic应用程序（包括界面和代码）。1.在名称为Form1的窗体上画一个名称为 Label1的标签，标签的长和高分别为2000、300，有边框，并利用属性窗口设置适当的属性，使其居中显示“等级考试”，并使标签的外观如图1.1.2所示。图1.1.22属性设置（请将表格补充完整）表1.1.2 对象属性对 象属性名称属性

4、值Label1Width2000Height300BorderStyle1Alignment2Caption等级考试3.存盘时必须存放在C:VBSy01文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。实验1.3 文本框的使用1.题目与要求请根据以下要求设计Visual Basic应用程序（包括界面和代码）。在名称为Form1的窗体上画两个文本框，名称分别为T1、T2，初始情况下都没有内容。请编写适当的事件过程，使得在运行时，在T1中输入的任何字符，立即显示在T2中（如图1.1.3所示）。程序中不得使用任何变量。存盘时必须放在C:VBSy01文件夹下，工程文件名为sjt3.

5、vbp，窗体文件名为sjt3.frm。图1.1.32.实验步骤1)界面设置在名称为Form1的窗体上放置两个文本框，如图1.1.3所示；2)属性设置表1.1.3 对象属性对 象属性名称属性值Text1NameT1TextText2NameT2Text3)完善程序代码Private Sub T1_Change() T2.Text = T1.Text End Sub4)执行程序单击工具栏上的启动按钮，执行程序，运行后输入abcdef，窗体如图1.1.3所示。5)保存文件存盘时必须存放在C:VBSy01文件夹下，工程文件名为sjt3.vbp，窗体文件名为sjt3.frm。实验1.4 命令按钮的使用(

6、一)请根据以下要求设计Visual Basic应用程序（包括界面和代码）。1.在名称为Form1的窗体上画一个名称为C1、标题为“变宽”的命令按钮，窗体标题为“改变按钮大小”。编写程序，使得单击命令按钮时，命令按钮水平方向的宽度增加100，程序运行后的窗体如图1.1.4所示。要求：程序中不得使用变量，每个事件过程中只能写一条语句。图1.1.42属性设置（请将表格补充完整）表1.1.4 对象属性对 象属性名称属性值Form1Caption改变按钮大小CommandButton1NameC1Caption变宽3.完善程序代码Private Sub C1_Click() C1.Width = C1.

7、Width + 100 End Sub4.存盘时必须存放在C:VBSy01文件夹下，工程文件名为sjt4.vbp，窗体文件名为sjt4.frm。实验1.5 命令按钮的使用(二)请根据以下的要求设计Visual Basic应用程序（包括界面和代码）。1.在名称为Form1的窗体上画一个名称为L1的标签，标题为“请确认”：再画两个命令按钮，名称分别为C1、C2，标题分别为“是”、“否”，高均为300、宽均为800。如图1.1.5所示。请在属性窗口中设置适当的属性满足以下要求：1)窗体标题为“确认”，窗体标题栏上不显示最大化和最小化按钮；2)在任何情况下，按回车键都相当于单击“是”按扭；按ESC键都

8、相当于单击“否”按扭。图1.1.52.属性设置（请将表格补充完整）表1.1.5 对象属性对 象属性名称属性值Form1Caption确认MaxButtonFalseMinButtonFalseLabel1NameL1Caption请确认CommandButton1NameC1Caption是Height300Width800DefaultTrueCommandButton2NameC2Caption否Height300Width800CancelTrue3存盘时必须存放在C:VBSy01文件夹下，工程文件名为sjt5.vbp，窗体文件名为sjt5.frm。实验1.6 列表框的使用请根据以下要求

9、设计Visual Basic应用程序（包括界面和代码）。1.在名称为Form1的窗体上画1个名称为Lablel1、标题为“列表框的使用”的标签。再画1个名称为List1的列表框，列表中含有5个表项，表项内容分别为“北京”、“山西”、“辽宁”、“浙江”和“广东”，并且可以在列表中同时选择多个表项。运行后的窗体如图1.1.6所示。图1.1.62.属性设置（请将表格补充完整）表1.1.6 对象属性对 象属性名称属性值Label1Caption列表框的使用List1List北京List山西List辽宁List浙江List广东MultiSelect13.存盘时必须存放在C:VBSy01文件夹下，工程文件

10、名为sjt6.vbp，窗体文件名为sjt6.frm。实验1.7 命令按钮与文本框的使用(一)请根据以下要求设计Visual Basic应用程序（包括界面和代码）。1.在名称为From1的窗体上画二个文本框，名称分别为Text1、Text2，都显示垂直滚动条和水平滚动条，都可以显示多行文本；再画一个命令按钮，名称为C1，标题为“复制”（如图1.1.7所示）。请编写适当的事件过程，使得在运行时，在Text1中输入文本后，单击“复制”按钮，就把Text1中的文本全部复制到Text2中，程序中不得使用任何变量。图1.1.72.属性设置（请将表格补充完整）表1.1.7 对象属性对 象属性名称属性值Tex

11、t1MultiLineTrueScrollBars3Text2MultiLineTrueScrollBars3CommandButton1NameC1Caption复制3.完善程序代码Private Sub C1_Click() Text2.Text = Text1.Text End Sub4.存盘时必须存放在C:VBSy01文件夹下，工程文件名为sjt7.vbp，窗体文件名为sjt7.frm。1.2 常用标准控件（二）【实验目的与要求】1.掌握选项按钮、复选框和框架的使用方法。2.掌握图像控件和图片框的使用方法。3.掌握水平滚动条和垂直滚动条的使用方法4.掌握图形控件的使用方法。5.掌握计时

12、器控件的使用方法。【实验内容与步骤】实验2.1 选项按钮的使用请根据以下要求设计Visual Basic应用程序（包括界面和代码）。1.在名称为Form1的窗体上画一个名称为Text1的文本框，画二个标题分别为“对齐方式”、“字体”，名称分别为Frame1、Frame2的框架；在Frame1框架中画三个单选按钮，标题分别为“左对齐”、“居中”、“右对齐”，名称分别为Option1、Option2 、Option3；在Frame2框架中画二个单选按钮，标题分别为“宋体”、“黑体”，名称分别为Option4、Option5。要求：编写五个单选按钮的Click事件过程，使程序运行时，单击这些单选按钮

13、，可以对文本框中的文字实现相应的操作（如图1.2.1所示）。注意：要求程序中不得使用变量，每个事件过程中只能写一条语句。图1.2.12.属性设置（请将表格补充完整）表1.2.1 对象属性对 象属性名称属性值Text1Text计算机等级考试Frame1Caption对齐方式Frame2Caption字体Option1Caption左对齐Option2Caption居中Option3Caption右对齐Option4Caption宋体Option5Caption黑体3.完善程序代码Private Sub Option1_Click() Text1.Alignment = 0 End SubPriv

14、ate Sub Option2_Click() Text1.Alignment = 2 End SubPrivate Sub Option3_Click() Text1.Alignment = 1 End SubPrivate Sub Option4_Click() Text1.FontName = 宋体 End SubPrivate Sub Option5_Click() Text1.FontName = 黑体 End Sub4.存盘时必须存放在C:VBSy02文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。实验2.2 复选框的使用请根据以下要求设计Visual Bas

15、ic应用程序（包括界面和代码）。1.在名称为Form1标题为“选课”的窗体上画四个复选框，名称分别为CH1、CH2、CH3、CH4，标题分别是“数学”、“语文”、“外语”、“计算机”，其中 “语文”、“计算机”复选框处在选中状态下，运行时的窗体如图1.2.2所示。请画控件并设置相应属性。图1.2.22.属性设置（请将表格补充完整）表1.2.2 对象属性对 象属性名称属性值Form1Caption选课Check1NameCH1Caption数学Value0Check2NameCH2Caption语文Value1Check3NameCH3Caption外语Value0Check4NameCH4Ca

16、ption计算机Value13.存盘时必须存放在C:VBSy02文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。实验2.3 图像的使用请根据以下要求设计Visual Basic应用程序（包括界面和代码）。1.在名称为Form1的窗体上画一个名为Image1的图像框，其高、宽分别为2000、3000，且不随图片大小而变化；再画两个命令按钮，标题分别是“显示图片”和“隐藏图片”，名称分别为Cmd1、Cmd2。如图1.2.3所示。需编写两个命令按钮的Click事件过程，使得当单击“显示图片”按钮时，将C:VBSy02文件夹下的图片文件“图片1.jpg”显示在图像框中；而如果单击

17、“隐藏图片”按钮，则清除图像框中的图片。要求：程序中不得使用变量，每个事件过程中只能写一条语句。图1.2.32.属性设置（请将表格补充完整）表1.2.3 对象属性对 象属性名称属性值Image1Height200Width3000StretchTrueCommandButton1NameCmd1Caption显示图片CommandButton2NameCmd2Caption隐藏图片3.完善程序代码Private Sub Cmd1_Click() Image1.Picture = LoadPicture(c:vbsy02图片1.jpg) End Sub Private Sub Cmd2_Clic

18、k() Image1.Picture = LoadPicture() End Sub4.存盘时必须存放在C:VBSy02文件夹下，工程文件名为sjt3.vbp，窗体文件名为sjt3.frm。实验2.4 图片框和滚动条的使用请根据以下要求设计Visual Basic应用程序（包括界面和代码）。1.在名称为Form1的窗体上画一个图片框（名称为Picture1）、一个垂直滚动条（名称为VScroll1）和一个命令按钮（名称为Command1，标题为“设置属性”），通过属性窗口在图片框中装入一个图形（文件名为图片2.jpg，位于C:VBSy02文件夹下），图片框的宽度和图形的宽度相同，图片框的高度任

19、意（如图1.2.4(a)所示）。编写适当的事件过程。程序运行后，如果单击命令按钮，则设置垂直滚动条的如下属性：Min 100Max 2400LargeChange 200SmallChange 20之后就可以通过滚动条上的滚动块来放大或缩小图片框的高度。运行之后的窗体如图1.2.4(b)所示。要求程序中不得使用任何变量。 图1.2.4(a) 图1.2.4(b)2.属性设置（请将表格补充完整）表1.2.4 对象属性对 象属性名称属性值Pciture1AutoSizeTruePictureC:VBSy02图片2.jpgCommandButton1Caption设置属性3.完善程序代码Private

20、 Sub Command1_Click() VScroll1.Min = 100 VScroll1.Max = 2400 VScroll1.LargeChange = 200 VScroll1.SmallChange = 20 End SubPrivate Sub VScroll1_Scroll() Picture1.Height = VScroll1.Value End Sub4.存盘时必须存放在C:VBSy02文件夹下，工程文件名为sjt4.vbp，窗体文件名为sjt4.frm。实验2.5 滚动条的使用请根据以下要求设计Visual Basic应用程序（包括界面和代码）。1.在名为Form

21、1的窗体上画一个名称为HScroll1的水平滚动条，其刻度范围为1100；再画一个名称为Text1的文本框，初始内容为1。程序开始运行时，焦点在滚动条上。请编写适当的事件过程，使得程序运行时，文本框中实时显示滚动条的当前位置。运行情况如图1.2.5所示。注意：要求程序中不得使用变量，每个事件过程中只能写一条语句。图1.2.52.属性设置（请将表格补充完整）表1.2.5 对象属性对 象属性名称属性值HScroll1Min1Max100Text1Text13.完善程序代码Private Sub Form_Activate() HScroll1.setFocus() End SubPrivate S

22、ub HScroll1_Change() Text1.Text= HScroll1.value End Sub4.存盘时必须存放在C:VBSy02文件夹下，工程文件名为sjt5.vbp，窗体文件名为sjt5.frm。1.3 选择结构【实验目的与要求】1.掌握IfThenElseEnd If结构。2.掌握ElseIf结构。3.掌握Select CaseEnd Select结构。4.掌握选择（分支）结构的程序设计方法。【实验内容与步骤】实验3.1 汽车移动1.在C:VBSy03文件夹下有一个工程文件sjt1.vbp，窗体Form1上有图像框、计时器和两个命令按钮，如图1.3.1所示。要求当单击 “

23、开始”按钮，使小汽车开始移动，一旦移到窗口的右边界时自动跳到窗体左边界重新移动。单击“停止”按钮时，小汽车停止移动。去掉程序中的注释符，把程序的？改成正确的内容。注意：不得修改窗体文件中已存在的程序和控件，最后程序按原文件名存盘。图1.3.1 2.程序代码Private Sub Command1_Click() Timer1.Enabled = TrueEnd SubPrivate Sub Command2_Click() Timer1.Enabled = FalseEnd SubPrivate Sub Form_Load() Picture1.Picture = LoadPicture(C:

24、VBSy03CARS.ICO)End SubPrivate Sub Timer1_Timer() Picture1.Left = Picture1.Left + 100 If Picture1.Left + Picture1.Width = Form1.Width Then Picture1.Left = 0 End IfEnd Sub实验3.2 爱好选择1.在C:VBSy03文件夹下有一个工程文件sjt2.vbp，其窗体上已有部分控件，请按照如图1.3.2(a)所示添加框架和单选按钮。要求：画两个框架，名称分别为Frame1、Frame2，在Frame1中添加两个单选按钮，名称分别为Opti

25、on1、Option2，标题分别为“古典音乐”、“流行音乐”，在名称为Frame2中添加两个单选按钮，名称分别为Option3、Option4，标题分别为“篮球”、“羽毛球”。开始运行程序时，“古典音乐”和“篮球”单选钮为选中状态。单击“选择”按钮，将把选中的单选钮的标题显示在标签Label2中，如图1.3.2(b)所示。如果“音乐”或“体育”未被选中，相应的单选钮不可选。要求：按照题目要求添加控件，去掉程序中的注释符，把程序的？改成正确的内容。注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。 图1.3.2(a) 图1.3.2(b) 2.程序代码Dim s As St

26、ringPrivate Sub Check1_Click() If Check1.Value = 1 Then Frame1.Enabled = True Else Frame1.Enabled = False End IfEnd SubPrivate Sub Check2_Click() If Check2.Value = 1 Then Frame2.Enabled = True Else Frame2.Enabled = False End IfEnd SubPrivate Sub Command1_Click() If Check1.Value = 1 Then If Option1.V

27、alue = True Then s = 古典音乐 Else s = 流行音乐 End If End If If Check2.Value = 1 Then If Option3.Value = True Then s = s & 篮球 Else s = s & 羽毛球 End If End If Label2.Caption = ?sEnd SubPrivate Sub Form_Load() Check1.Value = 1 Check2.Value = 1End Sub实验3.3 圆的运动1.在C:VBSy03文件夹下有一个工程文件sjt3.vbp，窗体中有一个矩形和一个圆，程序运行时单

28、击开始按钮，圆可以纵向或横向运动（通过选择单选按钮来决定），碰到矩形的边时，则向相反的方向运动，单击“停止”按钮，则停止运动，如图1.3.3所示。可以选择单选按钮随时改变运动方向。已经给出所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的？改为正确的内容。注意：不得修改已经存在的内容和控件属性，最后把修改的文件按原文件名存盘。图1.3.32.程序代码Dim d As IntegerPrivate Sub Command1_Click() Timer1.Enabled = TrueEnd SubPrivate Sub Command2_Click() Timer1.Enabled =

29、 FalseEnd SubPrivate Sub Form_Load() d = 1End SubPrivate Sub Timer1_Timer() If Option1 Then Shape2.Top = Shape2.Top + d * 50 If Shape2.Top = Shape1.Top + Shape1.Height Then d = -d End If ElseIf Option2 Then Shape2.Left = Shape2.Left + d * 50 If Shape2.Left = Shape1.Left + Shape1.Width Then d = -d En

30、d If End IfEnd Sub实验3.4 交通工具和目的地选择1.在C:VBSy03文件夹下有一个工程文件sjt4.vbp，请在窗体上画两个框架，其名称分别为F1和F2，标题分别为“交通工具”和“到达目标”。在F1中画两个单选按钮，名称分别为Op1和Op2，标题分别为“飞机”和“火车”。在F2中画两个单选按钮，名称分别为Op3和Op4，标题分别为“广州”和“昆明”。画一个标签，其名称为Lab1，宽度为3000，高度为375。编写适当事件过程，程序运行后，选择不同单选按扭并单击窗体后在标签上显示的结果见下表：选中的单选按钮单击窗体后产生的结果（标签中显示的内容）交通工具，达到目标第1种情况

31、飞机 广州坐飞机去广州第2中情况飞机 昆明坐飞机去昆明第3种情况火车 广州坐火车去广州第4中情况火车 昆明坐火车去昆明程序的运行情况如图1.3.4所示，请编写窗体的单击事件，存盘时，工程文件名为sjt4.vbp，窗体文件名为sjt4.frm。注意：不得修改窗体文件中已存在的程序，在结束程序之前，必须至少进行上面的一种操作，退出程序时必须通过单击窗体右上角的关闭按钮。图1.3.42.程序代码Private Sub Form_Click()学生编写If Op1.Value = True Then If Op3.Value Then Lab1.Caption = 坐飞机去广州 ElseIf Op4.

32、Value Then Lab1.Caption = 坐飞机去昆明 End If Else If Op3.Value Then Lab1.Caption = 坐火车去广州 ElseIf Op4.Value Then Lab1.Caption = 坐火车去昆明 End If End IfEnd SubPrivate Sub Form_Unload(Cancel As Integer) Open out4.txt For Output As #1 Print #1, Op1.Value, Op2.Value, Op3.Value, Op4.Value, Lab1.Caption Close #1En

33、d Sub1.4 循环结构【实验目的与要求】1.掌握DoLoop循环结构。2.掌握WhileWend循环结构。3.掌握ForNext循环结构。4.掌握循环结构的程序设计方法。【实验内容与步骤】实验4.1 分解单词1.在C:VBSy04文件夹下有一个工程文件sjt1.vbp，相应的窗体文件为sjt1.frm。在窗体上有一个命令按钮，其名称为Command1，标题为“添加”；有一个文本框，名称为Text1，初始内容为空白；有一个列表框，名称为List1。程序运行后，在文本框中输入一个英文句子（由多个单词组成，各单词之间用一个空格分开），然后单击命令按钮，程序将把该英文句子分解为单词，并把每个单词作

34、为一个项目添加到列表框中，如图1.4.1所示。该程序不完整，请把它补充完整。要求：去掉程序中的注释符，把程序中的？改为正确内容，使其能正确运行，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。图1.4.12.程序代码Private Sub Command1_Click() Dim S1 As String, S2 As String Dim I1 As Integer S1 = Text1.Text I1 = 1 Do Do While Mid(S1, I1, 1) And I1 = Len(S1) S2 = S2 & Mid(S1, I1, 1) I1 = I1 + 1 Loo

35、p List1.AddItem S2 S2 = I1 = I1 + 1 Loop While I1 = Len(S1)End Sub实验4.2 列表框内容移动2.在C:VBSy04文件夹下有一个工程文件sjt2.vbp，窗体上有两个列表框，名称分别为List1、List2，在List2中已经预设了内容；还有两个命令按钮，名称分别为C1、C2，标题分别为“添加”、“清除”。如图1.4.2所示。程序的功能是在运行时，如果选中右边列表框中的一个列表项，单击“添加”按钮，则把该项移到左边的列表框中；若选中左边列表框中的一个列表项，单击“清除”按钮，则把该项移回右边的列表框中。文件中已经给出了所有控件和

36、程序，但程序不完整，请去掉程序中的注释符，把程序中的 ？改为正确的内容。但不能修改程序中的其他部分，也不能修改控件的属性。最后把修改后的文件按原文件名存盘。图1.4.22.程序代码Private Sub C1_Click() Dim k As Integer k = 0 While (k 10 Then Text2.Text = Str(num) + 不存在于数组中 End IfEnd Sub实验5.2 选手得分1.在C:VBSy05文件夹下有一个工程文件sjt2.vbp。窗体上有一个标题为“得分”的框架，在框架中有一个名称为 Text1的文本框数组，含六个元素；文本框Text2用来输入难度系

37、数。程序运行时，在左边的六个文本框中输入6个得分，输入难度系数后，单击“计算分数”按钮，则可以计算出最后得分并在文本框 Text3中显示（如图1.5.2所示）。计算方法：去掉1个最高得分和1个最低得分，求剩下得分的平均分，再乘以3，再乘以难度系数。最后结果保留两位小数，不四舍五入。注意：文件中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的？改为正确的内容。不能修改程序中的其他部分和各控件的属性。最后把修改后的文件按原文件名存盘。图1.5.22.程序代码Private Sub Command1_Click() Dim k As Integer, s As Single,

38、 a As Single, b As Single a = Val(Text1(0).Text) s = a b = a For k = 1 To 5 s = s + Val(Text1(k).Text) If a Val(Text1(k).Text) Then b = Val(Text1(k).Text) End If Next k s = (s - a - b) / 4 s = s * 3 * Val(Text2.Text) Text3.Text = Int(s * 100) / 100End Sub实验5.3 统计1.在C:VBSy05文件夹下有一个工程文件sjt3.vbp，窗体上有3个

39、文本框，其名称分别为Text1、Text2、Text3，其中Text1、Text2可多行显示，另有3个名称分别为Cmd1、Cmd2、Cmd3，标题分别为“产生数组”、“统计”和“退出”的命令按钮。如图1.5.3所示。程序功能如下：单击“产生数组”按钮时，用随机函数生成20个0到10之间（不包括0和10）的数值，并将其保存到一维数组a中，同时也将这20个数值显示在Text1的文本框内；单击“统计”按钮时，统计出数组a中出现频率最高的数值及其出现的次数，并将出现频率最高的数值显示在Text2文本框内，出现频率最高的次数显示在Text3文本框内；单击“退出”按钮时，结束程序运行。请将程序中的注释符去

40、掉，把？改为正确的内容，以实现上述功能。注意：不得修改窗体文件中已经存在的控件和程序，最后将修改后的文件按原文件名存盘。图1.5.32.程序代码Option Base 1Dim a(20) As Integer, b(20) As IntegerPrivate Sub Cmd1_Click() Text1.Text = : Text2.Text = : Text3.Text = For i = 1 To 20 a(i) = Fix(Rnd * 9 + 1) b(i) = 1 Text1.Text = Text1.Text + Str(a(i) + Space(2) Next iEnd SubP

41、rivate Sub Cmd2_Click() fmax = 0 For i = 1 To 20 For j = i + 1 To 20 If a(i) = a(j) Then b(i) = b(i) + 1 End If Next j If b(i) fmax Then fmax = b(i) Next i For i = 1 To 20 If b(i) = fmax Then Text2.Text = Text2.Text + Str(a(i) + Space(2) End If Next i Text3.Text = fmaxEnd SubPrivate Sub Cmd3_Click() EndEnd Sub实验5.4 循环显示1.在C:VBSy05文件夹下有一个工程文件sjt4.vbp，窗体上有名称为Label1的