A．earnsB．asksC．requiresD．raises

阅读程序：

Private Sub Form. Click（）

a=0

For j=1 To 15

a=a+j Mod 3

Next j

Print a

End Sub

程序运行后，单击窗体，输出结果是（）。

A.105

B.1

C.120

D.15

以下程序运行后的输出结果是______。 Private Sub Form_ Click() y=1 ：x=2 Print Iif(x＞=y，x，y) End Sub

A．0

B．1

C．2

D．3

下面程序运行后的输出结果是______。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

ck() Print"北京"； End Sub Private Sub Command2 _ Click() Print"南京"； End Sub Private Sub Form. _ Load() CommandCancel＝True Command1．Cancel=True End Sub

假定有以下程序：

Private Sub Form. Click（）

a=1：b=a

Do Until a>=5

x=a*b

Print b；X

a=a+b

b=b+a

Loop

End Sub

程序运行后，单击窗体，输出结果是（）。

A.1 1

2 3

B.1 1

2 4

C.1 1

3 8

D.1 1

3 6

程序运行后，单击窗体，输出结果是（）。

A.105

B.1

C.120

D.15

阅读程序：Private Sub Form_ Click() a=0 For j=1 To 15 a=a+j Mod 3 Next j Print aEnd Sub 程序运行后，单击窗体，输出结果是______。

A．105

B．1

C．120

D．15

阅读程序：Private Sub Form_ Click() a=0 For j=1 To 15 a=a+j Mod 3 Next j Print aEnd Sub 程序运行后，单击窗体，输出结果是______。

A．105

B．1

C．120

D．15

设有如下程序：

Private Sub Form. Click（）

Dim s As Long，f As Long

Dim n As Integer，i As Integer

f=1

n=4

For i=1 To n

f=f*i

s=s+f

Next i

Print s

End Sub

程序运行后，单击窗体，输出结果是（）。

A.32

B.33

C.34

D.35

假定有如下事件过程： Private Sub Form. Click() Dim x As Integer, n 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