2011-01-08
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
Nex