Dim a As LongPrivate Sub Command1_Click()If Text1.Text = a ThenLabel1.Caption = "下一步"ElseLabel1.Caption = "密码错误"End IfEnd SubPrivate Sub Form_Load()Text1.Pass...
Private Sub Command1_Click()Static n As Integer'静态变量用于统计密码检验次数Const mimao As String = "1234"'预设密码1234n = n + 1If Text1.Text = mimao ThenLabel2.Caption = "下一步"Else...