How to Enter Data Using InputBox in an Array?.

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

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

label1.text = "Weekly Salary Average Is: R" & CStr(Cdec(TotSalary/Array.Length))
Sign In or Register to comment.

Howdy, Stranger!

It looks like you're new here. If you want to get involved, click one of these buttons!