[a_abdullah]

(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) 


في كم شغله في اكوادك مافهمتها 
انا كتبت هذا الكود بنفس طريقة دراستي لكن ما يطلع لي المتوسط اذا عندك خلفية عن المشكله 

PHP كود :

Dim n(6) As Integer
        For i = 0 To 6
            n(i) = arrayTextBox1.Text
        Next

        averageLabel1.Text = n.Average 


---

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

يعطيك العافيه حملته وشفته لكن المشكله بس يطلع لي الرقم اللي ادخله بدون مايطلع المتوسط