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