
刚给你写的 希望对你有帮助 给个满意回答吧
Private Sub Command1_Click()
Dim dat1 As Variant
Dim sum As Variant
Dim i As Integer
dat1 = Val(Text1.Text)
sum = 1
If dat1

刚给你写的 希望对你有帮助 给个满意回答吧
Private Sub Command1_Click()
Dim dat1 As Variant
Dim sum As Variant
Dim i As Integer
dat1 = Val(Text1.Text)
sum = 1
If dat1