[.NET] 樂透小程式 小問題

[marktb (Mark)]

以下是小弟用while 和 boolen來判斷是否數字重複
但是有個小問題
就是按下案鈕
textbox1 都是顯示0
可以請各位幫忙看一下問題出在哪嗎 感激不近
        Dim b(6), x, i, j As Integer
        Dim bb As Boolean = False
        Randomize()
        b(i) = Int(Rnd() * 42) + 1
        i = 1
        While i < 6
            x = Int(Rnd() * 42) + 1
            bb = False
            For j = 0 To i - 1

                If b(j) = x Then
                    bb = True
                End If

            Next j
            If bb = False Then
                b(i + 1) = x
                i = i + 1
            End If
        End While
        TextBox1.Text = b(1)
        TextBox2.Text = b(2)
        TextBox3.Text = b(3)
        TextBox4.Text = b(4)
        TextBox5.Text = b(5)
        TextBox6.Text = b(6)

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 220.129.131.159
推 qsss:i=0
推 marktb:感謝! 非常感謝!!
→ qsss:個人意見, 其實寫的有點亂, 也可以不用那麼複雜 ^^