Language Basics VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Language Basics
  4. 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