（Ever since) the world （began), nations （have difficulty) （in keeping) peace with their ne

阅读程序：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() a=0 For j=1 To 15 a=a+j Mod 3 Next j Print a End Sub

A．10

B．15

C．80

D．100

下列程序的运行机结果是【 】。

Private Sub Form_ Click()

Dim k As Integer

n= 5

m= 1

k= 1

Do

m=m+2

k= k+1

Loop While k＜=n

Print m

End Sub

下面程序运行后的输出结果是______。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 Form_ Click() x=50 For i=1 To 4 y=InputBox(“请输入—个整数”) y=Val(y) If y Mod 5=0 Then a=a+ y x=y Else a=a+ x End If Next i Print aEnd Sub 程序运行后，单击窗体，在输入对话框中依次输入15、24、35、46，输出结果为 ______。

A．100

B．50

C．120

D．70

设有以下程序：Private Sub Form_ Click() x=50 For i=1 To 4 y=InputBox(“请输入—个整数”) y=Val(y) If y Mod 5=0 Then a=a+ y x=y Else a=a+ x End If Next i Print aEnd Sub 程序运行后，单击窗体，在输入对话框中依次输入15、24、35、46，输出结果为 ______。

A．100

B．50

C．120

D．70

下面程序执行的结果是______。 Private Sub Form_ Click() A＄=“123”：B＄=“456” C=Val(A＄)+Val(B＄) Print C\100 End Sub

A． 123

B．3

C．5

D．579

阅读程序：

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() Dim Str1 As String, Str2 As String Dim Str3 As String, I As Integer Str1 = "e" for I = t To 2 Str2 = Ucase (Str1) Str1 = Str2 & Str1 Str3 = Str3 & Str1 str1 = Chr (Asc(Str1) + I) Next I Print Str3End Sub

A．EeFF

B．eEfF

C．EEFF

D．eeFF