vb程序编写

来源：百度知道 编辑：UC知道 时间：2024/06/22 15:00:34
编写程序，求用inputbox函数输入的10个数的和数和连成积
快帮助我啊，急呀！

代码如下：
Private Sub Form_Click()
Dim a(1 To 10), i, s, d As Integer
For i = 1 To 10
a(i) = InputBox("")
Next i
s = 0
d = 1
For i = 1 To 10
s = s + a(i)
d = d * a(i)
Next i
Print "和为"; s
Print "积为"; d
End Sub
参考一下哦！