显示100以内的所有偶数php,vb100-急需vb编程求100以内所有奇数和及所有偶数和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

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

。

全部