[填空题]阅读下列程序
Option Base 1
Private Sub Form_Click（　）
Dim x(3，3)
For j=1 to 3
For k=1 to 3
If j=k then x (j，k)=1
If j＜＞k then x(j,k)=k
Next k
Next j
Call fun(x（　）)
End Sub
Private Sub fun(x（　）)
For j=1 to 3
Fork-1 to 3
Print x(j,k)
Next k
Next j
End Sub
运行程序时，输出结果为【13】。

更多"阅读下列程序 Option Base 1 Private Sub "的相关试题:

[填空题]阅读程序； Option Base 1 Private Sub Form_ KeyPress (KeyAscii As Integer) art = Array(268, 542, 693, 365, 489, 147, 852) a1 = arr(1) a2 = 1 If KeyAscii = 13 Then For a = 2 To 6 If arr(i) ＞ a1 Then a1 = arr(i) a2 = i End If Next i End If Print a1; a2 End Sub 程序运行后，按回车键；输出结果是______。

查看答案

[单项选择]阅读程序： Option Base 1 Private Sub Form_Click( ) Dim arr Sum Sum=0 arr=Array(1，3，5，7，9，11，13，15，17，19) For i=1 TO 10 If arr(i)/3=arr(i)/3 Then Sum=Sum+art(i) End If Next i Print Sum End Sub 程序运行后，单击窗体，输出结果为
A. 13
B. 14
C. 27
D. 15

查看答案

[单项选择]阅读程序：
Option Base 1
Private Sub Form_Click( )
Dim arr Sum
Sum=0
arr=Array(1，3，5，7，9，11，13，15，17，19)
For i=1 TO 10
If arr(i)/3=arr(i)/3 Then
Sum=Sum+art(i)
End If
Next i
Print Sum
End Sub
程序运行后，单击窗体，输出结果为
A. 13
B. 14
C. 27
D. 15

查看答案

[单项选择]阅读程序：
Option Base 1
Private Sub Form Click（　）
Dim arr，Sum
Sum= 0
arr=Array(1，3，5，7，9，11，13，15，17，19)
For i=1 To 10
If arr(i)/3=arr(i)/3 Then
Sum=Sum+arr(i)
End If
Next i
Print Sum
End Sub
程序运行后，单击窗体，输出结果为
A. 13
B. 14
C. 27
D. 15

查看答案

[填空题]阅读下列程序。
Option Base 1
Private Sub Form Click（　）
Dim x(3,3)
For j=l to 3
For k=l to 3
If j=k then x(j,k)=l
If j＜＞k then x(j,k)=k
Next k
Next j
Call fun(x（　）)
End Sub
Private Sub fun(x（　） )
For j=1 to 3
For k=1 to 3
Print x(j,k);
Next k
Next j
End Sub
运行程序时，输出结果为【14】

查看答案

[填空题]阅读下列程序。 Option Base 1 Private Sub Form Click（　） Dim x(3,3) For j=l to 3 For k=l to 3 If j=k then x(j,k)=l If j＜＞k then x(j,k)=k Next k Next j Call fun(x（　）) End Sub Private Sub fun(x（　） ) For j=1 to 3 For k=1 to 3 Print x(j,k); Next k Next j End Sub 运行程序时，输出结果为【14】

查看答案

[填空题]阅读下列程序：
Option Base 1
Private Sub Form Click( )
Dim x(3, 3)
For j = 1 to 3
For k = 1 to 3
If j = k then x(j, k) = 1
If j ＜＞ k then x(j, k) =3
Next k
Next j
Call fun(x( ) )
End Sub
Private Sub fun(a( ) )
For j = 1 to 3
For k = 1 to 3
Print a(j, k);
Next k
Next j
End Sub
运行程序时，输出的结果是【5】。

查看答案

[单项选择]阅读如下程序：
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 j
Next i
For i=3 To 4
For j=3 To 4
Print Arr(j，i)；
Next j
Print
Next i
End Sub
程序运行后，单击窗体，输出的结果为
A. 5 7 6 8
B. 6 8 7 9
C. 7 9 8 10
D. 8 10 8 11

查看答案

我来回答:

提交