计算机二级VB试题.docx

《计算机二级VB试题.docx》由会员分享，可在线阅读，更多相关《计算机二级VB试题.docx（78页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、VB控制结构一、单选题1 .下面的程序运行后，显示的结果是。Dim x%If x Then Print x+1 Else Print xA) 1B) 0C)显示错误信息D)22 .语句If x =1 Then y =1,下面说法正确的是A) x=1和y =1均为赋值语句B) x =1和y =1均为关系表达式C) x =1为赋值语句，y =1为关系表达式D) x =1为关系表达式，y =1为赋值语句3 .下面分段函数,下面不正确的程序段是 oA) If x二1 then f=sqr (x+1)f=x*x+3B) If x 二1 then f=sqr (x+1)If x 1 then f=x*x

2、+3C) If x 二1 then f=sqr (x+1)_Else f = x*x +3Else f=sqr (x+1)4 .计算函数的值。，下面程序段中正确的是A) If x 0 then y =0If x 1 then y =1If x 2 then y =2If x =2 then y =3B) If x =2 then y =3If x 二1 then y =2If x 0 then y =1If x 0 then y =0C) If x 0 theny =0Elself x 0 theny =1Elself x 1 theny =2Elsey =3End IfD) If x=2 t

3、heny =3Elself x 二0 theny =1Elsey =0End If5.下面的程序段，显示的结果是一Dim xx= Int (RnD)+5Select Case xCase 5Print “优秀”Case 4Print “良好”Case 3Print “及格”Case ElsePrint “不及格”End SelectA)不及格B)良好C）及格D)优秀6.下面程序段求两个数中较大数，不正确。A) Max = IIF (xy, x, y)B) If x y Then Max 二 x Else Max = yC) Max = xIf y 二 x Max = yD) If y 二 x

4、Max = yMax = xE) 下列循环语句能正常结束的是。A) i =5Do1 = i +1Loop Until i 0B) i =1Do1 = i +2Loop Until i =10C) i =10Do1 = i -1Loop Until i 0Do i = i -2Loop Until i =18 .下面的程序段的运行结果是For i =3 To 1 Step -1Print Spc (5-i)For j =1 To 2* i-1Print $”；Next jPrintNext iA) $B) $C) $D) $9 .下列程序当在文本框输入“ABCD”时，窗体上显示的是0Privat

5、e Sub TextlChange ()Print Textl.Text；End SubA) ABCDB) ABCDC) AABABCABCDD) AABABCABCD10 .下列哪个程序段不能正确显示1!、2!、3!、4!的值A) for i =1 to 4n 二1for j =1 to in = n*jnext j print nnext iB) for i =1 to 4for j =1 to in =1n = n*jnext jprint nnext iC) n =1for j =1 to 4n = n*jprint nnext jD) n =1j =1do while j 二4n =

6、 n*jprint nj = j+1loop11 .下列程序段的执行结果为A=O:B=1A=A+B:B=B+A:Print A;BA=A+B:B=B+A:Print A;BA) 1235B) 1135C) 1334D) 123412.变量未赋值时，数值型变量的值为。A)0B)空串C) NullD)没任何值13 .在窗体上画一个名称为Commandl的命令按钮，然后编写如下事件过程:Private Sub Command1_C1ick ()For n=l To 20If n Mod 300 then m=m+n3Next n print nEnd sub程序运行后，如果单击命令按钮，则窗体上显示

7、的内容是，A) 15B) 18C) 21D) 2414 .窗体中存在命令按钮CommandL其Click事件代码如下：Private Sub Commandl_Click ()X =2Y =1If X * Y 1 Then Y = Y -1 Else Y =-1Print Y - X 0End Sub程序运行后，单击命令按钮，输出结果为 oA) TrueB) FalseC) -1D) 115.设a=5, b=6, c=7, d=8,执行下列语句后,x的值为x=IIf (aB) And (cD),10,20)A) 10B) 20C) TrueD) False16.执行以下程序段a$=abbacd

