谁能用vb帮忙做一个1到120号随机的，不重复的抽奖程序，急用，谢谢

Question

如题所述

Answer 1

Dim t As String, k As Long, zs As Long

Private Sub Command1_Click()

Dim n As Long, j As Long, s As String, b() As String, tt As String

k = k + 1

If k > zs Then

MsgBox "最多只能抽" & zs & "次。"

Exit Sub

End If

Randomize

n = Rnd(99999) * (zs - k)

b() = Split(t, ",")

s = b(n) & ","

tt = "第【" & Format(k, "000") & "】次抽中奖号码为：" & b(n)

If Len(Text1) > 0 Then

Text1 = Text1 & vbCrLf & tt

Else

Text1 = tt

End If

Text1.SelStart = Len(Text1) - Len(tt)

t = Replace(t, s, "")

Debug.Print s; "=="; t

End Sub

Private Sub Form_Load()

zs = 120

Command1.Caption = "抽奖"

Text1 = ""

'    Text1.MultiLine = True

Dim j As Long

t = "[001],"

For j = 2 To zs

t = t & "[" & Format(j, "000") & "],"

Next

End Sub

Answer 2

你这个才十分，编个程序起码半个小时