[VB.NET] فيجوال بيسك - نسخة قابلة للطباعة

PHP كود :
Module Module1
    Sub Main()
        Dim numbers As Integer() = {1, 3, 6, 2, 8, 3, 7, 9, 4}
        Array.Sort(numbers)

        Console.WriteLine("متوسط: " & Mean(numbers))
        Console.WriteLine("وسيط: " & Median(numbers))
        Console.WriteLine("منوال: " & Mode(numbers))

        Console.ReadLine()
    End Sub

    Function Mean(numbers As Integer()) As Double
        Dim sum As Integer = 0
        For Each num In numbers
            sum += num
        Next
        Return sum / numbers.Length
    End Function

    Function Median(numbers As Integer()) As Double
        If numbers.Length Mod 2 = 0 Then
            Return (numbers(numbers.Length \ 2 - 1) + numbers(numbers.Length \ 2)) / 2
        Else
            Return numbers(numbers.Length \ 2)
        End If
    End Function

    Function Mode(numbers As Integer()) As Integer
        Dim mode As Integer = numbers(0)
        Dim maxCount As Integer = 0

        For Each num In numbers
            Dim count As Integer = 0
            For Each n In numbers
                If n = num Then
                    count += 1
                End If
            Next
            If count > maxCount Then
                maxCount = count
                mode = num
            End If
        Next

        Return mode
    End Function
End Module
``