[.NET] 樂透小程式 小問題
以下是小弟用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
推
10/26 08:55, , 1F
10/26 08:55, 1F
推
10/26 10:06, , 2F
10/26 10:06, 2F
→
10/26 10:15, , 3F
10/26 10:15, 3F
Visual_Basic 近期熱門文章
PTT數位生活區 即時熱門文章