8、dcba”For i =6 To 2 Step -2X= Mid (a, i, i)Y= Left (a, i)Z= Right (a, i)Z= UCase (X & Y & Z)Next iPrint z输出结果为 OA) ABAB) BBABBAC) ABBABAD) AABAAB17.在窗体上画一个名称为Commandl的命令按钮，然后编写如下事件过程:Private Sub Command1_C1ick ()1234cl=Trim (Str (C)For i=l To 4PrintNextEnd Sub程序运行后，单击命令按钮，要求在窗体上显示如下内容:1121231234则在下划线

9、处应填入的内容为。A) Right (cl, i)B) Left (cl, i)C) Mid (cl, i,1)D) Mid (cl, i, i)18. InputBox函数返回值的类型为。A)数值B)字符串C)变体D)数值或字符串(视输入的数据而定)19. MsgBox函数返回值的类型为。A)整型数值B)字符串C)变体D)数值或字符串(视输入的数据而定)20 .窗体上画一个命令按钮和一个文本框，其名称分别为commandl和textl,把文本框的text属性设置为空白，然后编写如下事件过程：Private Sub Command1_Click ()a=InputBox ( aEnter an

10、 Integerw )b=InputBox ( uEnter an Integerw )Textl. Text=b+aEnd Sub程序运行后，单击命令按钮，如果在输入对话框中分别输入8和10,则文本框中显示的内容是 oA) 108B) 18C) 810D)出错21 .在窗体上画一个名称为Commandl的命令按钮，然后编写如下事件过程：Private Sub Command1_Click ()Dim a As Integer, s As Integera=8s=lDos=s+aa=a-lLoop While a 二0Print s;aEnd Sub程序运行后，单击命令按钮，则窗体上显示的内容

11、是一A)79B)340097D)死循环22.下面程序段的执行结果为 o1=4A=5Do1=1+1A =A+3Loop Until I=9Print r”；IPrint ；AA)1=9 B)1=10 C)1=10 D)1=9A=20 A=20 A=23 A=2323.以下能够正确计算n!的程序是 oA) Private Sub Commandl_Click ()N =5： X =1DoLoop While i nPrint xEnd SubB) Private Sub Command1_Click ()N =5： x =1： i =1Dox = x * ii = i +1Loop While i

12、 nPrint xEnd SubC) Private Sub Commandl_Click ()N =5： x =1： i =1Dox = x * ii = i +1Loop While i 二 nPrint xEnd SubD) Private Sub Command1_Click ()Dox = x * ii = i +1Loop While i nPrint xEnd Sub24 .在窗体上画一个名称为Commandl的命令按钮，然后编写如下事件过程:Private Sub Commandl_Click ()Dim num As Integernum=lDo Until num6Prin

13、t num;num=num+2.4LoopEnd Sub程序运行后，单击命令按钮，则窗体上显示的内容是 oA) 13.45.8B) 1350147D)无数据输出25 .设有如下程序段For i=l to 10 step 2x = x+iNext运行以上程序后，X的值是 oA) 36B) 27C) 38D) 5726.在窗体上画一个名称为Textl的文本框和一个名称为Commandl的命令按钮，然后编写如下事件过程：Private Sub Commandl Click ()Dim i As Integer, n As IntegerFor i=0 To 50i - i+3n=n+lIf i10

14、Then Exit ForNextTextl.Text=Str (n)End Sub程序运行后，单击命令按钮，在文本框中显示的值是。A) 2B) 3D)527 .下列程序段的执行结果为X=6For K=1 To 10 Step -2X = X+KNext KPrint K;XA) -16B) -116C) 16D) 113128 .执行以下程序段Dim x As Integer, i As Integerx =0For i =20 To 1 Step -2x = x + i 5Next i后，x的值为 oA) 16B) 17D)1929 .在窗体上画一个名称为Commandl的命令按钮和一个名

