|
|
|||||||
| 論壇說明 |
|
歡迎您來到『史萊姆論壇』 ^___^ 您目前正以訪客的身份瀏覽本論壇，訪客所擁有的權限將受到限制，您可以瀏覽本論壇大部份的版區與文章，但您將無法參與任何討論或是使用私人訊息與其他會員交流。若您希望擁有完整的使用權限，請註冊成為我們的一份子，註冊的程序十分簡單、快速，而且最重要的是－－註冊是完全免費的！ 請點擊這裡：『註冊成為我們的一份子！』 |
 |
|
|
主題工具 | 顯示模式 |
|
|
2009-05-20, 08:53 PM
|
#1 (permalink) |
|
長老會員
 
|
NewPassword(20) 可以得到 20個英文數字 + "20"
NewPassword(13) 可以得到 13個英文數字 + "13" 把倒數第2行的 NewPassword = NewPassword & len(NewPassword) 拿掉... 就ok了... ＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝ len是顯示文字長度的... Len("AABB") 就是 4 Len("Kppne0931") 就是 9 |
__________________ 姜太公釣魚~ 願者上鉤
|
|
|
送花文章: 4036,
|
|
2009-05-20, 10:35 PM
|
#2 (permalink) | |
|
註冊會員
|
引用:
還有mini大大提供的程式碼 用上去....還是沒有每次都20位 為啥會這樣... |
|
|
|
送花文章: 77,
|
|
向 kppne0931 送花的會員:
|
|
2009-05-20, 10:53 PM
|
#3 (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 End Function '在Command1的Click裡面寫... Private Sub Command1_Click() Text3.Text = NewPassword(20) End Sub 這樣跑不出結果嗎?? |
|
|
送花文章: 4036,
|
|
2009-05-21, 06:20 AM
|
#4 (permalink) | |
|
註冊會員
|
引用:
|
|
|
|
送花文章: 77,
|
|
向 kppne0931 送花的會員:
|
|
2009-05-21, 12:21 PM
|
#7 (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 |
混合模式
