填空题

下面程序的输出结果是 【15】 。
Private Sub Commandl_Click( )
Dim a(1 To 20)
Dim i
Fori = 1 To 20
a(i) = i
Next i
For Each i In a( )
a(i) = 20
Next i
Print a(2)
End Sub

【参考答案】

T
<上一题 目录 下一题>
热门 试题

填空题
下面程序段的运行结果是 【14】 。 Option Base 1 Private Sub swap(a( ) As Integer) For I = 1 to 10 2 t =a(I) a(I) = a(10-I+l) a(10-I+1) = t Next I End Sub Private Sub Form Click( ) Dim x(10) As Integer For I = 1 to 10 x(I) = I * 2 Next I Swap x( ) For I=1 to 10 Print x(I) Next I End Sub
填空题
阅读下列程序。 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 For k = 1 to 3 Print x(j, k); Next k Next j End Sub运行程序时，输出结果为 【13】 。
相关试题