China Naming Network - Weather knowledge - Need a vb applet, the random number is 1- 12 (unrepeatable), and the interface is clear and beautiful. /kloc-thank you within 0/day.
Need a vb applet, the random number is 1- 12 (unrepeatable), and the interface is clear and beautiful. /kloc-thank you within 0/day.
Mark stmp as a string
Mark k as an integer
Private Sub-Form _Load ()
k = 0
End joint
Private subcommand 5_Click ()
Dim s 1 is a string and s is an integer.
Randomization time ()
If stmp = ""then stmp = ","
Do While k & lt 12
s = Int(Rnd *( 12- 1+ 1)+ 1)
If InStr( 1, stmp, ","&S&P. ","= 0 then
k = k + 1
Exit Do
If ... it will be over.
ring
If s<& gt, then 0
Stmp = stmp & s&p. ","
Print s
other
MsgBox "finished"
If ... it will be over.
End joint