查看單個文章
舊 2009-05-21, 06:20 AM   #15 (permalink)
kppne0931
註冊會員
榮譽勳章
UID - 311122
在線等級: 級別:3 | 在線時長:30小時 | 升級還需:2小時級別:3 | 在線時長:30小時 | 升級還需:2小時級別:3 | 在線時長:30小時 | 升級還需:2小時
註冊日期: 2008-10-06
文章: 65
精華: 0
現金: 124 金幣
資產: 144 金幣
預設

引用:
作者: cwvdavid 查看文章
有這麼的難嗎???

'放一個函數在程式碼內...
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


這樣跑不出結果嗎??
快好了 剩最後問題. ..友些會有些便成英文小寫顯示 不能全部改大寫嗎?
kppne0931 目前離線  
送花文章: 77, 收花文章: 61 篇, 收花: 117 次
回覆時引用此帖
向 kppne0931 送花的會員:
Living (2009-05-21)
感謝您發表一篇好文章