Private Sub Command1_Click()
Randomize
s = ""
x = "0123456789"
For i = 1 To 4
a = Int(Rnd * Len(x) + 1)
s = s + Mid(x, a, 1)
x = Left(x, a - 1) + Mid(x, a + 1, Len(x) - a)
Next i
Label1 = s
End Sub


有問題再問我吧XD


    全站熱搜

    jambalaya 發表在 痞客邦 留言(2) 人氣()