Sikllar

Module Dastur
    Sub Main()
        For i As Integer = 1 To 5
            Console.WriteLine($"{i} x 7 = {i * 7}")
        Next
    End Sub
End Module

Module Dastur
    Sub Main()
        Dim chiqish As String = ""
        For i As Integer = 0 To 10 Step 2
            chiqish &= i & " "
        Next
        Console.WriteLine(chiqish.Trim())

        chiqish = ""
        For i As Integer = 10 To 1 Step -3
            chiqish &= i & " "
        Next
        Console.WriteLine(chiqish.Trim())
    End Sub
End Module

Module Dastur
    Sub Main()
        Dim shaharlar() As String = {"Namangan", "Andijon", "Farg'ona"}

        For Each shahar As String In shaharlar
            Console.WriteLine(shahar)
        Next
    End Sub
End Module

Module Dastur
    Sub Main()
        Dim qoldiq As Integer = 100

        While qoldiq > 0
            Console.WriteLine($"Qoldiq: {qoldiq}")
            qoldiq -= 30
        End While

        Console.WriteLine($"Tugadi. Oxirgi qiymat: {qoldiq}")
    End Sub
End Module

Module Dastur
    Sub Main()
        Dim a As Integer = 5
        Do While a < 3
            Console.WriteLine("bu chiqmaydi")
            a += 1
        Loop
        Console.WriteLine("1-shakl tugadi")

        Dim b As Integer = 5
        Do
            Console.WriteLine($"b = {b}")
            b += 1
        Loop While b < 3
        Console.WriteLine("2-shakl tugadi")
    End Sub
End Module

Module Dastur
    Sub Main()
        Dim son As Integer = 1

        Do Until son > 16
            Console.Write(son & " ")
            son *= 2
        Loop
        Console.WriteLine()
    End Sub
End Module

Module Dastur
    Sub Main()
        Dim sonlar() As Integer = {4, 8, 15, 16, 23, 42}

        For Each son As Integer In sonlar
            If son > 15 Then
                Console.WriteLine($"Birinchi katta son: {son}")
                Exit For
            End If
            Console.WriteLine($"Tekshirildi: {son}")
        Next
    End Sub
End Module

Module Dastur
    Sub Main()
        For i As Integer = 1 To 10
            If i Mod 2 = 0 Then
                Continue For
            End If
            Console.Write(i & " ")
        Next
        Console.WriteLine()
    End Sub
End Module

Module Dastur
    Sub Main()
        For i As Integer = 1 To 3
            For j As Integer = 1 To 3
                Console.Write($"{i * j}".PadLeft(4))
            Next
            Console.WriteLine()
        Next
    End Sub
End Module

Module Dastur
    Sub Main()
        Dim hisoblagich As Integer = 0

        Do
            hisoblagich += 1
            If hisoblagich >= 3 Then
                Exit Do
            End If
        Loop

        Console.WriteLine($"Sikl {hisoblagich} marta aylandi")
    End Sub
End Module

Module Dastur
    Sub Main()
        Dim ballar() As Integer = {85, 92, 78, 95, 88}
        Dim jami As Integer = 0
        Dim engYuqori As Integer = ballar(0)

        For Each ball As Integer In ballar
            jami += ball
            If ball > engYuqori Then
                engYuqori = ball
            End If
        Next

        Console.WriteLine($"Jami: {jami}")
        Console.WriteLine($"O'rtacha: {jami / ballar.Length}")
        Console.WriteLine($"Eng yuqori: {engYuqori}")
    End Sub
End Module