15、称为Textl的文本框，然后编写如下事件过程：Private Sub Command1_Click ()n=Val (Textl. Text)For i=2 To nFor j=2 To Sqr (i)If i Mod j=0 Then Exit ForNext jIf jSqr (i) Then Print iNext iEnd Sub该事件过程的功能是 oA)输出n以内的奇数B)输出n以内的偶数C)输出n以内的素数D)输出n以内能被j整除的数30 .新建立窗体中画一个命令按钮，其中事件代码如下：For x=4 To 1 Step -1For y=l To 5-xPrint Tab (y+5

16、);PrintNext x窗体运行后，单击命令按钮，输出结果是A) *B) *C) *D) *31 .在窗体上画一个命令按钮，然后编写如下事件过程:Private Sub Command1_Click ()For i=l To 4x=3For k=l To 2x=x+6Next kNext jNext iPrint xEnd Sub程序运行后，单击命令按钮，输出结果是 OA) 7B) 15C) 157D) 53832 .在窗体上有一个命令按钮，并有如下代码，程序执行后，单击命令按钮输出结果为。Private Sub Command1 Click ()K=0For J=1 To 2For 1=1

17、 To 3K=I+1Next IFor 1=1 To 7K=K+1Next INext JPrint KEnd SubA) 10B) 6C) 11D) 1633 .在窗体上画一个命令按钮和两个标签,其名称分别为CommandDLabell和Label2,然后编写如下事件过程：Private Sub Commandl_Click ()a=0For i=l To 10a=a+lb=0For j=l To 10a=a+lb=b+2Next jLabel1. Caption=Str (A)Labe12. Caption=Str (B)End Sub程序运行后，单击命令按钮，在标签Label 1和Lab

18、el2中显示的内容分别是。A) 10和20B) 20和110C) 200和110D) 110和2034 .有一个分段函数，当X0时，Y=-l；当X=0时，丫=0；当X0时，丫=1。该分段函数在程序段中可表达为 oA) If X0 Then Y=-lIf X=0 Then Y=0Else Y=1B) If X0 Then Y=1If X=0 Then Y=0Else Y=-lC) If X 0 Then Y=-lElself X=0 Then Y=0Else Y=1End IfD) If X0 ThenY=-lY-0ElseY=1End if35 .下列语句正确的是。A) If X3*Y , X

19、Y Then Y=X3B) If X 3*Y And XY Then Y=X3C) If X 3*Y ： XY Then Y=X3D) If X 3*Y And XY Then Y=X*336 .下列程序的执行结果为。A=75If A60 Then1-1Elself A70 Then1=2Elself A80 Then1=3Elself A90 Then1:4EndlfB) 1=2C) 1=3D) 1=437 .设 a=a，b=“b，c=c，d=“d”，执行语句 x = IIf (aB) Or (c D),“A，B)后，x 的值为。A) “a”B) “b”C) “B”D) “A”38 .在窗体

20、上画一个命令按钮，名称为Commandl。然后编写如下程序：Private Sub Command1_Click ()for 1=1 To 4For J=0 To IPrint Chr$(65+1);Next JPrintNext IEnd Sub程序运行后，如果单击命令按钮，则在窗体上显示的内容为是 oA) BBCCCDDDDEEEEEB) ABBCCCDDDDC) BCCDDDEEEED) AABBBCCCCDDDDD39 .有如卜程序：Private Sub Form_Click ()xcase=lt=InputBox (“请输入一个数：”)Select Case tCase Is0Y=

21、xcase+1Case Is=OY=xcase+2Case ElseY=xcase+3End SelectPrint xcase;YEnd Sub若输入T,输出结果为：A) 14B) 13C) 12D) 1140.下列程序段中，若要使输出结果为输入的两个数中较大者的平方，空白处应填写语句。x=Val (InputBox (“请输入 x 的值：”)y=Val (InputBox (“请输入 y 的值:)s=x ：s=s*sPrint sA) If (xB) If xy Then s=yC) If (xD) If xy s=y41 .设X初值为0,则下列循环语句执行后，X的值等于。For i=l

