计算机二级VB试题

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 then f=sqr（x+1） f=x*x+3

B） If x 》= 1 then f=sqr（x+1） If x 《 1 then f=x*x +3

C） If x 》= 1 then f=sqr（x+1） _ Else f = x*x +3

D） If x 《 1 then f=x*x +3 _

Else f=sqr（x+1）

4. 计算函数的值。 ， 下面程序段中正确的是______。 A）If x 《 0 then y = 0 If x 《 1 then y = 1 If x 《 2 then y = 2 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 = 0 C）If x 《 0 then y = 0

ElseIf 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 = 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 = y D） If y 》= x Max = y Max = x

7. 下列循环语句能正常结束的是________。 A） i = 5 Do i = i + 1

Loop Until i 《 0 B） i = 1 Do i = i + 2

Loop Until i = 10 C） i = 10 Do i = i - 1

Loop Until i 《 0 D） i = 6

Do i = i - 2 Loop Until i = 1

8. 下面的程序段的运行结果是 ________。 For i = 3 To 1 Step -1 Print Spc（5-i） For j = 1 To 2 * i-1 Print “$”; Next j Print Next i A） $ $$$ $$$$$ B）$$$$$ $$$ $ C）$$$$$ $$$ $ D）$$$$$ $$$

$

9. 下列程序当在文本框输入“ABCD”时，窗体上显示的是________ 。 Private Sub Text1_Change（） Print Text1.Text； End Sub A） ABCD B） A B C D

C） AABABCABCD D） A AB ABC ABCD

10. 下列哪个程序段不能正确显示1！、2！、3！、4！的值________ 。 A）for i = 1 to 4 n = 1

for j = 1 to i n = n*j next j print n

next i

B）for i = 1 to 4 for j = 1 to i n = 1 n = n*j next j print n next i C）n = 1 for j = 1 to 4 n = n*j print n next j D）n = 1 j = 1

do while j 《= 4 n = n*j print n j = j+1 loop

11. 下列程序段的执行结果为______。 A=0:B=1

A=A+B:B=B+A:Print A;B A=A+B:B=B+A:Print A;B A）1 2 3 5 B）1 1 3 5 C）1 3 3 4 D）1 2 3 4

12. 变量未赋值时，数值型变量的值为______。 A）0 B）空串“” C）Null D）没任何值

13. 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click（） For n=1 To 20

If n Mod 3《》0 then m=m+n\\3 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 《 1 Then Y = Y - 1 Else Y = -1 Print Y - X 》 0 End Sub

程序运行后，单击命令按钮，输出结果为______。 A）True B）False C）-1 D）1

15. 设a=5，b=6，c=7，d=8，执行下列语句后，x的值为______。 x=IIf（（a》B） And （c》D） ， 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 & Y & Z） Next i Print z

输出结果为______。 A）ABA B）BBABBA C）ABBABA D）AABAAB

17. 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click（） c=1234

c1=Trim（Str（C）） For i=1 To 4 Print ____ Next

End Sub

程序运行后，单击命令按钮，要求在窗体上显示如下内容： 1 12 123 1234

则在下划线处应填入的内容为______。 A）Right（c1，i） B）Left（c1，i） C）Mid（c1，i，1） D）Mid（c1，i，i）

18. InputBox函数返回值的类型为______。 A）数值 B）字符串 C）变体

D）数值或字符串（视输入的数据而定） 19．MsgBox函数返回值的类型为______。 A）整型数值 B）字符串 C）变体

D）数值或字符串（视输入的数据而定）

20. 窗体上画一个命令按钮和一个文本框，其名称分别为command1 和text1，把文本框的text属性设置为空白，然后编写如下事件过程：

Private Sub Command1_Click（） a=InputBox（“Enter an Integer”） b=InputBox（“Enter an Integer”） Text1.Text=b+a End Sub

程序运行后，单击命令按钮，如果在输入对话框中分别输入8和10，则文本框中显示的内容是______。

A）108 B）18 C）810 D）出错

21. 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click（） Dim a As Integer，s As Integer a=8 s=1 Do s=s+a a=a-1

Loop While a《=0 Print s;a

End Sub

程序运行后，单击命令按钮，则窗体上显示的内容是______。 A）7 9 B）34 0 C）9 7 D）死循环

22. 下面程序段的执行结果为______。 I=4 A=5 Do I=I+1 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

B）Private Sub Command1_Click（） N = 5 ： x = 1 ： i = 1 Do x = x * i i = i + 1

Loop While i 《 n Print x End Sub

