Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
            System.EventArgs) Handles MyBase.Load
  Dim i, j As Integer

  For i = 0 To 1000
    For j = 0 To 2
      Select Case j
        Case 0            ' Liczba
          Values(i, j) = i
        Case 1            ' Pierwiastek kwadratowy
          Values(i, j) = Math.Sqrt(i)
        Case 2            ' Kwadrat
          Values(i, j) = i * i
      End Select
    Next
  Next
End Sub
