Question

编写求1到100之间奇数的和。用Vb语言。

Answer 1

Private Sub Command1_Click()
Dim i, sum1, sum2 As Integer
sum1 = 0
sum2 = 0
For i = 1 To 100
If i Mod 2 = 1 Then
sum1 = sum1 + i
Else
sum2 = sum2 + i
End If
Next i
Print "奇数和为" & sum1
Print "偶数和为" & sum2
End Sub

Answer 2

Private Sub Form_Click()
Dim i As Long
Dim sum As Long
sum = 0
For i = 1 To 100 Step 2
sum = sum + i
Next i
Print sum
End Sub