Visual Basic 6
बेसिक सिंटेक्स

अगर / और बयान

If condition Then 
    code to execute if true
ElseIf condition Then
    code
Else
    code to execute if conditions are both false
End If

पाश के लिए

For I as Integer = 1 To 10 Step 1
    code to execute
Next

चरण वैकल्पिक है और चरण 1 डिफ़ॉल्ट है। चरण यह बताता है कि कैसे गिनना है, इसलिए -1 में प्रत्येक बार 1 घटाया जाएगा और चरण 5 में यह होगा कि वह लूप के माध्यम से हर बार 5 जोड़ देगा।

यदि लूप को रोकने की आवश्यकता है, तो नीचे दिए गए उदाहरण के अनुसार, Exit For स्टेटमेंट का उपयोग किया जा सकता है;

Dim iIndex as integer

For I as Integer = 1 To 10 Step 1

Debug.Print  I     
iIndex = I * 10

If iIndex > 90 Then
    Exit For
End If

Loop

यहां, 1 से 10 की छपाई के बजाय, यह 9 पर बंद हो जाएगा, क्योंकि हालत ने बताया कि जब iIndex 90 तक पहुंचता है, तो इसे रोकना होगा।

लूप करें

विजुअल बेसिक में एक अन्य सामान्य प्रकार का लूप DO loop , जो तब तक लगातार कोड का एक टुकड़ा चलाएगा जब तक कि इसे बंद करने के लिए नहीं कहा जाता है। कुछ अन्य छोरों के विपरीत जहां प्रक्रिया को रोकने के लिए अनुक्रमित किया जाता है, इस विशेष लूप में, इसे बंद करने के लिए कहा जाना चाहिए।

लूप को दर्शाने वाला एक सरल उदाहरण इस प्रकार है

Dim iIndex1 As Integer
iIndex1 = 1
   
Do
   Debug.Print iIndex1 
   iIndex1 = iIndex1 + 1

   If iIndex1 = 10 Then
      Exit Do
   End If
Loop

कोड का उपरोक्त टुकड़ा एक इंडेक्स लेगा, जिसे 1 से शुरू किया जाएगा, और इसे बढ़ाया जाएगा। एक Debug.Print लूप रैक करने के लिए इंडेक्स को प्रिंट करने में मदद करेगा। प्रत्येक लूप पर, कोड यह सत्यापित करेगा कि क्या सूचकांक 10 तक पहुंच गया है और यदि और केवल अगर स्थिति सही है, तो Exit Do निष्पादित किया जाएगा, जो लूप को रोक देगा।

केस स्टेटमेंट का चयन करें

    Dim number As Integer = 8
    Select Case number
        Case 1 To 5
            Debug.WriteLine("Between 1 and 5, inclusive")
            ' The following is the only Case clause that evaluates to True.
        Case 6, 7, 8
            Debug.WriteLine("Between 6 and 8, inclusive")
        Case 9 To 10
            Debug.WriteLine("Equal to 9 or 10")
        Case Else
            Debug.WriteLine("Not between 1 and 10, inclusive")
    End Select