题目内容
（请给出正确答案）
下面程序运行后，输出的结果是 Dim arr(3,3) For j=1 To 3 For k=1 To 3 Arr(j,k)=(j-1)*3+k Next k Next j For j=2 To 3 For j=2 To 3 Print art(k,j)； Next k Print Next j
A．2 5 3 6
B．5 8 6 9
C．4 7 5 8
D．5 9 6 8
如果结果不匹配，请 联系老师 获取答案
更多“下面程序运行后，输出的结果是Dim arr（3,3)For …”相关的问题
下面运行程序后,单击命令按钮,输出的结果是 【 】 。
Private Sub Command1_Click()
Dim a%(1 To 5),i%, s#
For i=1 To 5
a(i)=i
Next
s=Fun(a)
Print "s="; s;
End Sub
Function Fun(a() As Integer)
Dim t#, i%
t=1
For i=LBound(a) To UBound(a)
t=t a(i)
Next
Fun=t
End Function
下面程序运行后，输出的结果是
Dim arr(3，3)
For j=1 To 3
For k=1 To 3
Art(j,k)=(j-1)*3+k
Next k
Next j
For j=2 To 3
For k=2 To 3
Print arr(k,j)；
Next k
Next j
A．25 36
B．58 69
C．47 58
D．59 68
下面程序运行后,输出的结果是
Dim arr(3,3)
For j=1 To 3
For k=1 To 3
Arr(j,k)=(j-1)*3+k
Next k
Next j
For j=2 To 3
For j=2 To 3
Print arr(k,j);
Next k
Next j
A．2 5 3 6
B．5 8 6 9
C．4 7 5 8
D．5 9 6 8
下面程序运行后，单击命令按钮，输出的结果是 Pivate Sub Cornmand1_Click() Dim a%(1 To 4)，b%(2 To 6)，i%，str1#，str2# For i=1 To 4 a(i)=i Next For i=2 To 6 b(i)=i Next str1=YAG(a) str2=YAG(b) Print"str1=";str1;"str2=";str2 End Sub Function YAG(a()As Integer) Dim t#,i% t=1 For i=LBound(a)To UBound(a) t=t*a(i) Next YAG=t End Function
A．str1=24 str2=720
B．str1=12 str2=360
C．str1=24 str2=180
D．str1=36 str2=720
在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Cliek() Dim a() a = array(1,3,5,7) s=0 For i = 1 To 3 s=s*10+a(i) Next i Print s End Sub 程序运行后，输出结果为()。
A．135
B．357
C．531
D．753
窗体上有一个命令桉钮，命令按钮的单击事件过程如下。运行程序后，单击命令按钮，输出结果是()。
Private Sub Command1_click()
Dim a
a=Array(1,2,3,4,5)
Fork=1 To 4
S=S+a(k)
Next k
Print S
End Sub
A．10
B．14
C．15
D．120
下面程序运行后的结果是()。 Private Sub Form_Click() Dim s As Integer，k As Integer,i As Integer，n As Integer s=1 fori=1 to 3 forj=i to 3 for k=j to istep-1 s=s*k nextk,J,i print s End Sub
A．6
B．72
C．144
D．432
运行下列程序：
Private Sub Form_Click()
Dim sum As Integer
Dim i As Integer
sum = 0
For i =12.4 To3.1 Step -3.8
sum = sum + i
Next i
Debug.Print sum
End Sub
单击窗体后，则在立即窗口上输出结果是()。
A.15
B.- 0.7
C.24
D.0
下面运行程序后，单击命令按钮，输出出的结果是【 】。
Private Sub Command1_Click()
Dim a% (1 To 5) ,i%, s
For i = 1 To 5
a(i) =i
Next
s = Fun(a)
Print"s="; s;
End Sub
Function Fun(a() As Integer)
Dim t, i%
t=1
For i = LBound(A0To UBound(a)
t=t * a(i)
Next
Fun =t
End Function
