Sub va Function

Module Dastur
    Sub Salomlash(ism As String)
        Console.WriteLine($"Assalomu alaykum, {ism}!")
    End Sub

    Sub Main()
        Salomlash("Malika")
        Salomlash("Husanboy")
    End Sub
End Module

Module Dastur
    Function Yigindi(a As Integer, b As Integer) As Integer
        Return a + b
    End Function

    Function Yuza(uzunlik As Double, kenglik As Double) As Double
        Return uzunlik * kenglik
    End Function

    Sub Main()
        Console.WriteLine(Yigindi(15, 27))
        Console.WriteLine(Yuza(3.5, 2))
    End Sub
End Module

Module Dastur
    Function Kvadrat(son As Integer) As Integer
        Kvadrat = son * son
    End Function

    Sub Main()
        Console.WriteLine(Kvadrat(7))
    End Sub
End Module

Module Dastur
    Sub Oshir(ByVal son As Integer)
        son += 100
    End Sub

    Sub OshirHaqiqiy(ByRef son As Integer)
        son += 100
    End Sub

    Sub Main()
        Dim a As Integer = 5
        Oshir(a)
        Console.WriteLine(a)

        Dim b As Integer = 5
        OshirHaqiqiy(b)
        Console.WriteLine(b)
    End Sub
End Module

Module Dastur
    Sub BolibChiq(jami As Integer, bolovchi As Integer,
                  ByRef butun As Integer, ByRef qoldiq As Integer)
        butun = jami \ bolovchi
        qoldiq = jami Mod bolovchi
    End Sub

    Sub Main()
        Dim b As Integer, q As Integer
        BolibChiq(47, 6, b, q)
        Console.WriteLine($"{b} ta to'la, {q} ta ortdi")
    End Sub
End Module

Module Dastur
    Function Salomlash(ism As String,
                       Optional unvon As String = "hurmatli") As String
        Return $"Assalomu alaykum, {unvon} {ism}!"
    End Function

    Sub Main()
        Console.WriteLine(Salomlash("Nodira"))
        Console.WriteLine(Salomlash("Karimov", "ustoz"))
    End Sub
End Module

Module Dastur
    Function Hisobot(nom As String,
                     Optional yil As Integer = 2026,
                     Optional oy As Integer = 1) As String
        Return $"{nom}: {yil}-yil {oy}-oy"
    End Function

    Sub Main()
        Console.WriteLine(Hisobot("Savdo"))
        Console.WriteLine(Hisobot("Savdo", oy:=9))
        Console.WriteLine(Hisobot("Savdo", yil:=2025, oy:=12))
    End Sub
End Module

Module Dastur
    Function Jami(ParamArray sonlar() As Integer) As Integer
        Dim natija As Integer = 0
        For Each son As Integer In sonlar
            natija += son
        Next
        Return natija
    End Function

    Sub Main()
        Console.WriteLine(Jami(1, 2, 3))
        Console.WriteLine(Jami(10, 20, 30, 40, 50))
        Console.WriteLine(Jami())
    End Sub
End Module

Module Dastur
    Function Yuza(tomon As Double) As Double
        Return tomon * tomon
    End Function

    Function Yuza(uzunlik As Double, kenglik As Double) As Double
        Return uzunlik * kenglik
    End Function

    Function Yuza(nom As String, radius As Double) As String
        Return $"{nom}: {Math.Round(3.14159 * radius * radius, 2)}"
    End Function

    Sub Main()
        Console.WriteLine(Yuza(5))
        Console.WriteLine(Yuza(4, 3))
        Console.WriteLine(Yuza("Doira", 2))
    End Sub
End Module

Module Dastur
    Function Faktorial(n As Integer) As Long
        If n <= 1 Then
            Return 1
        End If
        Return n * Faktorial(n - 1)
    End Function

    Sub Main()
        For i As Integer = 1 To 8
            Console.WriteLine($"{i}! = {Faktorial(i)}")
        Next
    End Sub
End Module

Module Dastur
    Function Bol(a As Integer, b As Integer) As Double
        If b = 0 Then
            Console.WriteLine("Nolga bo'lib bo'lmaydi")
            Return 0
        End If
        Return a / b
    End Function

    Sub Ogohlantir(xabar As String)
        If String.IsNullOrWhiteSpace(xabar) Then
            Exit Sub
        End If
        Console.WriteLine($"DIQQAT: {xabar}")
    End Sub

    Sub Main()
        Console.WriteLine(Bol(10, 4))
        Console.WriteLine(Bol(10, 0))
        Ogohlantir("   ")
        Ogohlantir("fayl topilmadi")
    End Sub
End Module