填空题

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

【参考答案】

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

填空题
下面程序段的运行结果是 【15】 。 Option Base 1 Private Sub Swap (a() As Integ For I=1 to 10 2 t=a(I) a(I)=a(10-I+1) 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=l to 3 If j=k then x(j,k)=1 If j＜＞k then x(j,k)=k Next k Next i 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】 。
相关试题