مثال دستور if

برنامه ای بنویسید که کلیه اعداد زوج دو رقمی را چاپ نماید.

روش 1 :

Private Sub Command1_Click()

For  i = 10 To 99 Step 2

  Print  i

Next  i

End Sub

روش 2 :

Private Sub Command1_Click()

For  i = 10 To 99

If  I  Mod 2 =0 Then    Print  i

Next  i

End Sub