阅读程序:
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
程序运行后,窗体上显示的是( )。
发布于 2022-05-11 10:17:46
登录后免费查看答案
关注者
0
被浏览
17
1 个回答
推荐阅读
-
阅读程序Option Base 1Private Sub Form_Click()Dim arr,SumSum = 0arr = Array(1,3,5,7,9,11,13,15,17,19)For i=1 To 10If arr(i)/3 = arr(i)\3 ThenSum = Sum + arr(i)End IfNext iPrint SumEnd Sub程序运行后,单击窗体,输出结果为
2022-05-11 关注 0 浏览32 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 1Private Sub Form_Click()Dim arr, SumSum = 0arr = Array(1, 3, 5, 7, 9, 11, 13, 15, 17, 19)For i = 1 To 10If arr(i) / 3 = arr(i) \ 3 ThenSum = Sum + arr(i)End IfNext iPrint SumEnd Sub程序运行后,单击窗体,输出结果为
2022-05-11 关注 0 浏览20 1答案
-
设有如下程序:Option Base 0Private Sub Form_Click()Dim aDim i As Integera=Array(1,2,3,4,5,6,7,8,9)For i=0 To 3Print a(5-i);NextEnd Sub程序运行后,单击窗体,则在窗体上显示的是( )。
2022-05-11 关注 0 浏览13 1答案
-
设有如下程序:Option Base 0Private Sub Form_Click()Dim aDim i As Integera=Array(1,2,3,4,5,6,7,8,9)For i=0 To 3Print a(5-i);Next End Sub程序运行后,单击窗体,则在窗体上显示的是
2022-05-11 关注 0 浏览9 1答案
-
设有如下程序:Option Base 0Private Sub Form_Click( )Dim aDim i As Integera=Array(1,2,3,4,5,6,7,8,9)For i=0 To 3Print a(5-i);NextEnd Sub程序运行后,单击窗体,则在窗体上显示的是( )。
2022-05-11 关注 0 浏览13 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答案
-
请阅读程序.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 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答案
-
请阅读程序: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答案