Private Sub Command1_Click()
For a = 101 To 1001
s = s + a
Next a
Print "101+102+103+...+1001="; s
End Sub
Private Sub Command2_Click()
For a = 1 To 2004
s = s + a
t = t + s
Next a
Print "1+(1+2)+(1+2+3)+...(1+2+3+...+2004)="; t
End Sub
Private Sub Command3_Click()
For a = 10 To 209
s = a * (a - 9) ^ 2 + s
Next a
Print "10*1^2+11*2^2+...+208*199^2+209*200^2="; s
End Sub
Private Sub Form_Load()
End Sub