'Listing 26.6  26LIST06.TXT --- Uycie funkcji UBound jako ochrona przed przekroczeniem zakresu indeksu.

Option Base 1

Private Sub Command1_Click()
Dim ArrayVar(5) As Integer

For X = 1 to 6 
  Result = UBound(ArrayVar,1)
  If (X <= Result) Then
    ArrayVar(X) = X
  Else
    MsgBox "Prba przekroczenia indeksu : " & " podano " & X & ", max. dopuszczalny " & Result
  End If
Next X

For X = 1 to 6 
  Result = UBound(ArrayVar,1)
  If (X <= Result) Then
    Form1.Print "ArrayVar(" & X & " ) = " & ArrayVar(X)
  Else
    MsgBox "Prba przekroczenia indeksu : " & " podano " & X & ", max. dopuszczalny " & Result
  End If
Next X
End Sub

