填空题

下列程序的输出结果是 【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 SingleIf load ＜ 20 thenmoney = load 2elsemoney = 20 + loadend ifa = moneyEnd FunctionPrivate Sub Form_Click()Dim load As Integer, fee AS SingleLoad = InputBox ( 请输入一个数: )Fee = a(load)Print feeEnd Sub输入20，运行后的输出结果是 【13】 。
填空题
通过宏打开某个数据表的宏命令是 【10】 。
相关试题