VB实验课后习题答案(常州工学院).docVIP

登录系统 Public Class Form1 Dim right_name As String Dim right_password As String Dim keycount As Integer = 0 输入的次数 Dim yhm As String Dim kl As String Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click TextBox1.Focus() yhm = Strings.RTrim(TextBox1.Text) kl = Strings.RTrim(TextBox2.Text) If yhm = right_name And kl = right_password Then Me.Hide() Form2.Show() ElseIf yhm right_name Then Me.Hide() MessageBox.Show(登录信息错误，请检查后重新输入！, 提示, MessageBoxButtons.OK, MessageBoxIcon.Error) Me.Show() TextBox1.SelectAll() TextBox1.Focus() keycount = keycount + 1 ElseIf kl right_password Then Me.Hide() MessageBox.Show(登录信息错误，请检查后重新输入！, 提示, MessageBoxButtons.OK, MessageBoxIcon.Error) Me.Show() TextBox2.SelectAll() TextBox2.Focus() keycount = keycount + 1 End If If keycount = 3 Then Button2_Click(sender, e) End If End Sub Private Sub TextBox1_KeyPress1(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress If e.KeyChar = Chr(13) Then TextBox2.Focus() End If If e.KeyChar = A And e.KeyChar = Z Or e.KeyChar = Chr(8) Then e.Handled = False Else e.Handled = True End If End Sub Private Sub TextBox2_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox2.KeyPress If e.KeyChar = Chr(13) Then Button1_Click(sender, e) End If End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click End End Sub summary 正确的用户名及对应的口令 /summary param name=sender/param param name=e/par