3章选择结构.pptVIP

第3章 选择结构 3.1 引例：字号变大系统登录 3.2 If语句 3.3 Select Case多分支结构 3.4 条件函数 3.5 选择控件与分组控件 3.6 综合应用 顺序结构、选择结构、循环结构 （2）选择结构 （3）循环结构 3.1 选择结构 3.2.1 If条件语句 单分支结构 单分支行式If语句 双分支结构 双分支结构例 If语句的嵌套 多分支结构 多分支结构例 Select Case语句 Select Case语句例 条件函数 条件函数 选择控件与分组控件 单选按钮 2.复选框(CheckBox) 3.分组 (GroupBox) 例 通过单选按钮和分组控件设置文本框的Font属性。 在VB.NET中设置字体，需要生成一个Font类型的对象，创建新字体需指定的参数包括字体、字号、字型。具体语法格式： 对象.Font=new Font(Fontname,Fontsize,[Fontstyle]) 说明：其中Fontstyle字型是枚举类型，其值有： FontStyle.Regular?、FontStyle.Bold??、 FontStyle.Italic?、FontStyle.Underline、 FontStyle.Strikeout。 Fontname和Fontsize两个参数可以合并成Font Fontstyle参数可以省略。 例 对上例进行改变，用一个事件过程实现。 实现思想： 对每个按钮要进行状态判断 已知坐标点(x，y)，判断其落在哪个象限。 代码一 If x 0 And y 0 Then MsgBox(在第一象限) ElseIf x 0 And y 0 Then MsgBox(在第二象限) ElseIf x 0 And y 0 Then MsgBox(在第三象限) ElseIf x 0 And y 0 Then MsgBox(在第四象限) End If 代码二 Select Case x,y Case x 0 And y 0 MsgBox(“在第一象限”) Case x 0 And y 0 MsgBox(“在第二象限”) Case x 0 And y 0 MsgBox(“在第三象限”) Case x 0 And y 0 MsgBox(“在第四象限”) End Select 代码二错误： 1. Select Case 后不能出现多个变量； 2. Case后不能出现变量及有关运算符。 (1) IIf函数 IIf(表达式，表达式为真时的值，表达式为假时的值) IIf函数是If … Then …Else 结构的简洁表示 例如，将x，y中大的数，放入Tmax变量中： Tmax = IIf(x y，x，y) 该语句与如下语句等价 ： If x y Then Tmax = x Else Tmax = y (2) Choose函数 Choose(整数表达式，选项列表) 根据表达式的值i,返回选项列表中第i个选项。如果整数表达式的值越出选项范围时，返回Null。 例 根据Nop的值，得到+、-、×、÷中的某运算符： Op= Choose(Nop，+，-，×，÷) 例 根据当前日期，显示今日是星期几。 t = Choose(Weekday(Now), “星期日”, “星期一”, “星期二”, “星期三”, “星期四”, “星期五”, “星期六”) MsgBox(今天是： Now t) Dim nop As Integer, op As Char Randomize() nop = Int(Rnd() * 4 + 1) op = Choose(nop, +, -, ×, ÷) MsgBox(nop= nop op= op) 【例3-8】“某日期星期几”项目：在文本框中输入日期，单击“星期几”按钮，显示该日期是星期几。 Sub Button1_Click(…) Handles Button1.Click Dim t As String Dim d As Date d = CDate(TextBox1.Text) t = Choose(Weekday(d), 星期日, 星期一, 星期二, 星期三, 星期四, 星期五, 星期六) Label2.Text = d 是 t End Sub 1.单选按钮(Radi