To whom it may concern,A good number of requests for your P-4 computers （150). Therefore,

阅读程序：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 Command1_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() 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（）

m=1

For i=4To 1 Step-1

Print Str(m)；

m=m+1

For j=1 To i

Print"*"：

Next j

Print

Next i

End Sub

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

A.1****

2***

3**

4*

B.4****

3***

2**

1*

C.****

***

**

*

D.*

**

***

****

请阅读程序： Private Sub Form. Click（） m=1 For i=4To 1 Step-1 Print Str(m)；

m=m+1 For j=1 To i Print"*"： Next j Print Next i End Sub 程序运行后，单击窗体，则输出结果是（）。

A.1**** 2*** 3** 4*

B.4**** 3*** 2** 1*

C.**** *** ** *

D.* ** *** ****

A.105

B.1

C.120

D.15

阅读程序： Option Base 1 Dim arr() As Integer Private Sub Form. Click() Dim i As Integer，i As Integer ReDim arr(3，2) For i=1 To 3 For j=1 To 2 arr(i，j)=i*2+j Next j Next i ReDim arr(3，2)+arr(3，4) End Sub 程序运行后，单击窗体，输出结果为

A．21

B．13

C．8

D．25

阅读程序： Option Base 1 Private Sub Form. Click() Dim arr，Sum Sum= 0 arr=Array(1，3，5，7，9，11，13，15，17，19) For i=1 To 10 If arr(i)/3=arr(i)\3 Then Sum=Sum+arr(i) End If Next i Print Sum End Sub 程序运行后，单击窗体，输出结果为

A．13

B．14

C．27

D．15

运行下列程序： Private Sub Form. Click() Sum=0 For i=1 To 100 If Mid(CStr(i)，1， 1)="1" Then Sum=Sum+1 End If Next i Print Sum End Sub 单击窗体后，在窗体上显示的结果是

A．12

B．13

C．14

D．15