آرايه

برنامه اي كه 20 عدد اعشار از ورودي بخواند و در يك ارايه ذخيره كند و مجموع و ميانگينان را محاسبه كند.

شما جان بخواه
اینم کد برنامه ای که میخواستی

[PHP]Private Sub Command1_Click()
Dim num(1 To 20) As Integer
For i = 1 To 20
num(i) = InputBox("")
Sum = Sum + num(i)
Next
Print Sum
Print Sum / 20
End Sub
[/PHP]

ممممممممممممممممممممنون