填空题

下面程序的输出结果是 【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 1Private Sub swap(a( ) As Integer)For I = 1 to 10 2t =a(I)a(I) = a(10-I+l)a(10-I+1) = tNext IEnd SubPrivate Sub Form Click( )Dim x(10) As IntegerFor I = 1 to 10x(I) = I * 2Next ISwap x( )For I=1 to 10Print x(I)Next IEnd Sub
填空题
阅读下列程序。Option Base 1Private Sub Form_Click( )Dim x(3, 3)For j = 1 to 3For k = 1 To 3If j =k then x(J, k) = 1If j ＜ ＞ k then x(j, k) = kNext kNext jCall fun(x( ) )End SubPrivate Sub fun(x( ) )For j = 1 to 3For k = 1 to 3Print x(j, k);Next kNext jEnd Sub运行程序时，输出结果为 【13】 。
相关试题