|
|
|||||||
| 論壇說明 |
|
歡迎您來到『史萊姆論壇』 ^___^ 您目前正以訪客的身份瀏覽本論壇，訪客所擁有的權限將受到限制，您可以瀏覽本論壇大部份的版區與文章，但您將無法參與任何討論或是使用私人訊息與其他會員交流。若您希望擁有完整的使用權限，請註冊成為我們的一份子，註冊的程序十分簡單、快速，而且最重要的是－－註冊是完全免費的！ 請點擊這裡：『註冊成為我們的一份子！』 |
 |
|
|
主題工具 | 顯示模式 |
|
|
2024-09-16, 11:22 AM
|
#1 (permalink) |
|
註冊會員
|
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 |
|
送花文章: 0,
|
|
|
|
|
相似的主題
|
||||
| 主題 | 主題作者 | 討論區 | 回覆 | 最後發表 |
| 程式 - vb6 字串轉換成網頁的字串+asp | 飛行船大大 | 程式語言討論區 | 6 | 2009-01-27 06:12 AM |
| 尋找VB6.0中文版 | 電腦狂 | 一般電腦疑難討論區 | 3 | 2003-10-25 01:21 PM |
| 找尋vb6.0的程式語言軟體... | supercoala | 一般電腦疑難討論區 | 1 | 2003-09-21 09:08 PM |
| 哪裡有vb6.0中文版可以下載? | newangel | 一般電腦疑難討論區 | 0 | 2003-08-31 02:02 PM |
| 有關VB6.0轉變點陣圖? | sammi2419 | 一般電腦疑難討論區 | 0 | 2003-08-27 12:53 AM |
混合模式
