[求助]随机数
Dim a As New RandomDim num As Int32
Dim h As New Hashtable
While h.Count < n + 1
num = a.Next(1, 36)
If Not h.Contains(num) Then
h.Add(num, num)
Label2.Text = Label2.Text & " " & num
End If
End While
在这个代码中抽取n个数字后,应如何结束代码?
[此贴子已经被作者于2007-4-30 21:31:28编辑过]
