题目内容
（请给出正确答案）
请阅读程序：
Private Sub Form_Click()
m=1
For i=4 To 1 Step-1
Print Str(m)；
m=m+1
For j=1 To i
Print”*”；
Next j
Next i
End Sub
程序运行后，单击窗体，则输出结果是()。
A．1**** 2*** 3** 4*
B．4* 3** 2*** 1****
C．**** *** ** *
D．* ** *** ****
安装简答题APP，拍照搜题省时又省心！
更多“请阅读程序：Private Sub Form_Click（)…”相关的问题
请阅读程序． 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 Command1_Click（）
Dim arr
Dim i As Integer
arr=Array(0，1，2，3，4，5，6，7，8，9，10)
For i=0 To 2
Print arr(7-i)；
Next
End Sub
程序运行后，窗体上显示的是（）。
A.8 7 6
B.7 6 5
C.6 5 4
D.5 4 3
（28）阅读程序：
Private Sub Commandl_Click()
Dim arr
Dim i As Integer
arr＝Array(0，1，2, 3，4, 5，6，7，8，9, 10)
For i＝0To2
Print arr(7-i);
Next
End Sub
程序运行后，窗体上显示的是：
A）8 7 6
B）7 65
C）6 5 4
D）5 4 3
阅读程序：
Private Sub Form_Click()
msg 1$＝"继续吗？"
msg 2$="操作对话框"
r＝MsgBox(msgl$,vbYesNo Or vbDefaultButton2,msg2$)
End Sub
程序运行后，单击窗体，将产生一个信息框。此时如果直接按Enter键，则相当于用鼠标单击信息框中的【 】按钮。
阅读程序： Option Base 1 Private Sub Form_Click() Dim art,Sum Sum=0 art=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+art(i) End If Next i Pdnt Sum End Sub 程序运行后，单击窗体，输出结果为()。
A．13
B．14
C．27
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+art(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 AsInteger，j As Integer ReDim arr(3，2) For i=1 To 3 Forj=1 To 2 arr(i，j)=i*2+j Next j Next i ReDim Preserve arr(3，4) For j=3 To 4 arr(3，j)=j+9 Nextj Print arr(3，2)+arr(3，4) End Sub 程序运行后，单击窗体，输出结果为
A．21
B．13
C．8
D．25
请阅读程序：
Sub subP(b()As Integer)
For i=1 To 4
b(i)=2*i
Next i
End Sub
Private Sub Command 1_Click()
Dim a(1 To 4)As Integer
a(1)=5：a(2)=6：a(3)=7：a(4)=8
subP a()
For i=1 To 4
Print a(i)
Next i
End Sub
运行上面的程序，单击命令按钮，则输出结果是()。
A．2 4 6 8
B．5 6 7 8
C．10 12 14 16
D．出错
阅读程序：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
为了保护您的账号安全，请在“简答题”公众号进行验证，点击“官网服务”-“账号验证”后输入验证码“”完成验证，验证成功后方可继续查看答案！
微信搜一搜
简答题
微信搜一搜
简答题
如搜索结果不匹配，请 
