任意输入n个数,求n个数和并输出
要求:根据输入确定,调用函数确定,单击命令按钮实现,命令按钮上加图片
麻烦大家乐

有点问题不解,输入任意N个数值,由于N的不确定性,无法用动态数组将其保存.况且,要用到的 输入对话框 ,如N=1那么就只有一次弹出 输入对话框,如N=2则两次弹出,如N=100,那么弹出100次,要是N为不确定数,请问 输入对话框,弹出多少次才行?这是一个难点!

Dim a() As Integer
Dim i As Integer

Private Sub Command1_Click()
i = i + 1
ReDim Preserve a(i)
a(i) = InputBox("下面请输入数", "输入")
Label2.Caption = a(i)
End Sub

Private Sub Command2_Click()
For j = 1 To i
s = s + a(j)
Next j
Label4.Caption = s
End Sub
加上按纽有何用,我没加

呵呵 添加command 然后i=i+1这着用得好!ding!

3楼的不是明明用了按钮吗，怎么是没有加呢！
我觉得你的方法可行

我说的意思是按纽上加图片

这个程序用数据库来做应该要简单得多 ，否则按照上面那个程序，中间输错一个，死了