单选题
设有如下程序：
设有如下程序：
Private Sub Form Click（ ）
Dim ary(1 To 5)As Integer
Dim i As Integer
Dim sum As Integer
For i=1 To 5
ary(i)=i+l
sum=sum+ary(i)
Next i
Print sum
End Sub
程序运行后，单击窗体，则在窗体上显示的是（ ）。
发布于 2022-05-11 09:56:46
登录后免费查看答案
关注者
0
被浏览
17
1 个回答
推荐阅读
-
有如下程序：Private Sub Form_Click()Dim i As Integer, sum As Integersum = 0For i = 2 To 10If i Mod 2 <> 0 And i Mod 3 = 0 Thensum = sum + iEnd IfNext iPrint sumEnd Sub程序运行后，单击窗体，输出结果为
2022-05-11 关注 0 浏览53 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 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答案
-
在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：Option Base 1Private Sub Command1_Click()Dim a As Varianta=Array(1,2,3,4,5)Sum=0For i=1 To 5Sum = sum+a(i)Next ix=Sum/5For i =1 To 5If a(i)>x Then Print a(i);Next iEnd Sub程序运行后，单击命令按钮，在窗体上显示的内容是
2022-05-11 关注 0 浏览13 1答案
-
设有如下程序：Private Sub Form Click（ ）Dim s As Long，f As LongDim n As Integer，i As Integerf=1n=4For i=1 To nf=f*is=s+fNext iPrint sEnd Sub程序运行后，单击窗体，输出结果是（ ）。
2022-05-11 关注 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答案
-
设有命令按钮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答案
-
在窗体上画一个名称为 Commandl 的命令按钮，然后编写如下程序：Private Sub Commandl Click()Dim i As Integer, j As IntegerDim a (10,10)As IntegerFor i=1 To 3For j= i To 3a(i,j)=(i-1)*3+jPrint a (i,j);Next jPrintNext iEnd Sub程序运行后，单击命令按钮，窗体上显示的是 （ ） 。
2022-05-11 关注 0 浏览15 1答案