22、To 10 Step 2X=X+INext iA) 25B) 36C) 24D) 2742 .执行以下程序段时，ox=lDo While x0x=x*xprint x;LoopA)循环体将执行1次B)循环体将执行。次C)循环体将执行无限次D)系统将提示语法错误43 .设窗体中包含1个命令按钮Command 1,1个标签Label 1;并有以下的事件过程。程序运行后，单击Commandl按钮，标签中显示的内容是。Private Sub Commandl_Click ()Dim I As Integer, n As Integer1=1： n=0Do While I 101=1*(1+1)Loop

23、Label 1=1&”& nEnd SubA) 6-3B) 24-9C) 42-9D) 6-944.有如下程序：Do循环体Loop While条件则以下叙述中错误的是.A)若“条件”是一个为0的常数，则一次也不执行循环体B)“条件”可以是关系表达式、逻辑表达式或常数C)循环体中可以使用Exit Do语句D)如果“条件”总是为True,则不停地执行循环体45.有如下程序：For i=l to 3For j=5 to 1 Step -1Next jNext i则语句Print i*j的执行次数是。A) 15B) 16C) 17D) 1846.在窗体上画一个命令按钮，名称为Commandl,然后编写

24、如下事件过程:Private Sub Command1_C1ick ()Dim i As Integer, x As IntegerFor i =1 To 6If i =1 Then x = iIf i 二4 Thenx = x +1Elsex = x +2End IfNext iPrint xEnd Sub程序运行后，单击命令按钮，其输出结果为0A)9B) 6C) 12D) 1547.在窗体上画一个名称为Commandl的命令按钮，然后编写如下事件过程：Private Sub Commandl_Click () c =ABCD”For n =1 To 4Print NextEnd Sub程序

25、运行后，单击命令按钮，要求在窗体上显示如下内容： D CDBCDABCD则在处应填入的内容为 oA) Left (c, n)B) Right (c, n)C) Mid (c, n,1)D) Mid (c, n, n)48.如果A为整数，且|A|=100,则打印“OK”，否则打印Error,表示这个条件语句的单行语句是 oA) If Int (A)=A And Sqr (A)=100 Then Print Ok Else Print uErrornB) If Int (A)=A And (A=100, A=T00) Then Print “Ok” Else Print “Error”C) If

26、Fix (A)=A And Abs (A)=100 Then Print Ok Else Print uErrornD) If Fix (A)=AAndA=100 And A =-100 Then Print 0k Else Print *Error n49.在窗体上画一个命令按钮和一个文本框，名称分别为Commandl和Textl,然后编写如下程序：Private Sub Command1_Click ()a = InputBox (“请输入日期(广31)”)t =”旅游景点：_& Ilf (a0 And a=10,“长城”，_& Ilf (a10 And a =20,“故宫”，“)_& I

27、lf (a20 And a =30,颐和园，”)Textl. Text = tEnd Sub程序运行后，如果从键盘输入16,则在文本框中显示的内容是。A)旅游景点：长城故宫B)旅游景点：长城颐和园C)旅游景点：颐和园D)旅游景点：故宫50 .下列程序段显示个。For i=l to 5For j=2 to 5PrintNext jNext iA) 25B) 10C) 20D) 15在51 .要使下面程序段能正确显示1!、2!、3!、4!的值，第一行横线处应填写For j=l to 4n=n*jPrint nNext jA) n=0B) n=lC) j =1D) j=052 .在窗体上画一个名称为

28、Commandl的命令按钮，然后编写如下事件过程:Private Sub Commandl_Click () a =ABBACKDIEKEI”For I =9 To 2 Step -3x = Mid (a, I, I)y = Left (a, I)z = Right (a, I)z = x & y & zNext IPrint zEnd Sub程序运行后，如果单击命令按钮，则输出结果是 OA) BACABBKEIB) EKEIABBACKDIEAACKEIEKEIC) DEIEKEIABBACKDIEKEID) ACKABBKEI53 .在窗体上画一个名称为Commandl的命令按钮，然后编写

