Private Sub Command1_Click()
Dim Jia As Single, Yi As Single, N As Integer
Do
N = N + 1
Jia = Jia + 1000 + 100 * (N - 1)
Yi = Yi + 1000 * (1.08) ^ (N - 1)
Loop Until N = 24
MsgBox "两年时间甲的总收入:" & Jia & ",乙的总收入:" & Yi
End Su
Private Sub Command1_Click()
Dim Jia As Single, Yi As Single, N As Integer
Do
N = N + 1
Jia = Jia + 1000 + 100 * (N - 1)
Yi = Yi + 1000 * (1.08) ^ (N - 1)
Loop Until N = 24
MsgBox "两年时间甲的总收入:" & Jia & ",乙的总收入:" & Yi
End Su