我爱法兰西
春芽
共回答了14个问题采纳率:100% 举报
Private Sub Command1_Click()
Dim i As Integer
Dim Result As Integer
For i = 0 To 49
Result = Result + ((i * 2 + 1) * 10 + 2)
Next
MsgBox Result
End Sub
Private Sub Command2_Click()
Dim i As Integer
Dim Result As Integer
Do While i
1年前
10