29、如下事件过程:Private Sub Commandl_Click ()Ml=lM2=2Do While M25M1=M1*M2M2=M2+1LoopPrint ;M1,M2=”;M2End Sub程序运行后，如果单击命令按钮，输出结果是。A) Ml=24 M2=5B) Ml=1 M2=2C) Ml=24M2=5D) Ml=1M2=254 .阅读下面的程序段：For i=l To 3For j=l To iFor k=j To 3a=a+lNext kNext jNext i执行上面的三重循环后，a的值为 oA) 3B) 9C) 14D) 2155 .在窗体上画两个文本框(其Name属性分别为

30、Textl和Text2)和一个命令按钮(其 Name属性为Commandl),然后编写如下事件过程：Private Sub Command1 Click ()x=0Do While x 50x=(x+2)*(x+3)n=n+lLoopTextl.Text=Str (n)Text2. Text=Str (x)End Sub程序运行后，单击命令按钮，在两个文本框中显示的值分别为A) 1和0B) 2和72C) 3和50D) 4168Text2的文本框和一个名称为Commandl的命56 .在窗体上画两个名称分别为Textl、令按钮，然后编写如下事件过程：Private Sub Commandl_Cl

31、ick ()Dim x As Integer, n As Integerx=ln=0Do While x 20x=x*3n 二 n+1LoopTextl. Text=Str (x)&a, mp;n, bsp; Text2. Text=Str (n)End Sub程序运行后，单击命令按钮，在两个文本框中显示的值分别是A) 15和1B) 27和3C) 195和3D) 600和457 .下列语句组中，不能循环100次的有 oA) N=0DON=N+1LOOP UNTIL N=100B) N=0DON=N+1LOOP WHILE N 100C) N二0DON=N+1LOOP UNTIL N 100D)

32、 N=0DO WHILE N 100N=N+lLOOP58 .假定有如下事件过程：Private Sub Form Click ()Dim x As Integerx=ln=0Do While x 28x=x*3n=n+1LoopPrint x, nEnd Sub程序运行后，单击窗体，输出结果是 OA) 814B) 563C) 281D) 243559 .新建窗体上新建立一个命令按钮，其中有如下事件代码:Private Sub Commandl_Click ()For G =10 To 19 Step 31 =1+1Next GPrint IEnd Sub窗体运行后，单击命令按钮，输出结果为

33、OA) 3B) 4C) 5D) 660.在窗体上画一个名称为Commandl的命令按钮，然后编写如下事件过程:Private Sub Commandl_Click ()x = InputBox (input)Select Case xCase 1,3Print “分支1”Case Is 4Print “分支2”Case ElsePrint “Else 分支”End Sub程序运行后，如果在输入对话框中输入2,则窗体上显示的是 oA)分支1B)分支2C) Else分支D)程序出错61 .以下Case语句中错误的是。A) Case 0 To 10B) Case Is10C) Case Is10 A

34、nd Is50D) Case 3,5, Is1062 .在窗体上画一个名称为Commandl的命令按钮，然后编写如下事件过程: Private Sub Commandl_Click () x =0n = InputBox () For i =1 To n For j =1 To i x = x +1 Next j Next i Print x程序运行后，单击命令按钮，如果输入3,则在窗体上显示的内容是一A) 3B) 4C) 5D) 663.下列程序代码，执行后单击鼠标结果为。Private Sub Form_Click ()A =0： B =0For I =-1 To -2 Step -1Fo

35、r J =1 To 2B = B +1Next JA = A +1Next IPrint A; BEnd SubA) 24B) -22042D)2364 . Private Sub Form_Click ()Dim Check, CounterCheck=ODoDo While Counter 20Counter=Counter+lIf Counter=10 ThenCheck=FalseExit DoEnd IfLoopLoop Until Check=FalsePrint Counter, CheckEnd Sub程序运行后，单击窗体，输出结果为A) 150B) 20-1C) 10 Tru

