Mega Code Archive

 

Categories / VisualBasic Script / Language Basics

 

Use InputBox to read value for an array

'Option Compare Database Option Explicit Public Sub ArrayExample()     Dim i               As Integer     Dim intNum(1 To 10)   As Integer     For i = 1 To 10         intNum(i) = InputBox("Please enter guess " & i, "Guess!")     Next i     For i = 1 To 10         Debug.Print "Guess number " & i & " = " & intNum(i)     Next i End Sub