مجموع اعداد زوج و فرد
مجموع اعداد زوج و فرد 0 تا 100 را محاسبه کرده و جداگانه چاپ کند.
Private Sub Command14_Click()
Dim i As Integer, s As Integer
For i = 0 To 100 Step 2
s = s + i
Next
MsgBox Prompt:=s, Title:="Events"
s = 0
For i = 1 To 100 Step 2
s = s + i
Next
MsgBox Prompt:=s, Title:="Odds"
End Sub