Private Sub Command1_Click()
Dim i As Integer
Dim a As Double
For i = 0 To Text1.UBound
If Val(Text1(i)) <> 0 Then
a = a + Val(Text1(i).Text)
Else

End Sub

等等  我研究一下

[此贴子已经被作者于2016-8-3 10:43编辑过]