Module Module1
Sub Main()
Dim num(4), Index As Integer
[Link]("Enter the values to store in the Array")
For Index = 0 To 3
num(Index) = [Link]()
Next
Dim row As Integer
[Link]("Enter the row number you want to see.")
row = [Link]
row = row - 1
[Link]("The value on the row you entered = " & num(row))
[Link]()
End Sub
End Module