编写以下程序段：PrivateSubForm_Click()ForI=1To3PrintString(I,"▼")NextIEndSub其中〈CR〉表示换行和回车当单击窗体时，显示的图形为()

运行下列程序：

Private Sub Form_Click( )

For i = 3 To 1 Step -1

For j = 2 To 1 Step -1

Debug.Print "A"; String(3 - i, "*");

Next j

Next i

End Sub

单击窗体后，则在立即窗口内显示结果是( )。

A.AAA*A**A***

B.AAA*A*A**A**

C.A*A*A*A*A*A*

D.A***

运行下列程序：

Private Sub form_Click( )

For i = 1 To 2

x = 1

For j = 1 To 3

x = 5

For k = 1 To 4

x = x + 2

Next k

Next j

Next i

Print x

End Sub

单击窗体后，则输出结果是( )。

A.5

B.13

C.25

D.48

下面程序段的运行结果是( )。 Private Sub Form_Click() For I=3 to 1 step-1 Print Spc(10-I)； For j=1 to 2*I-1 print"*"; Next j Print Next I End Sub

A．***** *** *

B．* *** *****

C． * *** *****

D． * *** *****

运行下列程序：

Private Sub Form_Click( )

For i = 1 To 20

If fun1(i) Then

s = s + 1

End If

Next i

Print s

End Sub

Private Function fun1(y) As Boolean

If y Mod 2 <> 0 Then

fun1 = False

Else

fun1 = True

End If

End Function

单击窗体后，则在窗体上显示的结果是( )。

A.110

B.10

C.0

D.20

运行下列程序： 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_Activate( ) For j = 1 to 3 x=3 For i = 1 to 2 x=x+6 Next Next Print x End Sub 程序运行后，窗体上显示的结果为【 】。

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

For i＝1 To 3

Select Case i

Case 1,3

a＝a＋1

Case 2,4

a＝a＋2

End Select

Next i

MsgBox a

End Sub

打开窗体运行后，单击窗体消息框的输出内容应为【 】。

有以下程序：

Private Sub Form_Activate()

For j=1 to 3

x=3

For i=l to 2

x=x+6

Next

Next

Print x

End Sub

程序运行后，窗体上显示的结果为______。

设有如下程序： Private Sub Form. Click（ ） Cls a$="1234j6" For i=1 To 6 Print Tab(12-i)；________ Next i End Sub 程序运行后，单击窗体，要求结果如图所示，则在______处填入的内容为（ ）。

A.Left(a$，i)

B.Mid(a$，8-i，i)

C.Right(a$，i)

D.Mid(a$，7，i)