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

A．▼▼▼▼〈CR〉

B．▼▼▼〈CR〉〉▲▲〈CR〉▼〈CR〉

C．▼▼〈CR〉▲▲▲〈CR〉▼▼▼▼〈CR〉

D．▼〈CR〉▲▲〈CR〉▲▲▲〈CR〉

查看答案

您可能会需要：

重置密码订单/发票联系客服

更多“编写以下程序段：PrivateSubForm…”相关的问题

第1题

运行下列程序：Private Sub Form_Click( )For i = 3 To 1 Step －1For j = 2 To 1 Step －1Debug

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

点击查看答案

第2题

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

点击查看答案

第3题

下面程序段的运行结果是( )。 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． * *** *****

请帮忙给出正确答案和分析，谢谢！

点击查看答案

第4题

运行下列程序：Private Sub Form_Click( )For i = 1 To 20If fun1(i) Thens = s ＋ 1End IfNext

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

点击查看答案

第5题

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

请帮忙给出正确答案和分析，谢谢！

点击查看答案

第6题

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 程序运行后，窗体上显示的结果为【】。

请帮忙给出正确答案和分析，谢谢！

点击查看答案

第7题

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

请帮忙给出正确答案和分析，谢谢！

点击查看答案

第8题

设有以下窗体单击事件过程：
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
打开窗体运行后，单击窗体消息框的输出内容应为【】。

请帮忙给出正确答案和分析，谢谢！

点击查看答案

第9题

有以下程序：
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
程序运行后，窗体上显示的结果为______。

请帮忙给出正确答案和分析，谢谢！

点击查看答案

第10题

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