VB程序編寫賬號和密碼的驗證程序

Private?Sub?Command1_Click()

If?IsNumeric(Text1.Text)?And?Len(Text1.Text)?=?6?And?Text2.Text?=?"good"?Then

MsgBox?"輸入正確，驗證通過",?vbOKCancel,?"驗證通過"

Else

If?MsgBox("賬號或密碼錯誤",?vbRetryCancel,?"驗證錯誤")?=?vbRetry?Then

Text1.Text?=?""

Text2.Text?=?""

Text1.SetFocus

Else

End

End?If

End?If

End?Sub

Private?Sub?Form_Load()

Text1.PasswordChar?=?"*"

End?Sub

上一篇:正大天晴醫藥代表的福利、待遇怎樣？發展空間如何？

下一篇:ACFUN怎麽上傳視頻？