|
|
|||||||
| 論壇說明 |
|
歡迎您來到『史萊姆論壇』 ^___^ 您目前正以訪客的身份瀏覽本論壇，訪客所擁有的權限將受到限制，您可以瀏覽本論壇大部份的版區與文章，但您將無法參與任何討論或是使用私人訊息與其他會員交流。若您希望擁有完整的使用權限，請註冊成為我們的一份子，註冊的程序十分簡單、快速，而且最重要的是－－註冊是完全免費的！ 請點擊這裡：『註冊成為我們的一份子！』 |
|
|
主題工具 | 顯示模式 |
2009-05-21, 12:21 PM
|
#17 (permalink) |
|
長老會員
 
|
函數改一下就好了...
Function NewPassword(intLen) Dim tmpSTR Dim i Dim tmp Randomize For i = 1 To intLen tmp = Int(Rnd * (122 - 49) + 49) if (tmp>=58 and tmp<=64) or (tmp>=91 and tmp<=96) then i=i-1 Else tmpSTR = Chr(tmp) NewPassword = NewPassword & tmpSTR End if Next '將亂數結果的小寫英文字轉成大寫 NewPassword = UCASE(NewPassword) End Function |
|
送花文章: 4036,
|
|
|
相似的主題
|
||||
| 主題 | 主題作者 | 討論區 | 回覆 | 最後發表 |
| 程式 - 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 |
樹形模式