这个程序很麻烦吗，就用你原有的程序
Dim a As New Random '定义一个随机数类
Dim tmp As Int32
Dim h As New Hashtable
While h.Count < 53
tmp = a.Next(1, 54)
If Not h.Contains(tmp) Then
h.Add(tmp, tmp)
if h.Count % 13 = 0
Label1.Text = Label1.Text & "<br>"
Label1.Text = Label1.Text & " " & tmp
End If
End While
Dim a As New Random '定义一个随机数类
Dim tmp As Int32
Dim h As New Hashtable
While h.Count < 53
tmp = a.Next(1, 54)
If Not h.Contains(tmp) Then
h.Add(tmp, tmp)
if h.Count % 13 = 0
Label1.Text = Label1.Text & "<br>"
Label1.Text = Label1.Text & " " & tmp
End If
End While
[此贴子已经被作者于2007-4-20 9:15:08编辑过]
本来无一物，何处惹尘埃
It is empty at all here, Why pm 2.5 is so TMD high!
