vb阅读程序专题练习题

1、1.下列程序段运行后的输出结果是：For i = 1 To 3 For j = 1 To i For k = j To 3 m = m + 1 Next k Next jNext iPrint m答案：142.在窗体上有一个名称为Drive1的驱动器列表框(当前驱动器为C:)，一个名称为Dir1的目录列表框(当前目录如图)，一个名称为Text1的文本框和一个标题为“显示”，名称为Command1的命令按钮，设计阶段如图所示。然后编写如下的两个事件过程：Private Sub Command1_Click() Dir1.Path = e:图片End SubPrivate Sub Dir1_Cha

2、nge() Text1.Text = Drive1.DriveEnd Sub则程序运行后，单击命令按钮，文本框中显示的内容为：答案：c:3.在名称为Form1的窗体上有一个框架，名称为Frame1，标题为“三大火炉”，在框架中有一个名称为Opt1的单选按钮控件数组，其包含3个单选按钮，Index值从0到2，标题分别为“南京”，“重庆”，“武汉”，还有一个名称为Text1的文本框(内容为空)和一个名称为Cmd1，标题为“确定”的命令按钮，如图所示。本窗体有如下的两个事件过程：Private Sub Cmd1_Click()Opt1(1).Value = 1End SubPrivate Sub O

3、pt1_Click(Index As Integer)Text1.Text = 三大火炉之一 & Opt1(Index).CaptionEnd Sub程序运行后，单击命令按钮，则文本框中显示的结果是： 答案：三大火炉之一重庆4.在名称为Form1的窗体上有一个名称为Text1的文本框和3个命令按钮，名称分别为Cmd1、Cmd2、Cmd3，标题分别为“文字1”、“文字2”、“文字3”，如图所示。本窗体有如下3个事件过程： Private Sub Cmd1_Click()Text1.Text = 计算机End SubPrivate Sub Cmd2_Click()Text1.Text = 电脑En

4、d SubPrivate Sub Cmd3_Click()Cmd2_ClickEnd Sub则程序运行后，单击Cmd3命令按钮，文本框中显示的内容是： 答案：电脑5.在名称为Form1的窗体上有一个名称为List1的列表框和1个名称为Cmd1，标题为“添加”的命令按钮。且本窗体有如下的两个事件过程：Private Sub Form_Load()List1.AddItem AAAList1.AddItem BBBEnd SubPrivate Sub Cmd1_Click()List1.AddItem DDD, 1List1.AddItem EEE, 1End Sub运行后的界面如下图所示，当单击

