在窗体上画一个命令按钮(其名称为Commandl),然后编写如下代码:
Private Sub Command1_Click()
Dim a
a = Array(1, 2, 3, 4)
i = 3: j = 1
Do While i >= 0
s = s + a(i) * j
i = i – 1 : j = j * 10
Loop
Print s
End Sub
运行上面的程序,单击命令按钮,则输出结果是( )。
发布于 2022-05-11 10:17:58
登录后免费查看答案
关注者
0
被浏览
20