查看單個文章
舊 2009-05-20, 02:40 PM   #9 (permalink)
mini
管理版主
 
mini 的頭像
榮譽勳章
UID - 4144
在線等級: 級別:98 | 在線時長:10161小時 | 升級還需:36小時級別:98 | 在線時長:10161小時 | 升級還需:36小時級別:98 | 在線時長:10161小時 | 升級還需:36小時級別:98 | 在線時長:10161小時 | 升級還需:36小時級別:98 | 在線時長:10161小時 | 升級還需:36小時級別:98 | 在線時長:10161小時 | 升級還需:36小時級別:98 | 在線時長:10161小時 | 升級還需:36小時級別:98 | 在線時長:10161小時 | 升級還需:36小時
註冊日期: 2002-12-07
文章: 13488
精華: 0
現金: 26849 金幣
資產: 3024779 金幣
預設

第一題

PHP 語法:
Private Sub Command1_Click()
Dim sRnd As String
Dim iupperbound 
As Integer
Dim ilowerbound 
As Integer
Dim i 
As IntegerAs Integer

    lowerbound 
Asc("0"'48
    '
upperbound Asc("9"'57
    
    '
lowerbound Asc("A"'65
    upperbound = Asc("Z") '
90
    
    
For 1 To 20
        
Do
            
Int((upperbound lowerbound 1) * Rnd lowerbound)
        
Loop While 57 And 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 則相反

此帖於 2009-05-20 03:09 PM 被 mini 編輯.
mini 目前離線  
送花文章: 2053, 收花文章: 8067 篇, 收花: 26918 次
回覆時引用此帖
有 2 位會員向 mini 送花:
kppne0931 (2009-05-20),Living (2009-05-21)
感謝您發表一篇好文章