Private Sub Command1 Click x= Val(Textl Text f x Mod 2=0 Then Text2.Text="偶数 Else消息 Text2.Text="奇数 2.在窗体上建立两个文本框Text1、Text2及Text3,分别代表学号、年级及学生类型,建立一个命 令按钮 Command1(“判断”)。 Private Sub Command1 Click Dim t As string, p As string Mid (Text. Text, 5, 1) Select case t p="博士生 p="硕士生 p="本科生 Case"5 p="专科生 Case Else =“无效学号 End select Text2 Text Left(TextI Text, 2)+9k Text3 te End sub 3.窗体上建立了一个文本框Text1(“输入口令”)和一个命令按钮 Commandl(“检查”)。 Private Sub Command1 Click “检查” Ifx="12345678"Ther MsgBox"欢迎你用机 Else MsgBox"对不起,口令错 TextI set focus Private Sub Form LoadO Textl. MaxLength =8 End sub 4.窗体上建立了两个文本框Text1(输入字符串)及Text2(转换结果),一个命令按钮 Command l(“清 Private Sub Command1 Click “清除” Text2 Text= TextI Set Focus End Sub Private Sub Textl KeyPress(KeyAscii As Integer) Dim s As string I s= Chr(KeyAscii s= CAse(s)3 Private Sub Command1_Click() '“判断” x = Val(Text1.Text) If x Mod 2 = 0 Then Text2.Text = "偶数" Else 消息 Text2.Text = "奇数" End If End Sub 2. 在窗体上建立两个文本框 Text1、Text2 及 Text3，分别代表学号、年级及学生类型，建立一个命 令按钮 Command1(“判断”)。 Private Sub Command1_Click() Dim t As String, p As String t = Mid(Text1.Text, 5, 1) Select Case t Case "2" p = "博士生" Case "3" p = "硕士生" Case "4" p = "本科生" Case "5" p = "专科生" Case Else p = "无效学号" End Select Text2.Text = Left(Text1.Text, 2) + "级" Text3.Text = p End Sub 3．窗体上建立了一个文本框 Text1(“输入口令”)和一个命令按钮 Command1(“检查”)。 Private Sub Command1_Click() '“检查” x = Text1.Text If x = "12345678" Then MsgBox "欢迎你用机!" Else MsgBox "对不起，口令错" End If Text1.Text = "" Text1.SetFocus End Sub Private Sub Form_Load() Text1.Text = "" Text1.MaxLength = 8 Text1.PasswordChar = "*" End Sub 4．窗体上建立了两个文本框 Text1(输入字符串)及 Text2(转换结果)，一个命令按钮 Command1(“清 除”)。 Private Sub Command1_Click() '“清除” Text1.Text = "" Text2.Text = "" Text1.SetFocus End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) Dim s As String * 1 s = Chr(KeyAscii) Select Case s Case "A" To "Z" s = LCase(s) Case "a" To "z" s = UCase(s)