5、命令按钮后，列表框中显示的内容是：答案：AAAEEEDDDBBB6.在窗体上有一个命令按钮，然后编写以下事件过程：Private Sub Command1_Click()Dim n As Integer, m As Integerm = 15If m 2 = m / 2 Then n = m / 3Else n = m / 5End IfIf m Mod 3 = 0 Then n = m / 2End IfPrint nEnd Sub程序运行后，单击命令按钮，输出结果是：答案：87.以下程序段运行后，输出的结果为：Dim i, k, a(5), p(2) k = 5i = 0 To 5 a(i

6、) = i Next i For i = 0 To 1 p(i) = a(i * (i + 1) Next ifor i = 0 To 1 k = k + p(i) * 2 Next i Print k 答案：98.在窗体上有一个名称为Command1，标题为“确定”的命令按钮和一个名称为Text1的文本框(内容为空)， 如图所示。然后编写如下事件过程： Private Sub Command1_Click() n = Val(Text1.Text) For i = 5 To n For j = 2 To i-1 If i Mod j = 0 Then Exit For Next j If j

7、=i Then Print i; Next iEnd Sub程序运行后，在文本框中输入10，然后单击命令按钮，窗体上显示的是：答案：5 79.执行下列程序段后，输出结果为：a = 1: b = 1: c = 1Do While a + b + c = 10a = a + 1b = b * 2c = b / 2LoopPrint a; b; c答案：4 8 410.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Dim s As Integer, i As Integers = 0i = 6Dos = s + ii =

8、 i + 1Loop While i = 5Print s;iEnd Sub程序运行后，单击命令按钮，窗体上显示的是：答案：6 711.编写命令按钮的Click事件过程代码：Private Sub Command1_Click()For n = 1 To 4Print Tab(2 * n + 2);For m = 1 To 4Print Spc(1); *;Next mPrintNext nEnd Sub程序的执行结果是：答案：* * * * * * * * * * * * * * * *12.下列程序段运行后，输出结果为：a=1b=2s=0For i=10 To 6 Step -2s=s+a

9、c=a+ba=bb=cNext iPrint s答案：613.执行下列程序段后，输出结果为：x = 2y = 1 z = 2If z = x Then y = x: x = 4: z = xPrint x; y; z答案：4 2 414.有如下的程序：Private Sub Command1_Click()m = 1234For n = 1 To 4Print Tab(5 - n); Right(m, n)Next nEnd Sub程序运行后的输出结果是：答案： 4 34 234123415.编写窗体的Click事件过程代码：Option Base 1 Private Sub form_Cli

10、ck()Dim i As Integer, j As Integer, t As IntegerDim aA=array(34,67,23,98,11)For i = 1 To 4 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 jNext iFor i = 1 To 5 Print a(i);Next iEnd Sub程序运行后，单击窗体，输出结果为：答案：98 67 34 23 1116.以下程序段运行后，输出的结果为： m = 1 For k = 3 To 1 Step -1 x

11、$ = String$(k, *) Print m; x$ m = m + 1 Next k答案： 1 *2 *3 *17.在窗体上有一个名称为List1的列表框和1个名称为Text1的文本框，然后编写如下两个事件过程：Private Sub Form_Load()List1.AddItem 325List1.AddItem 234List1.AddItem 163List1.AddItem 537Text1.Text = End Sub Private Sub List1_DblClick()a = List1.TextPrint a + Text1.TextEnd Sub运行后，在文本框中

12、输入“432”（如下图所示），然后双击列表框中的“234”，则输出结果为：答案：23443218.在窗体上有一个名称为Combo1的组合框和一个名称为Command1，标题为“删除”的命令按钮，组合框在设计阶段已添加6项内容，如图所示：然后编写如下事件过程：Private Sub Command1_Click()For i = 1 To 3Combo1.RemoveItem iNext iEnd Sub程序运行后，单击删除按钮，组合框的内容为：答案：AAACCCEEE19.在窗体上有一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click

13、()x = 0n = InputBox()For i = 1 To nFor j = 1 To ix = x + 1Next jNext iPrint xEnd Sub运行后，单击命令按钮，如果从InputBox对话框中输入3，则在窗体上显示的内容是：答案：620.在窗体上有一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Dim i As Integer, x As IntegerFor i = 1 To 5If i = 1 Then x = iIf i = 1 If i Mod 2 = 0 Then s = s + i En

14、d If i = i - 1LoopPrint sEnd Sub运行后，单击命令按钮，其输出结果为：答案：30 23.在窗体上有一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Dim x As Integer, i As Integeri = 3x = 5Do i = i + 2 x = x + 3Loop Until i = 9Print xEnd Sub运行后，单击命令按钮，其输出结果为：答案：1424.在窗体上有一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Clic

15、k()Dim re As Integerre = MsgBox(请选择, vbOKCancel + vbQuestion, 结束)If re = 1 ThenPrint OKElsePrint CancelEnd IfEnd Sub运行时单击命令按扭（Command1），显示的消息框如图所示，然后单击取消按钮，窗体上显示的内容为：答案：Cancel25.在窗体上有一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Dim m As Integer, n As Integerm = 4n = 2Do m = m + n n = n

16、+ 1Loop While m p Then Print a(i);Next iEnd Sub程序运行后，单击命令按钮，则窗体上显示的内容为：答案：8 930.在名称为Form1的窗体上有一个名称为Text1的文本框和一个名称为Option1的单选按钮控件数组，其包含3个单选按钮，Index值从0到2，标题分别为“北京”，“上海”，“天津”，如图所示。然后编写如下事件过程：Private Sub Option1_Click(index As Integer)Text1.Text = 我来自 & Option1(index).CaptionEnd Sub运行后，选中标题为“上海”的单选按钮，则文

17、本框中显示的内容为：答案：我来自上海31.在窗体上有一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Dim x As Integerx = 1Do Until x 6Print x;x = x + 2.3LoopEnd Sub程序运行后，单击命令按钮， 则窗体上显示的内容为：答案：1 3 532.在窗体上有一个名称为Command1，标题为“确定”的命令按钮和两个名称分别为Text1、Text2的文本框(内容都为空)，如图所示。然后编写如下事件过程： Private Sub Command1_Click()x = Text1.

18、TextSelect Case xCase 2, 4, 6, 8, 10y = 1Case 6y = 2Case Is 6y = 4End SelectText2 = yEnd Sub程序运行后，如果在文本框Text1中输入6，然后单击命令按钮，则在文本框Text2中显示的内容为：答案：133.编写窗体的Click事件过程代码：Private Sub Form_Click()y = 10For x = 5 To 2.5 Step -7y = y + xNext xPrint xEnd Sub 程序运行后，单击窗体，输出结果为：答案：-234.在窗体上有一个名称为Drive1的驱动器列表框（当前

19、驱动器为C:），一个名称为Text1的文本框(内容为空)和一个名称为label1的标签，如图所示。且有如下的两个事件过程：Private Sub Drive1_Change()Label1.Caption = Drive1.DriveEnd Sub Private Sub Text1_Change()Drive1.Drive = e:End Sub运行后在文本框中输入“ABC”，则标签中显示的结果是：答案：e:35.下列程序段运行后，输出结果为：a = 6b = 4If a b Then x = a a = b b = xEnd IfPrint a; b答案：4 636.在窗体上有一个名称为T

20、ext1的文本框(内容为空)，然后建立2个主菜单，标题分别为“奖项等级”和“帮助”，名称分别为vbMenu和vbHelp，其中“奖项等级”菜单包括“一等奖” 、“二等奖”、“三等奖”3个子菜单，名称分别为vbMenu1、vbMenu2、vbMenu3。如图所示。然后编写如下事件过程：Private Sub vbMenu1_Click()Text1.Text = 彩电End Sub Private Sub vbMenu2_Click()Text1.Text = 冰箱End Sub Private Sub vbMenu3_Click()Text1.Text = VCDEnd Sub则程序运行后，如

21、果选择二等奖，文本框中显示的内容为：答案：冰箱37.在窗体上有一个名称为Command1的命令按钮，然后编写如下通用过程和命令按钮的事件过程：Private Function f(m As Integer) If m Mod 2 = 0 Then f = 1 Else f = 2 End IfEnd FunctionPrivate Sub Command1_Click() Dim i As Integer s = 0 For i = 1 To 5 s = s + f(i) Next Print sEnd Sub程序运行后，单击命令按钮，在窗体上显示的是：答案：838.在窗体上有一个名称为Tex

22、t1的文本框(内容为空)和一个标题为“显示”，名称为Command1的命令按钮，如图所示，然后编写如下事件：Private Sub Command1_Click() Dim num(10, 10) As Integer Dim i As Integer, j As Integer For i = 1 To 3 For j = 2 To 4 num(i, j) = i*j+1 Next j Next i Text1.Text = num(2, 2) + num(3, 3)End Sub则程序运行后，单击命令按钮，文本框中显示的内容为：答案：1539.在窗体上有一个名称为Command1的命令按钮

23、，然后编写如下事件过程：Private Sub Command1_Click()For n = 1 To 10If n Mod 2 0 Thenm = m + n * 2Elsem = m + n / 2End IfNext nPrint nEnd Sub程序运行后，单击命令按钮，在窗体上显示的是：答案：1140.在名称为Form1的窗体上有一个框架，名称为Frame1，标题为“爱好”，在框架中有3个复选框，名称分别为Check1、Check2、Check3,标题分别为“体育”，“音乐”，“美术”，还有一个名称为Command1，标题为“选择”的命令按钮和一个名称为Text1的文本框(内容为空

24、)，如图所示。然后编写如下事件过程： Private Sub Command1_Click()Text1.Text = Frame1.CaptionIf Check1 = 1 Then Text1.Text = Text1.Text & Check1.CaptionIf Check2 = 1 Then Text1.Text = Text1.Text & Check2.CaptionIf Check3 = 1 Then Text1.Text = Text1.Text & Check3.CaptionEnd Sub程序运行后，如果选择Check1和Check2两个复选框，然后单击命令按钮，则文本框

25、中显示的内容为： 答案：爱好体育音乐41.以下程序段运行后，输出的结果为： i = 0 j = 10 Do While i = j i = i + 1 j = j - 1 k = i + j Loop Print k答案：1042.在窗体上有一个名称为Text1的文本框(内容为空)和一个名称为Picture1的图片框，如图所示，然后编写如下事件过程：Private Sub Text1_Change()Picture1.Print Text1.TextEnd Sub则程序运行后，在文本框中依次输入1234，则图片框中显示的内容为：答案：112123123443.在窗体上有一个名称为Command

26、1的命令按钮，然后编写如下通用过程和命令按钮的事件过程：Public Function f(x As Integer)Dim y As Integerx = 5y = 4f = x * yEnd Function Private Sub Command1_Click()Static x As Integerx = 2y = 3y = f(x)Print x; yEnd Sub程序运行后，单击命令按钮，在窗体上显示的是：答案：5 2044.在名称为Form1的窗体上有一个名称为Opt1的单选按钮控件数组，包含3个单选按钮，Index值从0到2，标题分别为“英语”，“画画”，“音乐”，还有一个名称

27、为Text1的文本框(内容为空)，如图所示。然后编写如下事件过程： Private Sub Opt1_Click(Index As Integer)Dim a As String, b As Stringa = 我学b = 我教Select Case IndexCase 0Text1.Text = a + Opt1(0).CaptionCase 1Text1.Text = a + Opt1(1).CaptionCase 2Text1.Text = b + Opt1(2).CaptionEnd SelectEnd Sub运行后，如果选中标题为“音乐”的单选按钮，文本框中显示的内容为：答案：我教音

28、乐45.在窗体上有一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()For i = 1 To 4If i = 1 Then x = 1If i yElsePrint x yEnd IfEnd Sub运行后，在两个输入对话框中先后输入-4和5，则窗体上显示的是：答案：False50.下列程序段运行后，输出的结果为：n=5For x=5 To 13 Step 2n=n+1x=x+2Next xPrint n答案：851.在窗体上有一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_C

29、lick()Dim b As Boolean, m As Integerb = Falsem = 10DoDo While m 40m = m +5If m =20 Thenb = TrueExit DoEnd IfLoopLoop Until b = TruePrint mEnd Sub程序运行后，单击命令按钮，其输出结果为：答案：2052.在窗体上有一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Dim i As Integer, j As IntegerFor i = 1 To 2For j = 1 To 2Print

30、String(i, Basic);Next jPrintNext iEnd Sub程序运行后，单击命令按钮，其输出结果为：答案：BBBBBB53.在窗体上有一个名称为Command1的命令按钮和一个名称为Label1的标签（如图所示），然后编写如下事件过程：Private Sub Command1_Click()Dim a(3) As Single, s As StringFor i = 0 To 3a(i) = Val(InputBox(输入第 & i & 个数:)Nexts = a(1) & , & a(3)Label1.Caption = sEnd Sub运行后，单击命令按钮，先后在In

31、putbox中输入5，6，7，8，则标签中显示：答案：6,854.在窗体上有一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Dim i As Integer, j As IntegerFor i = 1 To 3For j = 0 To i - 1s = s + 1Next jNext iPrint s+i+jEnd Sub程序运行后，单击命令按钮，其输出结果为：答案：1355.窗体上有一个名称为Command1，标题为“显示”的命令按钮和一个名称为Text1的文本框(内容为空)，如图所示。然后编写如下事件过程：Private

32、 Sub Command1_Click()x = By = Az = GFor i = 1 To 2x = yy = zz = xNext iText1.Text = x + y + zEnd Sub程序运行后，单击命令按钮，则文本框中显示的结果为：答案：GAG56.执行下列程序段后，输出结果为：x = 1For i = 1 To 30 Step 6x = x + i Mod 5Next iPrint x答案：1157.在窗体上有一个名称为Text1的文本框(内容为空)和一个名称为Hs1的滚动条，滚动条的各个属性值设置为：Min:0，Max:100,Value:30，如图所示。然后编写如下事件

33、过程：Private Sub Hs1_Change()Text1.Text = Hs1.ValueEnd Sub程序运行后，当滚动条的滑块移到最右端（即最大值处），则文本框中显示的结果为：答案：10058.在窗体上有一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click()Static x As IntegerClsFor i = 1 To 2y = y + xx = x + 3Next iPrint x; yEnd Sub程序运行后，连续两次单击Command1按钮后，窗体上显示的是： 答案：12 1559.在窗体上有一个名称为Co

34、mbo1的简单组合框和一个名称为Command1，标题为“运行”的命令按钮，组合框的内容为空，如图所示：然后编写如下事件过程：Private Sub Command1_Click()For i = 1 To 6Combo1.AddItem iNext iFor i = 1 To 3Combo1.RemoveItem iNext iEnd Sub程序运行后，单击运行按钮，组合框的内容为：答案：1 3 560.在窗体上有一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()s = 0For i = 1 To 3If i = 1 Then

35、x = 1ElseIf i = 2 Thenx = 2ElseIf i = 3 Thenx = 3Elsex = 4End Ifs = s + xNext iPrint x; sEnd Sub程序运行后，单击命令按钮，其输出结果为：答案：3 6 61.在窗体上有一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Dim m As Integer, n As IntegerFor j = 1 To 4Print Tab(5 - j); For i = 1 To 2 * j - 1 Print *; Next i PrintNext

36、jEnd Sub程序运行后，单击命令按钮， 则窗体上显示的内容为：答案：*62.设有如下程序段：Option Base 0Private Sub Form_Click()Dim aDim i As Integera=Array(1,2,3,4,5,6,7,8,9)For i=0 To 3Print a(5-i);NextEnd Sub程序运行后，单击窗体，则在窗体上显示的是：答案：6 5 4 363.编写命令按钮的Click事件代码：Private Sub Command1_Click()For n = 1 To 4Print Tab(5 - n);For m = 1 To 6Print *;

37、Next mPrintNext nEnd Sub程序运行后，单击命令按钮，则窗体上显示的内容为：答案：* *64.以下程序段运行后，输出的结果为：For i = 15 To 18 Print *; For j = 3 To 6 Step 1 Print *; Next j PrintNext i答案：* * *65.编写命令按钮的Click事件代码：Private Sub Command1_Click()Dim x As Integerx = InputBox()Select Case xCase Is 5Print x * x - 1End SelectEnd Sub运行后，单击命令按钮，从

38、InputBox对话框中输入2，输出结果是：答案：266.编写命令按钮的Click事件代码：Option Base 1Private Sub Command1_Click()Dim arr1 As VariantDim x As Integer, i As Integerarr1 = Array(75, -34, 23, 54, -65, 326, 123, 90)x = arr1(1)For i = 2 To 8If arr1(i) x Then x = arr1(i)：y=iNext iPrint x;yEnd Sub程序运行后，单击命令按钮，则窗体上显示的内容为：答案：-65 567.在

39、窗体上有两个名称分别为Command1和Command2，标题分别为“按钮一”和“按钮二”的命令按钮，还有一个名称为Text1的文本框(内容为空)，如图所示，然后编写如下两个事件过程：Option Base 1Dim a(3, 2)Private Sub Command1_Click() For i = 1 To 3 For j = 1 To 2 a(i, j) = i + j Next j Next iEnd SubPrivate Sub Command2_Click() For i = 1 To 3 For j = 1 To 2 s = s + a(i, j) Next j Next i

40、Text1.Text = sEnd Sub运行后，先后单击“按钮一”和“按钮二”，则文本框的输出结果是：答案：2168.在窗体上有1个命令按钮，其名称为Command1，然后编写如下程序： Private Sub Command1_Click() Dim a(10)As Integer Dim x As Integer For i=1 To 10 a(i)=5+i Next ix=2 Print a(f(x)+x) End Sub Function f(x As Integer) x=x+3 f=x End Function 程序运行后，单击命令按钮，在窗体上显示的是：答案：1569.编写命令

41、按钮的Click事件过程代码：Private Sub Command1_Click() Dim a a = Array(1, 2, 3, 4, 5) For i = LBound(a) To UBound(a) a(i) = a(i) + 1 Next i Print i; LBound(a) End Sub程序的执行结果是：答案：5 070.窗体上有一个名称为Command1的命令按钮，然后编写如下的事件过程和通用过程：Private Sub Command1_Click() x = InputBox(请输入整数) a = f1(Val(x) Print aEnd SubFunction f

42、1(ByRef b As Integer) If b Mod 2 = 0 Then f1 = 0 Else f1 = 1 End IfEnd Function运行后，单击命令按钮，如果从InputBox对话框中输入6，输出结果是：答案：071.窗体上有一个名称为Command1，标题为“确定”的命令按钮和一个名称为Text1的文本框(内容为空)，如图所示。然后编写如下的事件过程和通用过程：Private Sub Command1_Click() n = Val(Text1.Text) If n 3 = n / 3 Then f = f1(n) Else f = f2(n) End If Pri

43、nt f; nEnd SubPublic Function f1(ByRef x) x = x + 2 f1 = x * xEnd FunctionPublic Function f2(ByVal x) x = x + 4 f2 = x * x * xEnd Function运行后，在文本框中输入6，然后单击命令按钮，则窗体上显示的是：答案：64 872.以下程序段运行后，输出的结果为： For i = 1 To 10 If i Mod 5 0 Then n = n + i Next i Print n 答案：4073.窗体上有一个名称为Command1，标题为“确定”的命令按钮和一个名称为T

44、ext1的文本框(内容为空)，如图所示。然后编写如下的事件过程和通用过程：Private Sub Command1_Click() Dim x As Integer, y As Integer, z As Integer x = 3 y = 5 z = 0 Call p1(x, y, z) Text1.Text = Str(z)End SubSub p1(ByVal a As Integer, ByVal b As Integer, c As Integer) c = a + bEnd Sub程序运行后，单击命令按钮，则文本框中显示的内容为：答案：874.窗体上有一个名称为Command1，标

45、题为“确定”的命令按钮和一个名称为Text1的文本框(内容为空)，还有一个标签，如图所示，然后编写如下的事件过程和通用过程：Private Function even(x As Long) As Boolean If x Mod 2 = 0 Then even = True Else even = False End IfEnd FunctionPrivate Sub Command1_Click() Dim n As Long n = Val(Text1.Text) p = IIf(even(n), 偶数, 奇数) Label1.Caption = n & 是一个 & pEnd Sub运行后，在文本框中输入28，然后单击命令按钮，则标签上显示的内容是：答案：28是一个偶数75.窗体上有一个名称为Text1的文本框(内容为空)和一个名称为Picture1的图片框，如图所示，然后编写如下的两个事件过程：Private Sub Form_Click() Text1.Text = 祝你快乐End SubPrivate Sub Text1_Change() Picture1.Print Text1.TextEnd Sub运行后，单击窗体，则图片框上显示的内容是：答案：祝你快乐76.窗体上有一个名称为Command1，标题为“显示”的命令按钮和一个名称为List1的列表框(内容为