疑問 - VB6.0 的Command與 Textbox 新增第2問題...

[kppne0931]

作者: mini

第一題

PHP 語法:

Private Sub Command1_Click()
Dim sRnd As String
Dim iupperbound As Integer
Dim ilowerbound As Integer
Dim i As Integer, j As Integer

    lowerbound = Asc("0") '48
    'upperbound = Asc("9") '57
    
    'lowerbound = Asc("A") '65
    upperbound = Asc("Z") '90
    
    For i = 1 To 20
        Do
            j = Int((upperbound - lowerbound + 1) * Rnd + lowerbound)
        Loop While j > 57 And j < 65
        sRnd = sRnd & Chr(j)
    Next
    Me.Caption = sRnd    

End Sub 


如果你裝 VB時能把
MSDN Library Visual Studio 也安裝上去
會對你有很大的幫助

至於解說請自己按 F8步進了解
重點在
Int((upperbound - lowerbound + 1) * Rnd + lowerbound)
這個公式
及範圍須落在 >=48 及 <=90
但不可 >57 及 <65


至於第二題
可以用 Frame 的 .Enabled 這個屬性做切換
Frame1.Enabled = False 時就會不可使用(包括放在Frame1上的物件)
Frame1.Enabled = True 則相反

我朋友說LEN可以用 但是我不知道啥事LEN 有人可以交我一下嗎?

還有我用了大大提供的程式碼 發現...還是沒有20位....