2019-03-28
急需vb编程求100以内所有奇数和及所有偶数和
一、按钮“求2到100之间的偶数和”代码如下:
Private Sub Command1_Click()
Dim i As Integer
Dim s As Integer
s = 0
For i = 2 To 100 Step 2
s = s + i
Next i
Print "2到100的所有偶数和是:"; s
End Sub
二、按钮“方法2”代码如下:
Private Sub Command2_Click()
Dim i As Integer
Dim s As Integer
s = 0
For i = 2 To 100
If i Mod 2 = 0 Then
s = s + i
...全部
一、按钮“求2到100之间的偶数和”代码如下:
Private Sub Command1_Click()
Dim i As Integer
Dim s As Integer
s = 0
For i = 2 To 100 Step 2
s = s + i
Next i
Print "2到100的所有偶数和是:"; s
End Sub
二、按钮“方法2”代码如下:
Private Sub Command2_Click()
Dim i As Integer
Dim s As Integer
s = 0
For i = 2 To 100
If i Mod 2 = 0 Then
s = s + i
End If
Next i
Print "2到100的所有偶数和是:"; s
End Sub
三、按钮“方法3”代码如下:
Private Sub Command3_Click()
Dim i As Integer
Dim s As Integer
s = 0
i = 2
Do
If i Mod 2 = 0 Then
s = s + i
End If
i = i + 1
Loop Until i > 100
Print "2到100的所有偶数和是:"; s
End Sub
四、按钮“方法4”代码如下:
Private Sub Command4_Click()
Dim i As Integer
Dim s As Integer
s = 0
i = 2
Do
s = s + i
i = i + 2
Loop Until i > 100
Print "2到100的所有偶数和是:"; s
End Sub
Private Sub Command2_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
。
收起