المطلوب المستخدم يدخل 7 ارقام في تيكست بوكس او ليبل وبعدها يطلع المتوسط للارقام , اهم شي الارقام ماتكون في الكود تكون مجهولة واليوزر يدخلها 

(25-11-16, 03:01 PM)amgad525 كتب :

PHP كود :

Dim arr() As Double = {44, 63, 52, 98, 43, 84, 75}
MsgBox(arr.Average) 


PHP كود :

Dim input As String
input = InputBox("أدخل سبعة أرقام تفصل بينهم بفاصلة")

Dim sp() As String = input.Split(",")

Dim n(6) As Single
For i = 0 To 6
    n(i) = CSng(sp(i))
Next

MsgBox(n.Average) 


PHP كود :

Dim n(6) As Single
For i = 0 To 6

    Dim s = InputBox("أدخل رقم")
    If Not IsNumeric(s) Then
        MsgBox("لم تدخل رقما، فضلا حاول من جديد")
        Exit Sub
    End If

    n(i) = CSng(s)

Next

MsgBox(n.Average) 


(25-11-16, 03:25 PM)Fantastico كتب : في المرفقات

(25-11-16, 10:57 PM)amgad525 كتب :

PHP كود :

Dim n(6) As Integer
For i = 0 To 6
    n(i) = CInt(InputBox("Enter number:"))
Next

averageLabel1.Text = n.Average 


(25-11-16, 11:13 PM)أبو ناصر كتب : السلام عليكم 
  صممت لك برنامجا يقوم بحساب المتوسط الحسابي للأعداد المدخلة عددها كما تحب 7 أ و اكثر أو أقل  .

PHP كود :

Public Class Form1
    Dim myList As New List(Of Integer)

    ' ادخال الأعداد
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        myList.Add(CInt(TextBox1.Text))
        TextBox1.Clear()
        TextBox1.Focus()
    End Sub

    ' حساب المتوسط الحسابي
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If myList.Count = 0 Then Exit Sub

        TextBox2.Text = myList.Average
        myList.Clear()

    End Sub
End Class