|
|
|
一、求偶數(shù)之和
求1000以內(nèi)的偶數(shù)和。
第一種代碼：變量遞增的
Sub 求1到1000之間偶數(shù)和()
Dim I&, J&
For I = 0 To 1000 Step 2
J = J + I
Next
MsgBox "1到1000之間偶數(shù)和為" & J
End Sub
第二種代碼：變量遞減的
Sub 求1到1000之間偶數(shù)和2()
Dim I&, J&
For I = 1000 To 1 Step -2
J = J + I
Next
MsgBox "1到1000之間偶數(shù)和為" & J
End Sub
二、求奇數(shù)之和
第一種代碼：變量遞增
Sub 求1到1000之間奇數(shù)和()
Dim I&, J&
For I = 1 To 1000 Step 2
J = J + I
Next
MsgBox "1到1000之間奇數(shù)和為" & J
End Sub
第二種代碼：變量遞減
Sub 求1到1000之間奇數(shù)和2()
Dim I&, J&
For I = 999 To 1 Step -2
J = J + I
Next
MsgBox "1到1000之間奇數(shù)和為" & J
End Sub
|
|
發(fā)表留言請(qǐng)先登錄！
|