填空题

下列程序的输出结果是 【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 1Private Sub Swap (a() As IntegFor I=1 to 10 2t=a(I)a(I)=a(10-I+1)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=l to 3If j=k then x(j,k)=1If j＜＞k then x(j,k)=kNext kNext iCall fun(x())End SubPrivate Sub fun(x())For j=1 to 3For k=1 to 3Print x(j,k)；Next kNext jEnd Sub运行程序时，输出结果为 【14】 。
相关试题