单选题
请阅读程序：
请阅读程序：
Option Base 1
Private Sub Form_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
Next
For i = 3 To 4
For j = 3 To 4
Print arr(j, i);
Next j
Print
Next
End Sub
程序运行后，单击窗体，则输出结果是（ ）。
发布于 2022-05-11 10:17:59
登录后免费查看答案
关注者
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答案
-
阅读程序：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答案
-
有以下程序：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()m = 1For i = 4 To 1 Step -1Print str(m);m = m + 1For j = 1 To iPrint "*";Next jPrintNext iEnd Sub程序运行后，单击窗体，则输出结果是（ ）。
2022-05-11 关注 0 浏览65 1答案
-
在窗体上画一个名称为Label1的标签，然后编写如下事件过程：Private Sub Form_Click()Dim arr(10, 10) As IntegerDim i As Integer, j As IntegerFor i = 2 To 4For j = 2 To 4arr(i, j) = i * jNext jNext iLabel1.Caption = Str(arr(2, 2) + arr(3, 3))End Sub程序运行后，单击窗体，在标签中显示的内容是（ ）。
2022-05-11 关注 0 浏览13 1答案
-
在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：Private Sub Command1_Click()Dim a1(4, 4), a2(4, 4)For i = 1 To 4For j = 1 To 4a1(i, j) = i + ja2(i, j) = a1(i, j) + i + jNext jNext iPrint a1(3, 3); a2(3, 3)End Sub程序运行后，单击命令按钮，在窗体上输出的是
2022-05-11 关注 0 浏览19 1答案
-
设有命令按钮Command1的单击事件过程，代码如下：Private Sub Command1_Click()Dim a(3，3)As IntegerFor i=1 To 3For j=1 To 3a(i，j)=i*j+iNext jNext iSum=0For i=1 To 3Sum=Sum+a(i，4-i)Next iPrint SumEnd Sub运行程序，单击命令按钮，输出结果是。
2022-05-11 关注 0 浏览15 1答案
-
在窗体上画一个名称为Label1的标签，然后编写如下事件过程：Private Sub Form＿Click（）Di marr（10，10）As IntegerDi mi As Integer ，j As IntegerFor i ＝2To 4For j＝2To 4arr（i ，j）＝j＊jNext jNext iLabel1．Caption ＝Str（arr（2，2）＋arr（3，3））End Sub程序运行后，单击窗体，在标签中显示的内容是（ ）。
2022-05-11 关注 0 浏览9 1答案
-
窗体上有一个名为command1的命令按钮，并有下面的程序：private sub comand1_click()dim arr(5) as integerfor k=1 to 5arr(k)=knext kprog arr()for k=1 to 5print arr(k)next kend subsub prog(a() as integer)n=ubound(a)for i=n to 2 step -1for j=1 to n-1if a(j)t=a(j):a(j)=a(j+1):a(j+1)=tend ifnext jnext iend sub程序运行时，单击命令按钮后显示的是
2022-05-11 关注 0 浏览15 1答案
-
在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：Private Sub Command1_Click()Dim i As Integer,j As IntegerDim a(10,10)As IntegerFor i=1 To 3For j=1 To 3a(i,j)=(i-1)*3+jPrint a(i,j);Next jPrintNext jEnd Sub程序运行后，单击命令按钮，窗体上显示的是
2022-05-11 关注 0 浏览20 1答案
