第6章 VBNet程序设计基础 - Welcome to nginx!.ppt

MsgBox函数语法格式： 变量[%]=MsgBox (提示信息[,按钮样式][,标题]) 表13-9 MsgBox按钮返回值 返回值内部常量 返回值 被单击的按钮 vbOK 1 单击【确定】按钮 vbCancel 2 单击【取消】按钮 vbAbort 3 单击【终止】按钮 vbRetry 4 单击【重试】按钮 vbIgnore 5 单击【忽略】按钮 vbYes 6 单击【是】按钮 vbNo 7 单击【否】按钮 2．选择结构 根据所给定的条件是否满足，决定从给定的两组或多组操作中选择其一。 （1）If语句 If语句是用来判定所给定的条件是否满足，根据判断的结果（True或False）来决定执行给出的操作之一。 VB.NET提供了3种形式的If语句。 1）单分支If语句 If 条件表达式 Then 语句块 EndIf 或： If 条件 Then 语句 图13-12 单分支语句流程图 【例13-2】输入两个整型数，按由小到大的顺序输出这两个数。如果在弹出第一个对话框时输入24，第二个对话框输入12，程序运行结果如图13-13所示。 Private Sub Form1_Click(…) Handles MyBase.Click ‘限于篇幅，事件框架中的参数省略。 Dim a As Integer, b As Integer, t As Integer a = InputBox(第1个数, 输入数据, , 200, 200) b = InputBox(第2个数, 输入数据, , 200, 200) If a b Then ‘如果ab，交换a和b的值 t = a a = b b = t End If MsgBox(较小数 a 较大数 b, , 从小到大排序) ‘报告结果End Sub 图13-13 两数排序结果 或:If a b Then t = a：a = b：b = t 2）If语句格式2 If 条件 Then 语句1 Else 语句2 EndIf 或：If 条件 Then 语句1 Else 语句2 图13-14 双分支语句的流程图 条件表达式 语句块 1 语句块 2 True False 【例】计算分段函数的值 程序1: Dim a, x, y As Single a = Val(InputBox(请输入a 的值, 计算分段函数)) x = Val(InputBox(请输入x 的值, 计算分段函数)) If x = -a Then y = 0 If (x -a) And (x = a / 2) Then y = Math.Sqrt(a * a - x * x) If x a / 2 Then y = x MsgBox (a= a x= x y= y) 程序2 If x = -a Then y = 0 ElseIf (x -a) And (x = a / 2) Then y = Math.Sqrt(a * a - x * x) ElseIf x a / 2 Then y = x End If MsgBox (a= a x= x y= y) 3）多分支If语句 If 条件表达式1 Then 语句块1 ElseIf 条件表达式2 Then 语句块2 …… Else 语句块n 图13-15 多分支语句的流程图 不管有几个分支,当某条件满足,执行相应的语句块,其余分支不再执行。 4）If语句的嵌套 If语句的嵌套是指If语句中的语句块又包含If语句。语句格式如下； If 条件表达式1 Then If 条件表达式11 Then 语句块1 … EndIf EndIf （2）Select Case语句 Select Case语句也称为情况语句，它可以用来实现多分支选择结构程序。 语句格式： Select Case 表达式 Case 表达式列表1 语句块1 Case 表达式列表2 语句块2 …… Case Else 语句块n End Select Case子句的表达式可以由以下几种形式构成： 表达式1 to 表达式2： Case 1 To 5 表达式值在1到5范围内。 Is运算表达式：