C）Private Sub Command1_Click（） N = 5 ： x = 1 ： i = 1 Do x = x * i i = i + 1

Loop While i 《= n Print x End Sub

D）Private Sub Command1_Click（） N = 5 ： x = 1 ： i = 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 num=1

Do Until num》6 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，n As Integer For i=0 To 50 i=i+3 n=n+1

If i》10 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 -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 j》Sqr（i） Then Print i Next i End Sub

该事件过程的功能是______。 A）输出n以内的奇数 B）输出n以内的偶数 C）输出n以内的素数

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. 在窗体上有一个命令按钮，并有如下代码，程序执行后，单击命令按钮输出结果为______。

Private Sub Command1_Click（） K=0

For J=1 To 2 For I=1 To 3 K=I+1 Next I

For I=1 To 7 K=K+1 Next I Next J Print K End Sub A）10 B）6 C）11 D）16

33. 在窗体上画一个命令按钮和两个标签，其名称分别为Command1）Label1和Label2，然后编写如下事件过程：

Private Sub Command1_Click（） a=0

For i=1 To 10 a=a+1 b=0

For j=1 To 10 a=a+1 b=b+2 Next j Next i

Label1.Caption=Str（A） Label2.Caption=Str（B） End Sub

程序运行后，单击命令按钮，在标签Label1和Label2中显示的内容分别是______。 A）10和20 B）20和110 C）200和110 D）110和20

34. 有一个分段函数，当X《0时，Y=-1；当X=0时，Y=0；当X》0时，Y=1。该分段函数在程序段中可表达为______。

A）If X《0 Then Y=-1 If X=0 Then Y=0 Else Y=1

B）If X》0 Then Y=1 If X=0 Then Y=0 Else Y=-1

C）If X《0 Then Y=-1 ElseIf X=0 Then Y=0 Else Y=1 End If

D）If X《0 Then Y=-1

ElseIf X=0 Then Y=0 Else Y=1 End if

35. 下列语句正确的是______。 A）If X《3*Y ， X》Y Then Y=X3 B）If X《3*Y And X》Y Then Y=X3 C）If X《3*Y ： X》Y Then Y=X3 D）If X《3*Y And X》Y Then Y=X* *3 36. 下列程序的执行结果为______。 A=75

If A》60 Then I=1

ElseIf A》70 Then I=2

ElseIf A》80 Then I=3

ElseIf A》90 Then I=4 EndIf

Print“I=”;I

A）I=1 B）I=2 C）I=3 D）I=4

37. 设a=“a”，b=“b”，c=“c”，d=“d”，执行语句x = IIf（（a 《 B） Or （c 》 D）， “A”， “B”）后，x的值为______。

A）“a” B）“b” C）“B” D）“A”

38. 在窗体上画一个命令按钮，名称为Command1。然后编写如下程序： Private Sub Command1_Click（） for I=1 To 4 For J=0 To I Print Chr$（65+I）; Next J Print Next I End Sub

程序运行后，如果单击命令按钮，则在窗体上显示的内容为是______。 A）BB CCC

DDDD EEEEE B）A BB CCC DDDD C）B CC DDD EEEE D）AA BBB CCCC DDDDD

39. 有如下程序：

Private Sub Form_Click（） xcase=1

t=InputBox（“请输入一个数：”） Select Case t Case Is》0 Y=xcase+1 Case Is=0

Y=xcase+2 Case Else Y=xcase+3 End Select Print xcase;Y End Sub

若输入-1，输出结果为： A）1 4 B）1 3 C）1 2 D）1 1

40. 下列程序段中，若要使输出结果为输入的两个数中较大者的平方，空白处应填写______语句。

x=Val（InputBox（“请输入 x的值：”）） y=Val（InputBox（“请输入 y的值：”）） s=x ： ______________ s=s*s Print s

A）If （x B）If x》y Then s=y C）If （x D）If x》y s=y

41. 设X初值为0，则下列循环语句执行后，X的值等于_______。 For i=1 To 10 Step 2

X=X+I Next i A）25 B）36 C）24 D）27

42. 执行以下程序段时，______。 x=1

Do While x《》0 x=x*x print x; Loop

A）循环体将执行1次 B）循环体将执行0次 C）循环体将执行无限次 D）系统将提示语法错误

43. 设窗体中包含1个命令按钮Command1，1个标签Label1;并有以下的事件过程。程序运行后，单击Command1按钮，标签中显示的内容是_______。

Private Sub Command1_Click（） Dim I As Integer，n As Integer I=1： n=0 Do While I《10

n=n+I I=I*（I+1） Loop

