《2022年3月计算机二级VB练习题及答案控制结构.docx》由会员分享，可在线阅读，更多相关《2022年3月计算机二级VB练习题及答案控制结构.docx（28页珍藏版）》请在金锄头文库上搜索。
1、 2022年3月计算机二级VB练习题及答案：控制结构一、 单项选择题 1. 下面的程序运行后，显示的结果是_。 Dim x% If x Then Print x+1 Else Print x A） 1 B） 0 C） 显示错误信息 D） 2 2. 语句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. 下面分段函数 , 下面不正确的程序段是_。 A） If x = 1
2、then f=sqr(x+1) f=x*x+3 B） If x = 1 then f=sqr(x+1) If x = 1 then f=sqr(x+1) _ Else f = x*x +3 D） If x =2 then y = 3 B）If x = 2 then y = 3 If x = 1 then y = 2 If x 0 then y = 1 If x 0 then y = 1 ElseIf x 1 then y = 2 Else y = 3 End If D）If x = 2 then y = 3 ElseIf x = 1 then y = 2 ElseIf x = 0 then y
3、 = 1 Else y = 0 End If 5. 下面的程序段，显示的结果是 _。 Dim x x= Int(RnD） + 5 Select Case x Case 5 Print “优秀” Case 4 Print “良好” Case 3 Print “及格” Case Else Print “不及格” End Select A） 不及格 B） 良好 C） 及格 D） 优秀 6. 下面程序段求两个数中较大数，_不正确。 A） Max = IIF(x y, x, y) B） If x y Then Max = x Else Max = y C） Max = x If y = x Max =
4、y D） If y = x Max = y Max = x 7. 以下循环语句能正常完毕的是_。 A） i = 5 Do i = i + 1 Loop Until i 0 then m=m+n3 Next n print n End sub 程序运行后，假如单击命令按钮，则窗体上显示的内容是_。 A）15 B）18 C）21 D）24 14. 窗体中存在命令按钮Command1，其Click大事代码如下： Private Sub Command1_Click() X = 2 Y = 1 If X * Y 0 End Sub 程序运行后，单击命令按钮，输出结果为_。 A）True B）False
5、 C）-1 D）1 15. 设a=5，b=6，c=7，d=8，执行以下语句后，x的值为_。 x=IIf(aB） And (cD） , 10, 20) A）10 B）20 C）True D）False 16. 执行以下程序段 a$= “abbacddcba“ For i = 6 To 2 Step -2 X= Mid(a,i,i) Y= Left(a,i) Z= Right(a,i) Z= UCase(X a End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是_。 A）7 9 B）34 0 C）9 7 D）死循环 22. 下面程序段的执行结果为_。 I=4 A=5 Do I=I+1
6、A=A+3 Loop Until I=9 Print“I=“;I Print“A=“;A A）I=9 B）I=10 C）I=10 D）I=9 A=20 A=20 A=23 A=23 23. 以下能够正确计算n!的程序是_。 A）Private Sub Command1_Click() N = 5 : X = 1 Do x = x * i i = i + 1 Loop While i n Print x End Sub 24. 在窗体上画一个名称为Command1的命令按钮，然后编写如下大事过程： Private Sub Command1_Click() Dim num As Integer n
7、um=1 Do Until num6 Print num; num=num+2.4 Loop End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是_。 A）1 3.4 5.8 B）1 3 5 C）1 4 7 D）很多据输出 25. 设有如下程序段 x=2 For i=1 to 10 step 2 x=x+i Next 运行以上程序后，X的值是_。 A）36 B）27 C）38 D）57 26. 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下大事过程： Private Sub Command1_Click() Dim i As Integer
8、,n As Integer For i=0 To 50 i=i+3 n=n+1 If i10 Then Exit For Next Text1.Text=Str(n) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是_。 A）2 B）3 C）4 D）5 27. 以下程序段的执行结果为_。 X=6 For K=1 To 10 Step -2 X=X+K Next K Print K;X A）-1 6 B）-1 16 C）1 6 D）11 31 28. 执行以下程序段 Dim x As Integer, i As Integer x = 0 For i = 20 To 1 Step
9、-2 x = x + i 5 Next i 后，x的值为_。 A）16 B）17 C）18 D）19 29. 在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写如下大事过程： Private Sub Command1_Click() n=Val(Text1.Text) For i=2 To n For j=2 To Sqr(i) If i Mod j=0 Then Exit For Next j If jSqr(i) Then Print i Next i End Sub 该大事过程的功能是_。 A）输出n以内的奇数 B）输出n以内的偶数 C）输出n以内的素
10、数 D）输出n以内能被j整除的数 30. 新建立窗体中画一个命令按钮，其中大事代码如下： For x=4 To 1 Step -1 For y=1 To 5-x Print Tab(y+5);“*“; Next y Print Next x 窗体运行后，单击命令按钮，输出结果是_。 A）* * * * B）* * * * C）* * * * D）* * * 31. 在窗体上画一个命令按钮，然后编写如下大事过程： Private Sub Commandl_Click() For i=1 To 4 x=4 For j=1 To 3 x=3 For k=1 To 2 x=x+6 Next k Next j Next i Print x End Sub 程序运行后，单击命令按钮，输出结果是_。 A）7 B）15 C）157 D）538 32. 在窗
