第四章、VisualBasicNET语言基础2.pptVIP

在If…Then…结构中，无论“Then”后面有多少条语句，都要写在一行，语句间用冒号“:”分隔。 以下面的代码为例： Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If 3 2 Then Label1.Text = 3 is bigger End Sub 以下面的代码为例： Private Sub Button1_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button1.Click Dim a, b As Integer a = Val (TextBox1.Text) b = Val (TextBox2.Text) If a b Then Label3.Text = ab Else Label3.Text = ab End Sub 程序运行结果如图所示 说明： （1） 每个Case分支中的“值”可以是数值、字符串或表达式。 （2） 当变量表达式的值和Case分支中的某一个值相吻合时，执行该值对应的 语句。 当变量表达式的值和给定的Case分支中的值都不相等时，执行“Case Else”对应的语句。 （3） Case分支中的“值”可以是一个值，也可以是几个值。如果包括多个值，值之间是“或者”关系并用逗号（“，”）分隔。 【例3.4】设定两个常量，由用户录入运算符号，将运算结果显示在文本框中。当用户录入的为“+”、“-”、“*”、“/”之外的字符时，提示错误信息。 Private Sub Button1_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button1.Click Dim note As String note = TextBox1.Text Select Case note Case + TextBox2.Text = 24 + 10 Case - TextBox2.Text = 24 - 10 Case * TextBox2.Text = 24 * 10 Case / TextBox2.Text = 24 / 10 Case Else MsgBox (对不起，您录入的是非法数据！, , 警告) End Select End Sub 【例3. 5】根据用户录入的成绩，判断该成绩所在的等级。其中：90分及以上为“优秀”，80 ~ 89分为“良好”，70 ~79为“中等”，60 ~ 69为“及格”，60分以下为“不及格”。将成绩结果以消息对话框的形式反馈给用户。 Private Sub Button1_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button1.Click Dim grade As Single grade = Val(TextBox1.Text) Select Case grade Case Is = 90 MsgBox (恭喜，您的成绩属于优秀！, , 成绩等级判定) Case 80 To 89 MsgBox (恭喜，您的成绩属于良好！, , 成绩等级判定) Case 70 To 79 MsgBox (您的成绩属于中等，要加油喽！, , 成绩等级判定) Case 60 To 69 MsgBox (您的成绩属于及格，还请继续努力！, , 成绩等级判定) Case Is 60 M