第4章vb语句.ppt

Private Sub Command1_Click() Dim i As Integer If Text2.Text = 123456 And Text1.Text = npu Then Form3.Visible = True Form1.Visible = False Else: i = MsgBox(密码错！ + Chr(13) + Chr(10) + 是否重新输入？, vbOKOnly + vbCritical, 提示信息) Text2.Text = Form1.Visible = True End If End Sub Private Sub Command2_Click() End End Sub Private Sub Form_Load() Text1.Text = npu“ Text2.Text = “” Text2.PasswordChar = “* End Sub If…Then…ElseIf 结构 Char = InputBox(输入一个字符, 测试字符值) If Char = 0 And Char = 9 Then MsgBox 输入的字符是数字 ElseIf Char = A And Char = Z Then MsgBox 输入的字符是大写字母 ElseIf Char = a And Char = z Then MsgBox 输入的字符是小写字母 Else MsgBox 输入的字符是其它符号 End If If…Then…ElseIf 结构 Private Sub Command1_Click() 单击“正确无误”按钮 If Len(TxtCode.Text) 8 Then LblWarn.Caption = 考核证号必须输入，长度为8位 TxtCode.SetFocus ElseIf Len(TxtName.Text) = 0 Then LblWarn.Caption = 考生姓名必须输入 TxtName.SetFocus ElseIf Len(TxtSeat.Text) = 0 Then LblWarn.Caption = 座位号必须输入 TxtSeat.SetFocus Else LblWarn.Caption = Debug.Print TxtCode.Text Debug.Print TxtName.Text Debug.Print TxtSeat.Text End If End Sub 3.1 选择结构－Select Case选择语句 [例] 学生成绩分等 Data = InputBox(请输入一个成绩, 成绩分等) Select Case Int(Data / 10) Case 10 MsgBox 满分, , 成绩分等 Case 9 MsgBox 优秀, , 成绩分等 Case 8 MsgBox 良好, , 成绩分等 Case 7 MsgBox 一般, , 成绩分等 Case 6 MsgBox 合格, , 成绩分等 Case Else MsgBox 不合格, , 成绩分等 End Select Option Explicit Dim result!, nok%, nerror% 存放计算结果，正确个数，错误个数 Rem 生成题目 Private Sub Form_Load() Dim num1%, num2%, nop%, op$