《Visual Basic程序设计基础》习题参考答案(3)

程序1. 界面设计略，过程设计如下： Private Sub Command1_Click() If Command1.Caption = \显示\

Print \欢迎使用Visual Basic！\清除\ Else

Form1.Cls: Command1.Caption = \显示\ End If End Sub

Private Sub Command2_Click() End End Sub

Private Sub Form_Load()

Form1.Cls: Command1.Caption = \显示\退出\End Sub

程序2．界面设计略，过程设计如下： Private Sub Form_Load()

Text1.MaxLength = 1: Text1.Text = \End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer) Label1.Caption = CStr(KeyAscii) End Sub

程序3．界面设计略，过程设计如下：

Const pwd As String = \ '预设密码为123456 Private Sub Command1_Click() Cls: Print \欢迎进入！\End Sub

Private Sub Form_Load()

Command1.Caption = \进入\ Text1.Text = \ Text1.PasswordChar = \End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then