science
我自己写了一个,大家看看如何?
Dim a As Integer
Dim n, sum As Single
Dim s() As Single
Private Sub Command1_Click()
Dim i As Integer
sum = 0
For i = 1 To a
sum = sum + s(i)
Next i
Text1.Text = Str(sum)
End Sub
Private Sub Command2_Click()
If Text1.Text <> "" Then
n = Val(Text1.Text)
a = a + 1
ReDim Preserve s(a)
s(a) = n
End If
Text1.Text = ""
End Sub