大家好,今天小六子来为大家解答以下的问题，关于随机抽号的app，随机抽号这个很多人还不知道，现在让我们一起来看看吧！

1、Dim stmp As String Dim k As IntegerPrivate Sub Form_Load()k = 0End SubPrivate Sub Command5_Click()Dim s1 As String, s As Integer Randomize Time()If stmp = "" Then stmp = ","Do While k < 12 s = Int(Rnd * (12 - 1 + 1) + 1) If InStr(1, stmp, "," & s & ",") = 0 Then k = k + 1 Exit Do End IfLoopIf s <> 0 Thenstmp = stmp & s & ","Print sElseMsgBox "完了"End IfEnd Sub。

本文分享完毕，希望对你有所帮助。