Label1=I & ”-” & n End Sub A）6-3 B）24-9 C）42-9 D）6-9

44. 有如下程序： Do 循环体

Loop While 《条件》

则以下叙述中错误的是_______。

A）若“条件”是一个为0 的常数，则一次也不执行循环体 B）“条件”可以是关系表达式、逻辑表达式或常数 C）循环体中可以使用Exit Do语句

D）如果“条件”总是为True，则不停地执行循环体 45. 有如下程序： For i=1 to 3

For j=5 to 1 Step –1 Print i*j

Next j Next i

则语句Print i*j的执行次数是_______。 A）15 B）16 C）17 D）18

46. 在窗体上画一个命令按钮，名称为Command1，然后编写如下事件过程： Private Sub Command1_Click（） Dim i As Integer， x As Integer For i = 1 To 6 If i = 1 Then x = i If i 《= 4 Then x = x + 1 Else x = x + 2 End If Next i Print x End Sub

程序运行后，单击命令按钮，其输出结果为_______。 A）9

B）6 C）12 D）15

47. 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click（） c = “ABCD” For n = 1 To 4 Print _________ Next End Sub

程序运行后，单击命令按钮，要求在窗体上显示如下内容： D CD BCD ABCD

则在________处应填入的内容为_______。 A）Left（c，n） B）Right（c，n） C）Mid（c，n，1） D）Mid（c，n，n）

48. 如果A为整数，且|A|》=100，则打印“OK”，否则打印“Error”，表示这个条件语句的单行语句是______。

A） If Int（A）=A And Sqr（A）》=100 Then Print “Ok” Else Print “Error” B） If Int（A）=A And （A》=100，A《=-100） Then Print “Ok” Else Print “Error” C） If Fix（A）=A And Abs（A）》=100 Then Print “Ok” Else Print “Error” D） If Fix（A）=A And A》=100 And A《=-100 Then Print “Ok” Else Print “Error” 49. 在窗体上画一个命令按钮和一个文本框，名称分别为Command1和Text1，然后编写如下程序：

Private Sub Command1_Click（）

a = InputBox（“请输入日期（1~31）”） t = “旅游景点：” _

& IIf（a 》 0 And a 《= 10， “长城”， “”） _ & IIf（a 》 10 And a 《= 20， “故宫”， “”） _ & IIf（a 》 20 And a 《= 30， “颐和园”， “”） Text1.Text = t End Sub

程序运行后，如果从键盘输入16，则在文本框中显示的内容是_______。 A）旅游景点：长城故宫 B）旅游景点：长城颐和园 C）旅游景点：颐和园 D）旅游景点：故宫

50. 下列程序段显示______个“*”。 For i=1 to 5 For j=2 to 5

Print ”*” Next j Next i A）25 B）10 C）20 D）15在

51. 要使下面程序段能正确显示1！、2！、3！、4！的值，第一行横线处应填写______。 ____________ For j=1 to 4 n=n*j Print n Next j A）n=0 B）n=1 C）j =1 D）j=0

52．在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click（） a = “ABBACKDIEKEI” For I = 9 To 2 Step -3 x = Mid（a， I， I）

y = Left（a， I） z = Right（a， I） z = x & y & z Next I Print z End Sub

程序运行后，如果单击命令按钮，则输出结果是______。 A）BACABBKEI

B）EKEIABBACKDIEAACKEIEKEI C）DEIEKEIABBACKDIEKEI D）ACKABBKEI

53．在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click（） M1=1 M2=2

Do While M2《》5 M1=M1*M2 M2=M2+1 Loop

Print “M1=”;M1，“M2=”;M2 End Sub

程序运行后，如果单击命令按钮，输出结果是______。

A）M1= 24 M2= 5 B）M1= 1 M2= 2 C）M1= 24 M2= 5 D）M1= 1 M2= 2

54．阅读下面的程序段： For i=1 To 3 For j=1 To i For k=j To 3 a=a+1 Next k Next j Next i

执行上面的三重循环后，a 的值为______ 。 A） 3 B） 9 C） 14 D） 21

55. 在窗体上画两个文本框（其Name属性分别为Text1和Text2）和一个命令按钮（其Name属性为Commandl），然后编写如下事件过程：

Private Sub Commandl_Click（）

x=0

Do While x《50 x=（x+2）*（x+3） n=n+1 Loop

Text1.Text=Str（n） Text2.Text=Str（x） End Sub

程序运行后，单击命令按钮，在两个文本框中显示的值分别为______。 A）1和0 B）2和72 C）3和50 D）4168

