第一題
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 則相反