36、eD) 10 False65 .设有如下程序：Private Sub Commandl_Click ()Dim sum As Double, X As Doublesum=0For i=l To 5x=n/in=n+lsum=sum+xNextEnd Sub该程序通过For循环计算一个表达式的值，这个表达式是A) 1+1/2+2/3+3/4+4/5B) 1+1/2+2/3+3/4C) 1/2+2/3+3/4+4/5D) 1+1/2+1/3+1/4+1/566 .有如下程序：Private Sub Form_Click ()Dim i As Integer, Sum As IntegerSum=

37、0For i=2 to 10If i Mod 200 And i Mod 3=0 ThenSum=Sum+iEnd IfNext iPrint Sum程序运行后，单击窗体，输出结果为 OA) 12B) 30C) 24D) 1867 .设有如下程序Private Sub Commandl_Click ()Dim c As Integer, d As Integerc=4d=InputBox (请输入一个整数)Do While d0If dc Thenc=c+lEnd Ifd=InputBox (“请输入一个整数”)LoopPrint c+dEnd Sub程序运行后，单击命令按钮，如果在输入对话框

38、中依次输入1、2、3、4、5、6、7、8、9、0,则输出结果是 oA) 12B) 11D)968.下列程序段的执行结果为 oN=10For K=N To 1 Step-1X=Sqr (K)X=X-2Next KPrint X-2A) -3B) -1C) 1D) 1.1622776569.在窗体上画一个名称为Commandl的命令按钮，一个名称为Label 1的标签，然后编写如下事件过程：Private Sub Commandl_Click ()s =0For i =1 To 15x =2* i -1If x Mod 3=0 Then s =s +1Next iLabelL Caption =

39、sEnd Sub程序运行后，单击命令按钮，则标签中显示的内容是 oA) 1B) 5C) 27D) 4570.在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Commandl_Click ()x=0Do Until x=-la=InputBox (“请输入a的值”)a=Val (A)b=InputBox (“请输入b的值”)b=Val (B)x=InputBox (“请输入x的值”)x=Val (x)a=a+b+xLOOPPrint aEnd Sub程序运行后，单击命令按钮，依次在输入对话框中输入5、4、3、2、1、-1,输出结果为。A)2B) 3C) 14D) 1571

40、.语句：If表达式Then中的表达式不可以是表达式。A)算术B)逻辑C)关系D)字符72 .下列语句执行后，变量w的值是 oW=Choose (weekday (2009,4,1)，Red,Green，Blue”, w Yelloww )A) NullB) RedC) BlueD) Yellow73 .下面if语句统计满足性别为男、职务为副教授以上、年龄小于40岁条件的人数,不正确的语句是。A) if sex二“男“ And age40 And InStr (duty,“教授)0 Then n=n+lB) if sex=“男“ And age40 And (duty=教授 Or duty二副教

41、授”)Then n=n+lC) if sex二男And age40 And Right (duty,2)二教授 Then n=n+lD) if sex=男 And age40 And duty二”教授 And duty二”副教授 Then n=n+l74 .关于Do-Loop循环结构执行循环体次数的描述正确的是 oA) Do WhileLoop循环和DoLoop Until循环至少都执行一次B) Do WhileLoop循环和DoLoop Until循环可能都不执行C) Do WhileLoop循环至少执行一次,DoLoop Until循环可能不执行D) Do WhileLoop循环可能不执行

42、,DoLoop Until循环至少执行一次75 .下面的程序段的运行结果是 oPrivate Sub Command1_ClickFor i=l To 5n=0For j=i To 5n=n+lNext jNext iPrint nEnd SubA) 1B) 5C) 10D) 15二、填空题1.下面程序的输出结果是【1】ox = Int (RnD)+3If x,28 Then y = x*2+1If x2=9 Then y = x2-2If x、28 Then y = x、32.下面程序的功能是2oDim n%, m%Private Sub Textl_KeyPress (KeyAscii As Integer)If KeyAscii =13 ThenIf IsNumeric (Textl. Text) ThenSelect Case Textl. Text Mod 2Case 0n = n + Textl. TextCase 1m = m + Textl. TextEnd SelectEnd IfTextl