How to Enter Data Using InputBox in an Array?.

ProWalter

e.g Perhaps you enter weekly Salary and its Average.
Dim Array(5) As Decimal
Dim WeeklySal As Decimal
Dim Count,Add As Integer
Dim TotSalary As Decimal

For Count = 0 To (Array.length-1)
Array(Count) = InputBox("Enter Your Weekly Salary","Programmer's Heaven")
Next

For Add = 0 To (Array.Length-1)
TotSalary += Arraya(Add)
Next

label1.text = "Weekly Salary Average Is: R" & CStr(Cdec(TotSalary/Array.Length-1))