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

《VB实验课后习题答案(常州工学院)》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、1、登录系统PublicClassFormlDimrightnameAsStringDimright^passwordAsStringDimkeycountAsInteger=0'输入的次数DimyhmAsStringDimklAsStringPrivateSubButtonl_Click(ByValsenderAsSystem・Object,ByVaieAsSystem.EventArgs)HandlesButtonl.ClickTextBoxl.Focus()yhm二Strings.RTrim(TextBoxl.Text)kl=Strings.RTrim(TextB

2、ox2.Text)Tfyhm=rightnameAndkl=rightpasswordThenMe.Hide()Form2.Show()Elselfyhm<>rightnameThenMe.Hide()MessageBox.Show(”登录信息错误,请检查后重新输入!”,"提示"，MessageBoxButtons.OK,MesscigeBoxlcon.Error)Me.Show()TextBoxl.SelectAll()TextBoxl.Focus()keycount=keycouni+1Elselfkl<>right_passwordThenMe.HideOMess

3、ageBox.Show(”登录信息错误，请检查后重新输入!”,"提示"，MessageBoxButtons.OK,MessageBoxlcon・Error)Me.Show()TextBox2.SeiectAl1()TcxtBox2.Focus0keycount二keycount+1EndIfIfkeycount=3ThenButton2Click(sender,e)EndTfEndSubPrivateSubTextBoxl_KeyPressl(ByVaisenderAsObject,ByVaieAsSystem・Windows・Forms・KeyPressEventAr

4、gs)HandlesTextBox1・KeyPressIfe.KeyChar=Chr(13)ThenTextBox2.Focus()EndIfIfe.KeyChar>="A"Ande.KeyChar<="Z"Ore.KeyChar=Chr(8)Thene.Handled=FalseElsee・Handled=TrueEndIfEndSubPrivateSubTextBox2KeyPress(ByValsenderAsObject,ByValeAsSystem・Windows・Forms・KeyPressEventArgs)HandlesTcxtBox2・KeyPress

5、Ife.KeyChar=Chr(13)ThenButtonlClick(sender,e)EndIfEndSubPrivateSubButton2Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.ClickEndEndSub'''