求大神帮忙解一道vb题
1）、密码（Text2）要求：输入的内容均显示为“*”；并在输入完毕检验其不充许无密码；2）、验证码（Lable1）要求：边框如图1所示；并自动随机产生一个由四位大写字母组成的验证码；3）、确定 (Command1）要求：单击确定后检验验证码是否输入正确，若不正确则要求重新输入！正确后则可进入信息输入窗体（Form2）Private Sub Command1_Click() If Text3.Text <> #####[1]#####.Caption Then '第1空 If Text3.Text <> #####[1]#####.Caption Then MsgBox "验证码不正确，请重新输入!" Rem 输入验证码文本框要获得焦点 Text3.#####[2]##### '第2空 Text3.#####[2]##### Text3.SelStart = 0 '选择文本框中的所有内容 Text3.SelLength = Len(Text3.Text) Else Form1.#####[3]##### '第3空 Form1.#####[3]##### #####[4]#####.Show '第4空 #####[4]#####.Show End IfEnd SubPrivate Sub Form_Activate() Dim i As Integer, str1 As String Randomize For i = 1 To 4 '产生4位随机大写字母 str1 = str1 + Chr(Int(Rnd() * 26 + #####[5]#####)) '第5空 str1 = str1 + Chr(Int(Rnd() * 26 + #####[5]#####)) Next i Label1.Caption = str1End SubPrivate Sub Form_Load() Text2.#####[6]##### = "*" '密码输入内容显示为“*” '第6空 Text2.#####[6]##### = "*" '密码输入内容显示为“*” Label1.#####[7]##### = 1 '验证码标签的边框为内陷 '第7空 Label1.#####[7]##### = 1 '验证码标签的边框为内陷End SubRem Text2失去焦点后，验证是否输入密码Private Sub Text2_#####[8]#####() '第8空 Private Sub Text2_#####[8]#####() If Text2.Text = "" Then MsgBox "请输入密码！" Text2.SetFocus End IfEnd Sub
If Text3.Text <> Label1.Caption Then '第1空 If Text3.Text <> #####[1]#####.Caption Then
MsgBox "验证码不正确，请重新输入!"
Rem 输入验证码文本框要获得焦点
Text3.SetFocus '第2空 Text3.#####[2]#####
Text3.SelStart = 0 '选择文本框中的所有内容
Text3.SelLength = Len(Text3.Text)
Else
Form1.Hide '第3空 Form1.#####[3]#####
Form2.Show '第4空 #####[4]#####.Show
End If
End Sub
Private Sub Form_Activate()
Dim i As Integer, str1 As String
Randomize
For i = 1 To 4 '产生4位随机大写字母
str1 = str1 + Chr(Int(Rnd() * 26 + 65)) '第5空 str1 = str1 + Chr(Int(Rnd() * 26 + #####[5]#####))
Next i
Label1.Caption = str1
End Sub
Private Sub Form_Load()
Text2.PasswordChar = "*" '密码输入内容显示为“*” '第6空 Text2.#####[6]##### = "*" '密码输入内容显示为“*”
Label1.BorderStyle = 1 '验证码标签的边框为内陷 '第7空 Label1.#####[7]##### = 1 '验证码标签的边框为内陷
End Sub
Rem Text2失去焦点后，验证是否输入密码
Private Sub Text2_LostFocus() '第8空 Private Sub Text2_#####[8]#####()
If Text2.Text = "" Then
MsgBox "请输入密码！"
Text2.SetFocus
End If
End Sub