56. 在窗体上画两个名称分别为Text1、Text2的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：

Private Sub Command1_Click（） Dim x As Integer，n As Integer x=1 n=0

Do While x《20 x=x*3 n=n+1

Loop

Text1.Text=Str（x）

&a， mp;n， bsp; Text2.Text=Str（n） End Sub

程序运行后，单击命令按钮，在两个文本框中显示的值分别是______。 A）15和1 B）27和3 C）195和3 D）600和4

57. 下列语句组中，不能循环100次的有 ______。 A）N=0 DO N=N+1

LOOP UNTIL N》=100 B）N=0 DO N=N+1

LOOP WHILE N《100 C）N=0 DO N=N+1

LOOP UNTIL N《100

D）N=0

DO WHILE N《100 N=N+1 LOOP

58. 假定有如下事件过程： Private Sub Form_Click（） Dim x As Integer x=1 n=0

Do While x《28 x=x*3 n=n+1 Loop Print x， n End Sub

程序运行后，单击窗体，输出结果是______。 A）81 4 B）56 3 C）28 1 D）243 5

59. 新建窗体上新建立一个命令按钮，其中有如下事件代码： Private Sub Command1_Click（）

I = 0

For G = 10 To 19 Step 3 I = I + 1 Next G Print I End Sub

窗体运行后，单击命令按钮，输出结果为______。 A）3 B）4 C）5 D）6

60. 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click（） x = InputBox（“input”） Select Case x Case 1， 3 Print “分支 1” Case Is 》 4 Print “分支 2” Case Else

Print “Else 分支” End Select

End Sub

程序运行后，如果在输入对话框中输入2，则窗体上显示的是______。 A）分支 1 B）分支 2 C）Else 分支 D）程序出错

61. 以下Case语句中错误的是______。 A）Case 0 To 10 B）Case Is》10

C）Case Is》10 And Is《50 D）Case 3，5，Is》10

62. 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click（） x = 0

n = InputBox（“”） For i = 1 To n For j = 1 To i x = x + 1 Next j Next i Print x End Sub

程序运行后，单击命令按钮，如果输入3，则在窗体上显示的内容是______。 A） 3 B） 4 C） 5 D） 6

63. 下列程序代码，执行后单击鼠标结果为______。 Private Sub Form_Click（） A = 0： B = 0

For I = -1 To -2 Step -1 For J = 1 To 2 B = B + 1 Next J A = A + 1 Next I Print A; B End Sub A）2 4 B）-2 2 C）4 2 D）2 3

64. Private Sub Form_Click（） Dim Check，Counter

Check=0 Do

Do While Counter《20 Counter=Counter+1 If Counter=10 Then Check=False Exit Do End If Loop

Loop Until Check=False Print Counter， Check End Sub

程序运行后，单击窗体，输出结果为______。 A）15 0 B）20 -1 C）10 True D）10 False 65. 设有如下程序：

Private Sub Command1_Click（） Dim sum As Double，X As Double sum=0 n=0

For i=1 To 5 x=n/i n=n+1 sum=sum+x Next End Sub

该程序通过For循环计算一个表达式的值，这个表达式是______。 A）1+1/2+2/3+3/4+4/5 B）1+1/2+2/3+3/4 C）1/2+2/3+3/4+4/5 D）1+1/2+1/3+1/4+1/5 66. 有如下程序：

Private Sub Form_Click（） Dim i As Integer， Sum As Integer Sum=0

For i=2 to 10

If i Mod 2《》0 And i Mod 3=0 Then Sum=Sum+i End If Next i Print Sum End Sub

程序运行后，单击窗体，输出结果为______。 A）12 B）30 C）24 D）18

67. 设有如下程序

Private Sub Command1_Click（） Dim c As Integer，d As Integer c=4

d=InputBox（“请输入一个整数”） Do While d》0 If d》c Then c=c+1 End If

d=InputBox（“请输入一个整数”） Loop Print c+d End Sub

程序运行后，单击命令按钮，如果在输入对话框中依次输入1、2、3、4、5、6、7、8、9、0，则输出结果是______。

A）12 B）11

C）10 D）9

68. 下列程序段的执行结果为______。 N=10

For K=N To 1 Step-1 X=Sqr（K） X=X-2 Next K Print X-2 A）-3 B）-1 C）1

D）1.16227765

69. 在窗体上画一个名称为Command1的命令按钮，一个名称为Label1的标签，然后编写如下事件过程：

Private Sub Command1_Click（） s = 0

For i = 1 To 15 x = 2 * i -1

