vb循环结构选择题(2)

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

28、在窗体上画两个名称分别为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) Text2、text=str(n) End sub

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

29、在窗体中添加一个命令按钮，名称为Command1，然后编写如下程序： Private Sub Command1_Click() Dim a(5),b(5) For j =1 to 4 A(j)=3*j B(j)=a(j)*3 Next j

Text1、text=b(j\\2) End Sub

程序运行后，单击命令按钮，在文本框中显示（ B ） A、25 B、18

C、36 D、35

30、下面程序运行时，内层循环的循环总次数是（A） For m = 1 To 3 For n = 0 To m - 1 Next n Next m A、6 B、3 C、0 D、9

31、 定义语句Dim A (-3 to 3) as Integer，定义数组的元素个数是（D） A、6 B、3 C、0 D、7

32、 执行下面的程序段后，X的值为（C） X=5

For I=1 to 10 Step 2 X=X+I\\5 Next I A、7 B、10 C、8 D、5

33、如果整型变量a、b的值分别为3和1，则下列语句中循环体的执行次数是（ D ）

For I=a to b Print I Next I

A、0 B、1 C、2 D、3 34、下列关于do while ?loop 和do?loop until循环执行循环体次数的描述正确的是（ D ） 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循环至少执行一次

35、在窗体中添加一个名称为Command1的命令按钮，然后编写如下程序：

Private Sub Command1_Click() For i = 1 To 4 a = 1

For j = 1 To 3 a = 2

For k = 1 To 2 a = a + 6 Next k Next j Next i Print a End Sub

程序运行后，单击命令按钮，则在窗体上显示的内容是（ A ） A、14 B、15 C、16 D、17

36、设有如下程序：

Private Sub Form_Click() a = 1

For i = 1 To 3 Select Case i Case 1, 3 a = a + 1 Case 2, 4 a = a + 2 End Select Next i Print a End Sub

程序运行后，单击窗体，则在窗体上显示的内容是（ B ） A、6 B、5 C、4 D、3

37、在窗体中添加一个名称为Command1的命令按钮，然后编写如下程序：

sub ss (b() as Integer ) For i = 1 To 4 b(i) = 2 * i Next i End Sub

Private Sub Command1_Click() Dim a(1 To 4) As Integer a(1) = 5: a(2) = 6 a(3) = 7: a(4) = 8 ss a()

For i = 1 To 4 Print a(i) Next i

End Sub

运行上面的程序，单击命令按钮，则在窗体上显示的内容是（ B ） A、5 6 7 8 B、2 4 6 8 C、1 2 3 4 D、5 7 6 8

38、在窗体中添加一个名称为Command1的命令按钮，然后编写如下程序： Function fun(x As Integer) Static z

y = y + 1: z = z + 1 fun = x + y + z End Function

Private Sub Command1_Click() Dim x As Integer x = 1

For i = 1 To 2 Print fun(x) Next i End Sub

程序运行后，如果单击命令按钮，窗体中显示的内容是（ B ） A、3 3 B、3 4 C、3 5 D、3 6

39、若I、n均为整型变量，下列程序段的输出结果为（C）

Private Sub Form_Click() n = 0

For i = 1 To 10

If i Mod 2 = 1 Then n = n + 1 Next i Print n End Sub A、0 B、4 C、5 D、3

40、在窗体中添加一个文本框（其中Name属性为Text1）,然后编写如下代码：

Private Sub Form_click () Text1、Text = \Text1、SetFocus For i = 1 To 10 Sum = Sum + i Next i

Text1、Text = Sum

End Sub

上述程序运行后，单击窗体，则运行的结果（ A ） A、在文本框Text1中输出55 B、在文本框Text1中输出0 C、出错

D、在文本框Text1中输出不定值

41、在窗体中添加一个名称为Command1的命令按钮，然后编写如下代码： 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

程序运行后，单击命令按钮，依次在输入对话框中输入

12345-1，则输出结果为（A） A、8 B、9 C、14 D、15

42、设有如下程序：

Option Base 1

Private Sub Form_Click() Dim a(10), P(3) As Integer k = 5

For i = 1 To 10 a(i) = i Next i

For i = 1 To 3 P(i) = a(i * i) Next i

For i = 1 To 3 k = k + P(i) * 2 Next i Print k End Sub

程序运行后，单击窗体，则在窗体上显示的是（ A ） A、33