Displaying Array Element to Textbox Problem

General Computing Coding and Design
1

I am trying to display the contents of a array to a textbox, but it will not work. Seems that there is always a value missing. See jpeg attached.




Private Sub FirstLine()

Dim iFirstRowOrdered(9) As String
Dim V As Integer

Dim iRow1(9) As String


iFirstRowOrdered(0) = "1"
iFirstRowOrdered(1) = "2"
iFirstRowOrdered(2) = "3"
iFirstRowOrdered(3) = "4"
iFirstRowOrdered(4) = "5"
iFirstRowOrdered(5) = "6"
iFirstRowOrdered(6) = "7"
iFirstRowOrdered(7) = "8"
iFirstRowOrdered(8) = "9"

Dim RowCell As Integer
Dim A As Integer



RowCell = 0
A = 9
Randomize
Do
  x = Int(Rnd(1) * A)
  iRow1(RowCell) = iFirstRowOrdered(x)
  Text6 = Text6 & iRow1(RowCell)
  iFirstRowOrdered(x) = iFirstRowOrdered(A)
  A = A - 1
  RowCell = RowCell + 1
Loop While A > 0

      txtRow1Cell1.Text = iRow1(0)
      txtRow1Cell2.Text = iRow1(1)
      txtRow1Cell3.Text = iRow1(2)
      txtRow1Cell4.Text = iRow1(3)
      txtRow1Cell5.Text = iRow1(4)
      txtRow1Cell6.Text = iRow1(5)
      txtRow1Cell7.Text = iRow1(6)
      txtRow1Cell8.Text = iRow1(7)
      txtRow1Cell9.Text = iRow1(8)

End Sub
2

You are initiialising A to 9: there is no iFirstRowOrdered(9) [actually it is empty].