《程序流程有三种最基本的控制结构,即顺序结构、选择结构和讲解》由会员分享，可在线阅读，更多相关《程序流程有三种最基本的控制结构,即顺序结构、选择结构和讲解（42页珍藏版）》请在金锄头文库上搜索。
1、 程序流程有三种最基本的 控制结构，即顺序结构、选择 结构和循环结构。 在一个过程中，程序通常是 按照由上而下的顺序来执行各 个语句的，直到整个过程结束 。引入选择结构和循环结构， 可以改变程序执行的流程。 选择程序结构用于判断给定的条件判断给定的条件，根据判断的结判断的结 果果来控制程序的流程 本章主要内容 条件表达式 关系表达式 / 逻辑表达式 条件语句 If.Then / If.Then.Else 条件语句的嵌套 多分支语句 select case 选择性控件 单选按钮 / 复选框 列表框/组合框 计时器控件 程序举例 关系运算符 符号： 大于 =大于或等于 4 0(10) 若判断的结论
2、是成立，则结果为逻辑真值(True)， 否则为逻辑假值(False) True的值等于-1，False的值等于0 关系运算符 运算 符 名 称示 例说 明 (10)值为：True，强制转换为 数值型 =大于或等 于 “aa”=“ab ” 值为：False =等于1=True值为：False，强制转换为 数值型 不等于11值为：False 关系表达式 运算次序：先分别求出运算符两侧表达式的值， 然后再将二者进行比较 其中：数值型数据按照数值大小比较 2+36 3=0 523 字符型数据按照字符的ASCII码值大小比较 “1”“2” “a” “a” 日期型数据按照前后顺序比较 #01/01/200
3、3# # 12/31/2002# 关系表达式的格式： 关系表达式练习 数值型数据按照数值大小比较 字符型数据按照字符的ASCII码值大小比较 日期型数据按照前后顺序比较 ？2/33/42/33/4 ?“a” “b” ?“a” “b” ?32 False ？“a”“b” OR 13 AND 510 False 表示一个数是偶数 x Mod 2=0 或 int(x/2)=x/2 表示一个数X能被3或5或7整除 x Mod 3=0 OR x Mod 5=0 OR x Mod 7=0 表示身高不在1.65米以上或不是女生 身高1.65 OR 性别“女” NOT（身高1.65 AND 性别“女”） 布尔
4、表达式练习 ？321 False a=3:b=4:c=5 ?a=b=c False 表示一个数x是能被3整除的奇数 x Mod 3=0 and x Mod 20 x Mod 2=1 and x Mod 20 表示一个数x2,5 x2 and x5 表示一个数x不在2,5区间内 x2 or x5 运算符的优先顺序 算术运算符 字符串运算符： 关系运算符：、 布尔运算符：Not And Or 优 先 级 依 次 降 低 运算符的优先顺序练习 设变量设变量x=4x=4，y=-1y=-1，a=7.5a=7.5，b=-6.2b=-6.2，求表达式求表达式 x+yx+y a+ba+b And Not y0
5、 x0 ThenThen Label1.Caption=x Label1.Caption=x 问题：如果不是 正数，应该显示 “不是正数” 语句格式： IF THEN ELSE 执行过程： 判断给定的条件 如果成立(其值为True),执行所给 语句序列1，然后执行下一条语句 否则(其值为False)，执行所给语 句序列2，然后执行下一条语句 选择结构(IF-THEN-ELSE) 条件 命令序列1命令序列2 下一语句 NY (IF-THEN-ELSE)举例 例二：根据用户输入的一个成绩，判断是否及格 Dim x As SingleDim x As Single X=X=Val(InputBoxV
6、al(InputBox(“(“请输入一个成绩：请输入一个成绩：“,“,“输入输入“,0)“,0) IFIF X=60X=60 THEN THEN Label1.Caption=“Label1.Caption=“及格及格” Else Else Label1.Caption=“Label1.Caption=“不及不及 格格” 使用使用IIFIIF函数，也可以实现相应的判断函数，也可以实现相应的判断 格式：格式：IIF(IIF(条件，条件为真时的值，条件为假时的值条件，条件为真时的值，条件为假时的值) ) 例一：输入一个数，如果是正数，就输出；否则显示非正数 Dim x As Single x=Va
7、l(Text1.text) If x0 Then Label1.Caption=x Else Label1.Caption= “非正数“ IIF函数的使用 Dim x As Single x=Val(Text1.text) IfIf x0x0 ThenThen Label1.Caption=xLabel1.Caption=x ElseElse Label1.Caption= “Label1.Caption= “非正数非正数” Label1.Caption=Label1.Caption=IIf(xIIf(x0,x,“0,x,“非正数非正数”) ) Dim x As SingleDim x As
8、Single X=X=Val(InputBoxVal(InputBox(“(“请输入一个成绩：请输入一个成绩：“,“,“输入输入“,0)“,0) IFIF X=60X=60 THENTHEN Label1.Caption=“Label1.Caption=“及格及格” ElseElse Label1.Caption=“Label1.Caption=“不及不及 格格” Label1.Caption=Label1.Caption=IIf(xIIf(x=60,“=60,“及格及格”,“,“不及格不及格”) ) 语句格式： IF THEN ELSE END IF 执行过程： 判断给定的条件 如果成立(其
9、值为True),执行所给 y语句序列1，然后执行下一条语句 否则(其值为False)，执行所给语 句序列2，然后执行下一条语句 块结构(IF-THEN-ELSE-END IF) 条件 命令序列1命令序列2 下一语句 NY (IF-THEN-ELSE-END IF)举 例 示例：根据用户输入的一个成绩，判断是否及格 Dim x As SingleDim x As Single x=x=Val(InputBoxVal(InputBox(“(“请输入一个成绩请输入一个成绩:“, “:“, “输入输入“, 0)“, 0) If If x = 60 x = 60 ThenThen Label1.Capt
10、ion = “ Label1.Caption = “及格及格“ “ ElseElse Label1.Caption = “ Label1.Caption = “不及格不及格“ “ End IfEnd If (IF-THEN-ELSE-END IF)举 例 示例：输入ABC的值，判断能否构成三角形，如果能，计算三 角形的面积 Dim a As Single, b As Single, c As SingleDim a As Single, b As Single, c As Single a=Val(Text1.Text):b=Val(Text2.Text):c=Val(Text3.Text)a
11、=Val(Text1.Text):b=Val(Text2.Text):c=Val(Text3.Text) s=(a + b + c) / 2s=(a + b + c) / 2 If If a+ba+bc And c0 And c And c0 And a+ca+cb And b0 And b And b0 And b+cb+ca And a0 a And a0 ThenThen area = area = Sqr(sSqr(s * (s - a) * (s - b) * (s - c) * (s - a) * (s - b) * (s - c) Label1.Caption=“Label1.C
12、aption=“能构成三角形能构成三角形,“选择一个选项按钮会立即清 除该组中的其它按钮;每次只能选一个选项而且必须选择一个选项 （问题：在窗体上的是一组？在一个框架内的是一组？） u常用属性： Caption属性： 单选按钮旁边的标题文字 value属性：表示该按钮是否被选中。选中为True,否则为False Alignment属性：单选按钮标题 的对齐方式 Style属性：表示控件的外观（标准格式或图形方式） 可以将选项按钮设计成图形按钮的形式，将Style改为1- Graphical(图形方式)，再依次修改其Caption属性 u单选按钮使用最多的是click事件 单选按钮程序示例 Pr
13、ivate Sub Option1_Click()Private Sub Option1_Click() Text1.FontName = “ Text1.FontName = “宋体宋体“ “ End SubEnd Sub Private Sub Option2_Click()Private Sub Option2_Click() Text1.FontName = “ Text1.FontName = “幼圆幼圆“ “ End SubEnd Sub Private Sub Option3_Click()Private Sub Option3_Click() Text1.FontName =
14、“ Text1.FontName = “楷体楷体_GB2312“_GB2312“ End SubEnd Sub 提供简单选择的控件 u复选框（CheckBox）控件：根据需要进行多项选择 u可以只选一个，也可全选，还可全不选 u当某一个复选框被选中时，复选框中出现一个“” u 常用属性： Caption属性：复选框旁边的标题文字 value属性：表示该按钮是否被选中。 0默认设置，未选中状态 1选中状态 2禁止状态，不可用 Alignment属性：复选框旁边的标题文字的对齐方式 Style属性：表示控件的外观（标准格式或图形方式） u复选框按钮使用最多的是click事件，在事件中需要对其Val
15、ue属 性值做判断，从而根据用户的选中状态决定程序如何执行 复选按钮程序示例 Private Sub Check1_Click()Private Sub Check1_Click() If Check1.Value = 1 Then If Check1.Value = 1 Then 判复选框判复选框1 1是否选中是否选中 Text1.FontName = “Text1.FontName = “楷体楷体_GB2312“_GB2312“ Else Else Text1.FontName = “ Text1.FontName = “宋体宋体“ “ End If End If End SubEnd S
16、ub Private Sub Check2_Click()Private Sub Check2_Click() If Check2.Value = 1 Then If Check2.Value = 1 Then 判复选框判复选框2 2是否选中是否选中 Text1.FontItalic = TrueText1.FontItalic = True Else Else Text1.FontItalic = False Text1.FontItalic = False End If End If End SubEnd Sub Private Sub Check3_Click()Private Sub Check3_Clic
