计算机二级VB选择题及答案

1、1、窗体上有一个命令按钮 Command 1编写如下事件过程：Private Sub Command1_Click()a = Val(InputBox("请输入分数：","计算你的等级", 60)If a < 0 Or a > 100 ThenPrint "输入错误"ElseIf a < 60 ThenPrint "不及格"ElseIf a < 80 ThenPrint "合格"ElsePrint "优秀"End IfEnd Sub运行时，单击按钮，在

2、输入对话框中直接回车，输出结果为()A、输入错误G合格B、不合格D优秀2、窗体上有一个命令按钮Command 1编写如下事件过程：Private Sub Command1_Click()Dim i As IntegerDim sum As Integersum = 0For i = 1 To 200sum = sum + iIf i Mod 19 = 18 ThenExit ForPrint sumEnd Sub运行时，单击按钮，输出结果为（）A、 20100B、03、运行下列程序，单击窗体后输出的结果Private Sub Form_Click()Dim k As IntegerFor k

3、= 1 To 2Print "3" + k; "3" & k; Spc(3);NextC 4 315 32D 4 31 5 32End SubA 31 3132 32B、31 31 32 324、下列程序段的执行结果是()。X = 3: Y = 5: z = 9X = X + YY = X - YIf X + Y > Z - X Then z = X + YIf X + Y > Z - Y Then X = z + YPrint X, Y, ZA 35 9B、14 3 11()5、执行下列程序段后输出的结果是s = 1For i =

4、1 To 3For j = 0 To i - 1Next jPrint s;Next IA、 112B、2126、窗体上有一个命令按钮command 1编写如下事件过程:Private Sub Command1_Click()Dim i As IntegerDim sum As IntegerFor i = 1 To i + 99sum = sum + iNext iPrint sumEnd Sub运行时单击按钮，输出结果是（）A、编译错误G 2500B、 2401D变量sum溢出7、执行下列程序段后，窗体输出的结果是（）。Dim a As IntegerPrint "B"

5、a = Val(InputBox(" 请输 a 的值"，6)Case 5 To 10Select Case aPrint "C"Case 1 To 4Case ElsePrint "A"Print "D"Case Is > 3End SelectG CD DIf a = b Thent = 5Elset = 2 * sEnd IfEnd IfPrint tEnd SubA、AB、B8、有如下程序段：Private Sub Form_Click()Dim s%, t%, a%, b%s = 1: t = 1a

6、= Valb = ValIf a > 0 Then s = s + 1If a > b Thent = t + sElse要使程序输出结果为4,则a和b应满足的条件是()。A a>0 and a<bG a>0 and a>bB、a<0 and a<bD a<0 and a>b9、窗体上有一个命令按钮Command 1编写如下事件过程：Private Sub Command1_Click()x = x + jDim i%, j%, x%, n%Next jx = 0Next in = InputBox("")Prin

7、t xFor i = 1 To nEnd SubFor j = 1 To i运行时单击命令按钮，如果在输入对话框中输入3,则窗体上显示的内容是()。：0: 1810、 已知字母D的ASCII码是68。在窗体上添加命令按钮 Command 1并编写如卜事件过程，要使单击按钮输出如下结果，程序中空缺的部分应为()G 1 to 4D 1 to 5n=n+1语句被执行的次数是()Print nNextNextG 9D 18Command 1编写如下事件过程：EDEFEDEFPrivate Sub Command1_Click() m = 68: a = "D"Print aFor

8、i =() m = m + 1A、0 to 48、 1 to 311、 运行下列程序段，其中Dim m%,n%For m=1 to 3For n=1 to 6 Step 2n =n+1A 3B、612、 窗体上有一个命令按钮a = Chr(m) + a + Chr(m)Print aNext iEnd SubNext jNext iPrint SumEnd SubG 20D 32Private Sub Command1_Click()For i = 1 To 4Forj = 4 To 8Sum = Sum + 1运行时单击按钮，输出的结果是()A 4B、813、 执行下列程序段后，x的值是()

9、x=x*ILoop While I<nI=I+1A、 10B、 15a = 3End SelectPrint aSum = Sum + aD 12014、 窗体上有一个命令按钮Command编写如下事件过程Private Sub Command1_Click()Sum = 0For m = 1 To 3Select Case ma = 1Case 1a = 2Case 2单击命令按钮输出结果是（）oA 33 3 9B、32 1615、 窗体上有一个命令按钮Next mPrint SumEnd SubCC 1113D 12 3 6Command 1编写如下事件过程：Private Sub

10、Command1_Click()a = 0For m = 1 To 3Next ja = a + 1Next mb = 0Print a, bFor j = 1 To 3End Sub运行时，单击按钮，输出结果为()。A 66C 12 6D 12 18B、61816、窗体上有一个命令按钮（command 1,编写如下事件过程:Private Sub Command1_Click（）a = 80: b = 50: c = 30If a < b Or b > c Then b = cIf b = c And a < c Then a = a - 30If a = b And b

11、> c Then c = a + bPrint a, b, cEnd Sub运行时单击命令按钮，窗体输出的结果是（）0A 80 50 30B、80 30 3017、 阅读下列程序段：m = 0For i = 1 To 3For j = 1 To i执行以上的循环后，i和m的值分别为（）。A 36B、31018、 阅读下列程序段：x = 0For i = 1 To 4For j = 1 To i执行以上的循环后，x的值为（）。A 6B、919、如下程序段的功能是计算1/2+1/4+1/6+50 30 8050 30 30m = m + jNext j, i4 6410X = x + 1Ne

12、xt j, i1016+1/50,并显示结果Private Sub Command1_Click（）Dim i As IntegerDim sum As Double i =1sum = 0Do While (i<=50)1 2处分别填写()。A、2, sumB、2, I20、 以下条件语句错误的是()A、If x Then y=y+1B、If x=0 Then y=0C、If x>0 Then y=1: Print21、 窗体上有两个文本框(Text1、如下事件过程：sum = sum+1 /2i = i + 2LoopPrint sumEnd SubG 0, sumD 1, I

13、yD If x>y Then Print y EndIfText2)和一个命令按钮(Command 1,编写Private Sub Command1_Click()Loopx = 0= CStr(n)Do While x < 50= CStr(x)x = (x + 2) * (x + 4)End Subn = n + 1运行时，单击命令按钮，Text1和Text2将分别显示()。A、0 和 0G 2 和 120B、1 和 8D 3 和 1518022、 窗体上有命令按钮Command和Command2阅读下列程序：Dim a As Integera = a + 2Print a,D

14、im a As IntegerPrivate Sub Command1_Click()Private Sub Form_Load()a = 0: a = a + 1End SubEnd SubPrint aPrivate Sub Command2_Click()End Sub运行时，先后单击 Command! Command2钮，输出的结果为（）A、21G22B、31D1123、 下列程序段的执行结果是()。x = 100: y = 80: z = 30If x > y Or y < z Then y = zIf y = z And x > z Then x = x - zP

15、rint x, y, zA 70 30 30G 70 80 30B、100 30 30D 100 80 3024、 运行下列程序，单击窗体后输出的结果是（）oPrivate Sub Form_Click()s = 1Fori = 1 To 2Forj = 0 To is = s + s * jA 1 24 12B、1 22 425、执行下列程序段后,Print s; SpcNext jPrintNext iEnd SubCC 1 22 4 12D 1 21 2 6x的值是()。n = 5: x = 1: i = 1Dox = x * iLoop While i < nA、 10B、152

16、6、在窗体上画一个名称为D 120Command的命令按钮,然后编写如下事件过程y = Sgn(x)End IfPrint yEnd Sub()°C 1D -1其中不正确的是()OPrivate Sub Command1_Click()x = -5If Sgn(x) Theny = Sgn(x A 2)Else程序运行后，单击命令按钮，窗体上显示的是A -5B、2527、 下列程序段是求两个数中的最大数，A If a < b Then Max = b Else Max = a B、Max = IIf(a > b , a, b)C、Max = a : If b > =

17、 a Then Max = bD> If b > = a Then Max = b : Max = a28、 以下程序段的输出结果是()。M = 24:N = 18A = M:B = N R = M Mod NDo While R <> 0M = NA 6B、2429、 假定有如下事件过程：N = RR = M Mod NLoopPrint A * B / NC 72D 432Dim x As Integer, n As IntegerPrivate Sub Form_Click()30、LoopDo While x < 32Print x,End Sub程序运行

18、后，单击窗体，输出结果是()A、B、8156卜列程序段的运行结果是()Private Sub Form_Click()Fori = 1 To 5Case ElseSelect Case i Mod 2Case 0End SelectPrint "*"Next iExit ForEnd SubCase 1D$31、如下程序段的功能是：从键盘上输入若干学生的考试分数，当输入负数时 结束输入，然后输出其中最高的分数和最低的分数。Private Sub Form_Click()Dim x As Single, mmax As Single, mmin As Singlex = In

19、putBox("请输入学生的考试分数")mmax = xmmin = xDo While1If2 Thenmmax = xEnd IfIf x < mmin Thenmmin = xEnd Ifx = InputBox("请输入学生的考试分数")LoopPrint "Max=" mmax, "Min=" mminEnd Sub程序的空缺处1和2应分别填写()。A、 x>=0 和 x>mmaxG x<0 和 x>mmaxB、 x>=0 和 x<mminDX x<0 和

20、x<mmin32、 窗体上有一个文本框Text1和命令按钮Command 1编写如下事件过程:Case 3: j = "*"Case Else: j =End Select=jEnd Sub非法”Private Sub Command1_Click() i =Select Case iCase 1: j = "+"Case 2: j ="-"运行时，在Text1中输入1后单击命令按钮，Text1中内容是（）A +C *B、-D非法33、 在窗体上有两个列表框 List1、List2 , 一个命令按钮Command 1有5个列表项

21、，为空，程序运行后，单击 Command 1 List1和List2中分别有（）个字 段。Private Sub Command1_Click()Dim i As IntegerFor i = 1 To - 1(1) = True1Next iEnd SubA、0 和 5G 5 和 08、 1 和 4D 4 和 134、 窗体上有一个命令按钮Command 1编写如下事件过程：Private Sub Command1_Click()x = InputBox(x)If x A 2 = 16 Then y = xIf x a 2 < 16 Then y = 1 / xIf x a 2 >

22、; 16 Then y = x a 2 + 1Print yEnd Sub运行时，单击按钮，在输入框中输入6后回车，窗体上将显示()A 6C 378、 D 6535、 下列程序段的执行结果是()。n = 1j = 1Do While j <= 4n = n * jPrint n;j = j + 1A、12 3 4B、12 6 2414 71136、设有以下程序段:For i = 1 To 4For j = 6 To 1 Step -1Print i * jNext j, i37、则语句Print i * j的执行次数是（）。B、1213执行下列程序段后，窗体显示的内容为2425Priva

23、te Sub Form_Click()a = 85ElseIf a >= 90 ThenIf a >= 60 ThenEnd IfPrint "i=", iElseIf a >= 70 ThenEnd SubElseIf a >= 80 Then38i=1i=2C i=3D i=4窗体上有一个命令按钮Command 1编写如下事件过程:Private Sub Command1_Click()Do While x < 10x = (x - 2) * (x + 3)G 3 和 50D 4 和 68C i = 10Doi = i - 1Loop Un

24、til i < 0i = 6D Doi = i - 2Loop Until i = 1G 6D 21i = i +3ElseIf a >= 80 Theni = i +2ElseIf a >= 90 Theni = i +1End Sub运行时单击按钮，n和x的值分别是()。A、1 和 0B、2 和 2439、 下列循环语句能正常结束循环的是()A i = 5Do1 = i + 1Loop Until i < 0B、i = 1Do2 = i + 2Loop Until i = 1040、 执行下列程序段后，x的值是()。n=6: x=1: I=1Dox=x*II=I+1

25、Loop While I<nA 120B、141、 执行以下程序段后，窗体显示的内容为Private Sub Form_Click()a = 75If a >= 60 Then1 = i + 4ElseIf a >= 70 Then42、4344、End IfEnd SubPrint "i=", iA、B、i=4i=3以下程序段的执行结果是()Do While j < 4Print n;Loop6 24运行下列程序段，n的值是()Dim m%,n%For m=1 to 3For n=1 to 6 Step 2n =n+1NextNext执行以下程序段

26、后，窗体显示的内容为()i=2i=1812Private Sub Form_Click()4848 2414 99 5Forj = 0 To i s = s + s * j Print s; Spc（2）;Next jPrintNext iEnd SubA、2 4G 28 244B、1 2D 22 412445、 以下程序段的执行结果是（）。Dim a As Integer, b As Integer, c As Integera = 14: b = 9: c = 5: a = a + b: c = c + bIf a - c > b - c Then a = b + cIf a - b

27、 > b - c Then b = a - cPrint a, b, cA、14 914G 23B、23 914D 1446、 执行以下程序段后输出的结果是（）。Fori = 1 To 3x = 4Forj = 1 To 4x = x + 6Next jNext iPrint x;B、24D 2247、 以下程序段的执行结果是（）。n = 2j = 1Do While j <4n = n * jPrint n;j = j + 1LoopA234G 2412B、2624D 24848、 运行下列程序，单击窗体后输出的结果是（）oPrivate Sub Form_Click() s =

28、 1Fori = 1 To 2Forj = 1 To i s = s + s * j Print s; Spc(2);Next jPrintNext iEnd SubC 12412D 122 4A 2412B、24649、窗体上有一个命令按钮Command 1编写如下事件过程:Private Sub Command1_Click()x = x + jDim i%, j%, x%, n%Next jx = 0Next in = InputBox("")Print xFor i = 1 To nEnd SubForj = 1 To i运行时，单击命令按钮，如果在输入对话框中输入

29、3,则窗体上显示的内容是()；：0: 1850、 窗体上有命令按钮Command和Command2阅读下列程序：Private Sub Command1_Click()Private Sub Command2_Click()a = a + 1 : Print a ；a = a + 1 : Print aEnd SubEnd Sub运行时，先后单击 Command! Command2钮，输出的结果为（）A、1 1G 1 2B、2 2D 2 151、 执行下列程序段后，窗体输出的结果是（）。Dim X As Integer, Y As IntegerY = Val(InputBox("

30、请输入a的值"- 9)'直接接回车键Select Case Yx = x + 3Case Is < 10Case Elsex = x + 1x = x + 4Case 5, 7, 9, 11End Selectx = x + 2Print x1、 se 5 To 15A、 1C、5D 652、 窗体上有一个命令按钮Command 1编写如下事件过程:Private Sub Command1_Click()Dim a%, b%a = 6: b = -1If a < 0 Or b < 0 Then a = bElself a > 0 Thena = a +

31、 bElself a < 0 And b < 0 Thenb = aElseb = a * bEnd IfPrint a, bEnd Sub运行时，单击按钮，窗体输出的结果为(A 66B、5-153、 下列程序段的执行结果是()Dim x As DoubleDim y As Doublex = Int(42 4) + 3Select Case xCase Is < 3y = x + 1C 6-6D -1 -1Case Is < 12y = 2 * x + 5Case Elsey = 3 * x + 11End SelectPrint yB 75A 25C、 5054、 下列程序段的执行结果是（）x = 5: y = 7: z = 4If x < y Thent = x: x = y: y = tEnd If1-5 CDDBD 31-35 AABCB6-10 CBABB 36-40 CABCA11-15 BCCDC 41-45 ADCDB16-20 BDCBD 46-50 CCABA21-25 CAACC 51-55 ADCCB26-30 CDCAB 56-60 ABCCBIf y < z