Private Sub Command1_Click()
Dim randomString As String
Dim i As Integer
Dim chars As String
chars = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789"
' 初始化隨機字串
randomString = ""
' 產生 20 個隨機字元
For i = 1 To 20
randomString = randomString & Mid(chars, Int(Rnd * Len(chars)) + 1, 1)
Next i
' 將結果顯示在文字框中
Text1.Text = randomString
End Sub
|