【C6】______

下列程序打印结果为 ______。Private Sub Command1_ Click() Dim a(5)As String Dim b As Integer Dim i As Integer for i = 0 To 5 a(i)= i +1 Print a(i); Next iEnd Sub

A．12345

B．6

C．1 2 3 4 5 6

D．0

下列程序的执行结果为______。Private sub Command1_ Click () a = 100 b = 50 if a ＜＞ b then a = a + b Else b = b -a Print a, bEnd Sub

A．50 50

B．150 50

C．200 200

D．10 10

下列程序共执行了______次循环。Private Sub Command1_ Click () Dim intsum As Integer Dim i AS Integer Dim j As Integer i = 1 j = 1 do do intsum = intsum + j =j+2 Print j; Loop until j ＞3 i = i+1 Loop until i＞17 Print Print intsumEnd Sub

A．14

B．15

C．14

D．13

单击一次命令按钮之后，窗体中的输出结果为______。 Private Sub Command1_ Click() Dim a As Single Dim b As Single a = 10 b = 20 Call Num(a,B)Print a, b End Sub Sub Num(a,B)t = a a = b / t b = t End Sub

A．20 10

B．10 20

C．2 10

D．10 10

下列程序的运行结果是 ______。Private Sub Command1_ Click () a =1: b=1 for i = 1 To 3 a= a+ b: b=b+ a Next i Print a, bEnd Sub

A．6 6

B．5 8

C．13 21

D．34 55

在窗体上画一个命令按钮(名称为Command1)，然后编写如下事件过程：Private Sub Command1_ Click() Dim b As Integer b=b+1End Sub 运行程序，三次单击命令按钮后，变量b的值是______。

A．0

B．1

C．2

D．3

在窗体上画一个命令按钮，名称为Command1，然后编写如下程序：Private Sub Command1_ Click()Dim a As Integer, b As Integerdo while b ＜100 b=b+5 a=a+ b if b ＞20 then exit doLoopPrint a, bEnd Sub程序运行后，如果甲击命令按钮，则在窗体上显示的内容是______。

A．50 20

B．75 25

C．50 25

D．75 20

下面程序运行后的输出结果是______。Private Sub Command1_ Click () for j = 1 To 10 if j Mod 3 ＜＞ 0 then a =a+j\3 Next j Print aEnd Sub

A．20

B．10

C．3

D．9

下面程序运行后，窗体中显示______。Private Sub Command1_ Click() a＄ = "*": b＄ = "＄ for k = 1 To 3 x＄ = String＄(Len(a＄) +k, b＄) Print x＄; Next k PrintEnd Sub

A．*** ** ***

B．*＄*＄*＄

C．1*＄2*＄3*＄

D．＄＄＄＄＄＄＄＄＄

单击一次命令按钮之后，窗体中的输出结果为______。 Private Sub Command1_ Click() Dim a As Integer, b As Integer For i = 1 To 6 a=i*i+i Next i Call writein(a,B)Print a, b End Sub Sub writein(a, ByValB)b = 1 For i = 1 To 6 a=b* 4 b = b + 1 Next i End Sub

A．24 6

B．24 0

C．12 6

D．12 0