高中信息技术基础vb登录程序代码

高中信息技术基础vb登录程序代码 Dim num As Integer, t As Integer Private Sub command1_click() Dim uname As String, psd As String, vcode As Integer uname = Text1.Text psd = Text2.Text vcode = Val(Text3.Text) If vcode <> Val(Label4.Caption) Then num = num - 1 Label5.Caption = "ÑéÖ?ÂëÓÐÎó??" & "??ÓÐ" & Str(num) & "?Î?ú?á" ElseIf uname <> "admin" Or psd <> "p@$$w0rd" Then num = num - 1 Label5.Caption = "ÓÃ??ÃûÓëÃÜÂë?íÎó??" & "??ÓÐ" & Str(num) & "?Î?ú?á" Else Label5.Caption = "ÑéÖ??É????" timer1.Interval = 200 image1.Visible = True End If If num < 1 Then MsgBox ("3?Î?ú?áÒѵ????ÌÐò?áÊø??") End End If End Sub Private Sub Form_Load() Randomize Label4.Caption = Int(Rnd * 9000) + 1000 image1.Visible = False num = 3 t = 60 timer2.Interval = 1000 End Sub Private Sub timer1_timer() Dim n As Integer, ss As String ss = Label5.Caption n = Len(ss) Label5.Caption = Mid(ss, 2, n - 1) + Mid(ss, 1, 1) End Sub Private Sub timer2_timer() label6.Caption = "??Ê?Óà" & Str(t) & "Ãë" t = t - 1 If t < 0 Then MsgBox ("Ê??äµ????ÌÐò?áÊø??") End End If End Sub