[sanyor77]

وعليكم السلام ورحمة الله تعالى وبركاته، يسعدني مساعدتك في تعلم الفيجوال بيسك. إليك كود بسيط لحساب المتوسط الحسابي، الوسيط، والمنوال لقائمة من الأرقام. يمكنك تعديل هذا الكود وفقًا لاحتياجاتك.

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
`` 


هذا الكود يحسب المتوسط الحسابي، الوسيط والمنوال لقائمة من الأرقام في مصفوفة. إذا كنت ترغب في قراءة القيم من المستخدم أو استخدام واجهة مستخدم بصرية، فستحتاج إلى تعديل هذا الكود ليناسب تلك الحالات.