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

《计算机二级VB选择题及答案》由会员分享，可在线阅读，更多相关《计算机二级VB选择题及答案（27页珍藏版）》请在装配图网上搜索。

1、1、窗体上有一个命令按钮 Command 1编写如下事件过程：Private Sub Command1_Click()a = Val(InputBox(请输入分数：,计算你的等级, 60)If a 100 ThenPrint 输入错误ElseIf a 60 ThenPrint 不及格ElseIf a 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 = 1 To 3For j = 0 To i - 1Next jPrint s;Nex

2、t 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 Ba = Val(InputBox( 请输 a 的值，6)Case 5 To 10Select Case a

3、Print CCase 1 To 4Case ElsePrint APrint DCase 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 = Valb = ValIf a 0 Then s = s + 1If a b Thent = t + sElse要使程序输出结果为4,则a和b应满足的条件是()。A a0 and a0 and abB、a0 a

4、nd abD ab9、窗体上有一个命令按钮Command 1编写如下事件过程：Private Sub Command1_Click()x = x + jDim i%, j%, x%, n%Next jx = 0Next in = InputBox()Print xFor i = 1 To nEnd SubFor j = 1 To i运行时单击命令按钮，如果在输入对话框中输入3,则窗体上显示的内容是()。：0: 1810、 已知字母D的ASCII码是68。在窗体上添加命令按钮 Command 1并编写如卜事件过程，要使单击按钮输出如下结果，程序中空缺的部分应为()G 1 to 4D 1 to 5

5、n=n+1语句被执行的次数是()Print nNextNextG 9D 18Command 1编写如下事件过程：EDEFEDEFPrivate Sub Command1_Click() m = 68: a = DPrint aFor 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 Sub

6、G 20D 32Private Sub Command1_Click()For i = 1 To 4Forj = 4 To 8Sum = Sum + 1运行时单击按钮，输出的结果是()A 4B、813、 执行下列程序段后，x的值是()x=x*ILoop While InI=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 = 2Cas

7、e 2单击命令按钮输出结果是（）oA 33 3 9B、32 1615、 窗体上有一个命令按钮Next mPrint SumEnd SubCC 1113D 12 3 6Command 1编写如下事件过程：Private Sub 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_Cl

8、ick（）a = 80: b = 50: c = 30If a c Then b = cIf b = c And a 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

9、/6+50 30 8050 30 30m = m + jNext j, i4 6410X = x + 1Next j, i1016+1/50,并显示结果Private Sub Command1_Click（）Dim i As IntegerDim sum As Double i =1sum = 0Do While (i0 Then y=1: Print21、 窗体上有两个文本框(Text1、如下事件过程：sum = sum+1 /2i = i + 2LoopPrint sumEnd SubG 0, sumD 1, IyD If xy Then Print y EndIfText2)和一个命令按

10、钮(Command 1,编写Private Sub Command1_Click()Loopx = 0= CStr(n)Do While x y Or y z Then x = x - zPrint 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 i

11、End SubCC 1 22 4 12D 1 21 2 6x的值是()。n = 5: x = 1: i = 1Dox = x * iLoop While i nA、 10B、1526、在窗体上画一个名称为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

12、b , a, b)C、Max = a : If b = 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

13、程序运行后，单击窗体，输出结果是()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 = InputBox(请

14、输入学生的考试分数)mmax = xmmin = xDo While1If2 Thenmmax = xEnd IfIf x =0 和 xmmaxG xmmaxB、 x=0 和 xmminDX x0 和 xmmin32、 窗体上有一个文本框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

15、 +C *B、-D非法33、 在窗体上有两个列表框 List1、List2 , 一个命令按钮Command 1有5个列表项，为空，程序运行后，单击 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

16、 2 = 16 Then y = xIf x a 2 16 Then y = x a 2 + 1Print yEnd Sub运行时，单击按钮，在输入框中输入6后回车，窗体上将显示()A 6C 378、 D 6535、 下列程序段的执行结果是()。n = 1j = 1Do While j = 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(

17、)Do While x 10x = (x - 2) * (x + 3)G 3 和 50D 4 和 68C i = 10Doi = i - 1Loop Until i = 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

18、Loop While I= 60 Then1 = i + 4ElseIf a = 70 Then42、4344、End IfEnd SubPrint i=, iA、B、i=4i=3以下程序段的执行结果是()Do While j b - c Then a = b + cIf a - b 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、 以下程序段的执

19、行结果是（）。n = 2j = 1Do While j 4n = n * jPrint n;j = j + 1LoopA234G 2412B、2624D 24848、 运行下列程序，单击窗体后输出的结果是（）oPrivate Sub Form_Click() s = 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()

20、x = x + jDim i%, j%, x%, n%Next jx = 0Next in = InputBox()Print xFor i = 1 To nEnd SubForj = 1 To i运行时，单击命令按钮，如果在输入对话框中输入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运行时，先后单击 Comm

21、and! Command2钮，输出的结果为（）A、1 1G 1 2B、2 2D 2 151、 执行下列程序段后，窗体输出的结果是（）。Dim X As Integer, Y As IntegerY = Val(InputBox( 请输入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 C

22、ommand1_Click()Dim a%, b%a = 6: b = -1If a 0 Or b 0 Thena = a + 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

23、 * 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 Then t = y: y = z: z = t If x 5 4 755、 运行下列程序，单

24、击窗体后输出结果是（Private Sub Form_Click()i = i + 2Dim i%, j%, k%Loopi = 1: j = 1: k = 10Print jDo While i 10 Then Exit ForNext i=Str$(x)End Subx = x + 2运行后，单击按钮，Text1显示（）。A 6CC 10B、8D 100Fori = 1 To 358、 窗体上有一个命令按钮Command 1编写如下事件过程:Private Sub Command1_Click()Select Case iCase 1, 3a = a + 1Case 2, 4a = a + 2运行时，单击命令按钮，窗体上将显示（A、31、 459、 设有以下程序段：For i = 1 To 4For j = 6 To 1 Step -1Print i * jNext j, i则语句Print i * j的执行次数是（A 12B、1360、 下列程序段的执行结果是（）cFor i = 3 To 1 Step -1Print Spc（5 - i）;Forj = 1 To 2 *i - 1Print *;Next jPrintNext iA *End SelectNext iPrint aEnd SubCC 5D 6*B、*D*