填空题

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

【参考答案】

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

填空题
阅读下面程序。 Private Function a(load As Integer) As Single If load ＜ 20 then money = load 2 else money = 20 + load end if a = money End Function Private Sub Form_Click() Dim load As Integer, fee AS Single Load = InputBox ( 请输入一个数: ) Fee = a(load) Print fee End Sub 输入20，运行后的输出结果是 【13】 。
填空题
阅读下列程序。 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】
相关试题