[amgad525]

PHP كود :

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


PHP كود :

Dim input As String
input = InputBox("Enter 7 digits separated by a comma(,):")

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("Enter nuber:")
    If Not IsNumeric(s) Then
        MsgBox("Invalid number")
        Exit Sub
    End If

    n(i) = CSng(s)

Next

MsgBox(n.Average)