If x Mod 3 = 0 Then s =s + 1 Next i

Label1.Caption = s

End Sub

程序运行后，单击命令按钮，则标签中显示的内容是______。 A）1 B）5 C）27 D）45

70. 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click（） x=0

Do Until x=-1

a=InputBox（“请输入a的值”） a=Val（A）

b=InputBox（“请输入b的值”） b=Val（B）

x=InputBox（“请输入x的值”） x=Val（x） a=a+b+x LOOP Print a End Sub

程序运行后，单击命令按钮，依次在输入对话框中输入5、4、3、2、1、-1，输出结果为______。

A）2 B）3 C）14 D）15

71．语句：If 表达式 Then??中的表达式不可以是______表达式。 A）算术 B）逻辑 C）关系 D）字符

72．下列语句执行后，变量w的值是______。

W=Choose（weekday（”2009，4，1”）， ”Red”， ”Green”， ”Blue”， ”Yellow”） A）Null B）Red C）Blue D）Yellow

73．下面if语句统计满足性别为男、职务为副教授以上、年龄小于40岁条件的人数，不正确的语句是______。

A）if sex=”男” And age《40 And InStr（duty， ”教授”）》0 Then n=n+1 B）if sex=”男” And age《40 And （duty=”教授” Or duty=”副教授”） Then n=n+1 C）if sex=”男” And age《40 And Right（duty， 2）=”教授” Then n=n+1 D）if sex=”男” And age《40 And duty=”教授” And duty=”副教授” Then n=n+1 74. 关于Do?Loop循环结构执行循环体次数的描述正确的是_______。

A）Do While?Loop循环和Do?Loop Until循环至少都执行一次 B）Do While?Loop循环和Do?Loop Until循环可能都不执行

C）Do While?Loop循环至少执行一次，Do?Loop Until循环可能不执行 D）Do While?Loop循环可能不执行，Do?Loop Until循环至少执行一次 75.下面的程序段的运行结果是_______。 Private Sub Command1_Click For i=1 To 5 n=0

For j=i To 5 n=n+1 Next j Next i Print n End Sub A）1 B）5 C）10 D）15 二、 填空题

1. 下面程序的输出结果是___【1】____ 。 x = Int（RnD） +3

If x^2 》 8 Then y = x^2 + 1

If x^2 = 9 Then y = x^2 - 2 If x^2 《 8 Then y = x^3

2. 下面程序的功能是___【2】____。 Dim n%，m%

Private Sub Text1_KeyPress（KeyAscii As Integer） If KeyAscii = 13 Then

If IsNumeric（Text1.Text） Then Select Case Text1.Text Mod 2 Case 0

n = n + Text1.Text Case 1

m = m + Text1.Text End Select End If

Text1.Text = “” Text1.SetFocus End If End Sub

3．下面的程序是检查输入的算术表达式中圆括号是否配对。并显示相应的结果。本程序在文本框输入表达式，边输入边统计，以输入回车作为表达式输入结束。

Dim Count1%

Private Sub Text1_KeyPress（KeyAscii As Integer）

If Chr（KeyAscii） = “（” Then 【3】

ElseIf Chr（KeyAscii） = “）” Then Count1 = Count1 - 1 End If

If KeyAscii = 13 Then If Count1 = 0 Then Print “左右括号配对” ElseIf 【4】 Then

Print “左括号多于右括号”; Count1; “个” Else

Print “右括号多于左括号”; -Count1; “个” End If End If End Sub

4. 要使下列语句执行20次，循环变量的初值应当是___【5】_____。 For k = ________ To -5 Step -2

5. 下面程序段显示 ___【6】____ 个“*” For i = 1 to 5 For j=2 to i Print “*” Next j

Next I

6. 下面程序第40句共执行了 ____【7】___ 次。第41句共执行了 ___【8】____ 次。 30 For j = 1 to 12 step 3 40 For k = 6 to 2 step -2 41 Print j，k 42 Next k 42 Next j

7. 下面程序的运行后输出结果是___【9】_____。 Private Sub Command_Click（） For i = 0 to 3

Print Tab（5*i+1）；“2”+ i ；“2”& i； Next i End Sub

8. 输入任意长度的字符串，要求将字符顺序倒置，例如“ABCDEFG”变换为“GFEDCBA”。 Private Sub Command1_Click（） Dim a$， i%， c$

a = InputBox（“输入字符串”） n = Len（A）

For i = 1 To Int（n / 2） c = Mid（a， i， 1） _________【10】_______ _________【11】_______

本文来源：https://www.bwwdw.com/article/864p.html