单选题
请阅读程序：
请阅读程序：
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
Print
Next i
End Sub
程序运行后，单击窗体，则输出结果是（ ）。
发布于 2022-05-11 10:17:58
登录后免费查看答案
关注者
0
被浏览
65
1 个回答
推荐阅读
-
请阅读程序：Option Base 1Private Sub Form_Click()Dim arr(4, 4) As IntegerFor i = 1 To 4For j = 1 To 4arr(i, j) = (i - 1) * 2 + jNextNextFor i = 3 To 4For j = 3 To 4Print arr(j, i);Next jPrintNextEnd Sub程序运行后，单击窗体，则输出结果是（ ）。
2022-05-11 关注 0 浏览21 1答案
-
请阅读程序．0ption Base 1Private Sub Fo,m Click（ ）Dim Arr(4，4)As IntegerFor i=1 To 4For j=1 To 4Arr(i，j)=(i=1)*2+jNext jNext iFor i=3 To 4For j=3 To 4Print Arr(j，i)；Next jPrintNext iEnd Sub程序运行后，单。旨窗体，则输出结果是（ ）。
2022-05-11 关注 0 浏览25 1答案
-
阅读程序：Private Sub Form_Click()a=0For j=1 To 15a=a+j Mod 3Next jPrint aEnd Sub程序运行后，单击窗体，输出结果是（ ）。
2022-05-11 关注 0 浏览21 1答案
-
阅读程序：Private Sub Form＿Click（）a＝0For j＝1To 15a＝a＋j Mod 3Next jPrint aEnd Sub程序运行后，单击窗体，输出结果是（ ）。
2022-05-11 关注 0 浏览13 1答案
-
阅读程序：Private Sub Form Click（ ）a=0For j=1 To 15a=a+j Mod 3Next jPrint aEnd Sub程序运行后，单击窗体，输出结果是（ ）。
2022-05-11 关注 0 浏览25 1答案
-
请阅读程序：Sub subp(b() As Integer)For i = 1 To 4b(i) = 2 * iNextEnd SubPrivate Sub Command1_Click()Dim a(1 To 4) As Integera(1) = 5: a(2) = 6: a(3) = 7: a(4) = 8subp a()For i = 1 To 4Print a(i)NextEnd Sub运行上面的程序，单击命令按钮，则输出结果是（ ）。
2022-05-11 关注 0 浏览15 1答案
-
阅读程序：Option Base 1Dim arr() As IntegerPrivate Sub Form_Click()Dim i As Integer, j As IntegerReDim arr(3, 2)For i = 1 To 3For j = 1 To 2arr(i, j) = i * 2 + jNext jNext iReDim Preserve arr(3, 4)For j = 3 To 4arr(3, j) = j + 9Next jPrint arr(3, 2) + arr(3, 4)End Sub程序运行后，单击窗体，输入结果为（ ）。
2022-05-11 关注 0 浏览21 1答案
-
请阅读程序：Sub subP(b（ ）As Integer)For i=1 To4b(i)=2*iNext iEnd SubPrivate Sub Commandl Click（ ）Dim a(1 To 4)As Integera(1)=5:a(2)=6:a(3)=7:a(4)=8subP a（ ）For i=1 To 4Print a(i)Next iEnd Sub运行上面的程序，单击命令按钮，则输出结果是（ ）。
2022-05-11 关注 0 浏览34 1答案
-
有以下程序：Option Base 1Dim arr() As IntegerPrivate Sub Form_Click()Dim i As Integer,j As IntegerReDim arr(3,2)For i=1 To 3For j=1 To 2arr (i,j)=i*2+jNext jNext iReDim Preserve arr(1,4)For j=3 To 4arr(3,j)=j+9Next jPrint arr(3,2);arr(3,4)End Sub程序运行后，单击窗体，输出结果为 （ ） 。
2022-05-11 关注 0 浏览13 1答案
-
设有如下程序：Private Sub Form Click（ ）Dim i As Integer，x As String，y As Stringx="ABCDEFG"For i=4 To 1Step-1y=Mid(X，i，i)+yNext iPrint yEnd Sub程序运行后，单击窗体，输出结果为（ ）。
2022-05-11 关注 0 浏览13 1答案
