语句块 条件2 语句块 语句块 条件n 例:以下示例完成对所输入的整数进行判断,若输入数为正数,则显示“大于零” 若输入数为负数,则显示“小于零”,否则显示“等于零”。 在 Command 1按钮的Cick事件中输入如下代码: Private Sub Command l Click If Val(TextI Text)<0 Then Text2.Text=”小于零” Elself Val(Text1. Text)>0 Then Text2Text="大于零 Else Text2.Text="等于零” End lf End Sub 3.1.2 Select case测试语句 1. Select case语句的一般形式 语句格式: Select case测试表达式 Case表达式列表1 语句块1 Case表达式列表2 语句块2 Cas表达式列表n 语句块n Case else 语句块 End Select 【例3.1】将输入文本框中的所有小写字母转换成大写字母,并将一些特殊符号变成 等价的字符串,如DR表示$、AT表示@、00表示%、BPT表示#、AND表示&等。可以 在 KeyPress事件中修改文本框控件的缺省操作,使它能在用户输入这些字符时进行相应修条件 n 语句块 条件 1 语句块 条件 3 语句块 条件 2 语句块 例：以下示例完成对所输入的整数进行判断，若输入数为正数，则显示“大于零”， 若输入数为负数，则显示“小于零”，否则显示“等于零”。 在 Command1 按钮的 Click 事件中输入如下代码： Private Sub Command1_Click() If Val(Text1.Text) < 0 Then Text2.Text = 小于零 ElseIf Val(Text1.Text) > 0 Then Text2.Text = 大于零 Else Text2.Text = 等于零 End If End Sub 3.1.2 Select Case 测试语句 1. Select Case 语句的一般形式 语句格式： Select Case 测试表达式 Case 表达式列表 1 语句块 1 Case 表达式列表 2 语句块 2 …… Case 表达式列表 n 语句块 n Case Else 语句块 End Select 【例 3.1】 将输入文本框中的所有小写字母转换成大写字母，并将一些特殊符号变成 等价的字符串，如 DLR 表示$、AT 表示@、0/0 表示％、BPT 表示#、AND 表示&等。可以 在 KeyPress 事件中修改文本框控件的缺省操作，使它能在用户输入这些字符时进行相应修 改