作者marktb (Mark)
看板Visual_Basic
標題[.NET] 樂透小程式 小問題
時間Thu Oct 26 02:03:46 2006
以下是小弟用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
1F：推 qsss:i=0 10/26 08:55
2F：推 marktb:感謝! 非常感謝!! 10/26 10:06
3F：→ qsss:個人意見, 其實寫的有點亂, 也可以不用那麼複雜 ^^ 10/26 10:15