随机抽号器 随机抽号

今天来聊聊关于随机抽号器，随机抽号的文章，现在就为大家来简单介绍下随机抽号器，随机抽号，希望对各位小伙伴们有所帮助。

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。

相信通过随机抽号这篇文章能帮到你，在和好朋友分享的时候，也欢迎感兴趣小伙伴们一起来探讨。