مثال دستور if

دستورات شرطی بخش اول .مثال ۲

برنامه ای بنویسید که در یک حلقه 100 بار اجرا فقط اعداد 1 تا 10 نمایش  داده شود

Private Sub Command1_Click()

For  i = 1 To 100

  If   i > 10   Then

    Exit  For

  End  If

  Print  i

Next   i

End Sub

تذکر 1: تابع Exit For جهت خروج کنترل برنامه از حلقه For