“寒从中生”的主要机理是

请阅读程序： 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（）

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

阅读程序： 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

阅读程序： 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

设有如下程序：

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

请阅读程序． 0ption Base 1 Private Sub Fo,m Click（） Dim Arr(4，4)As Integer For i=1 To 4 For j=1 To 4 Arr(i，j)=(i=1)*2+j Next j Next i For i=3 To 4 For j=3 To 4 Print Arr(j，i)； Next j Print Next i End Sub 程序运行后，单。旨窗体，则输出结果是（）。

A.5 7 6 8

B.6 8 7 9

C.7 9 8 10

D.8 10 8 11

运行下列程序： 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

阅读程序：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