作者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