Vb_程序的选择结构select_case结构PPT课件
合集下载
最新Vb_程序的选择结构select_case结构教学内容
Case Is < 0: MsgBox "有两个共轭复根 "
End Select End If End Sub
内容小结
1．熟记select case语句书写结构，理解执行过程。 2. 注意select case 语句中表达式细节 3. Select case 语句应用环境，与if语句的转换
此课件下载可自行编辑修改，仅供参考！ 感谢您的支持，我们努力做得更好！ 谢谢!
Case 0: Picture1.Print "X1=X2="; -B / (2 * A)
Case Is > 0 X1 = (-B + Sqr(Delta)) / (2 * A) X2 = (-B - Sqr(Delta)) / (2 * A) Picture1.Print "X1="; X1, "X2="; X2
End Select
【例3】求一元二次方程ax2+bx+c=0的解 。
分析：
(1) 如果a=0；b=0，则方程无解，提示重新输入系数； b0，则 x=-c/b
(2) 如果a0； b2-4ac=0 ，则有两个相等的实根 b2-4ac>0， 则有两个不等的实根 b2-4ac<0， 则有两个共轭复根
Private Sub Command1_Click() A = Val(Text1.Text): B = Val(Text2.Text)
C = Val(Text3.Text): Picture1.Cls If A = 0 Then
If B = 0 Then MsgBox "系数为零，请重新输入"
Else X = -C / B: Picture1.Print "X="; X
End Select End If End Sub
内容小结
1．熟记select case语句书写结构，理解执行过程。 2. 注意select case 语句中表达式细节 3. Select case 语句应用环境，与if语句的转换
此课件下载可自行编辑修改，仅供参考！ 感谢您的支持，我们努力做得更好！ 谢谢!
Case 0: Picture1.Print "X1=X2="; -B / (2 * A)
Case Is > 0 X1 = (-B + Sqr(Delta)) / (2 * A) X2 = (-B - Sqr(Delta)) / (2 * A) Picture1.Print "X1="; X1, "X2="; X2
End Select
【例3】求一元二次方程ax2+bx+c=0的解 。
分析：
(1) 如果a=0；b=0，则方程无解，提示重新输入系数； b0，则 x=-c/b
(2) 如果a0； b2-4ac=0 ，则有两个相等的实根 b2-4ac>0， 则有两个不等的实根 b2-4ac<0， 则有两个共轭复根
Private Sub Command1_Click() A = Val(Text1.Text): B = Val(Text2.Text)
C = Val(Text3.Text): Picture1.Cls If A = 0 Then
If B = 0 Then MsgBox "系数为零，请重新输入"
Else X = -C / B: Picture1.Print "X="; X
VB列表选择控件.PPT课件
第4章 列表选择控件
16.01.2021
-
第2章 编程基础知识
4.1 实训项目一 ListBox控件和CheckedListBox 控件的使用
4.2 实训项目二 ComboBox控件的 4.3 实训项目三 DomainUpDown控件和
NumericUpDown控件的使用 4.4 实训项目四 ListView控件的使用 4.5 实训项目五 TreeView控件的使用
ListBox控件和CheckedListBox控件的使用。
16.01.2021
-
1. 本实例所用到的主要控件——ListBox控件
属性 Items
说明 存放列表框中的选项集合
MultiColumn 设置该列表框是否允许多列显示
ColumnWidth 设置每一列的宽度
SelectionMode 设置一次可以选择多少列表项。有4个值，分别为（1） None：无法选择任何一项；（2）One：只能选择一项（默 认）；（3）MultiSimple：可在列表中不连续点选多项： （4）MultiExtended：可以通过鼠标的拖动选择连续的项
16.01.2021
-
2. 本实例所用到的主要控件——CheckedListBox 控件
表4-3 CheckedListBoxt控件的特有属性和方法
项目名称
类别
说明
CheckOnClick SetItemChecked
属性 方法
设置当第一次选取列表项时是否马上打勾，当属 性值为True时表示单击马上打勾，当属性值为 False时则必须双击才能打勾
事件 双击控件时，触发该事件
SelectedItemChanged 事件 改变控件的选定项时，触发该事件
16.01.2021
-
第2章 编程基础知识
4.1 实训项目一 ListBox控件和CheckedListBox 控件的使用
4.2 实训项目二 ComboBox控件的 4.3 实训项目三 DomainUpDown控件和
NumericUpDown控件的使用 4.4 实训项目四 ListView控件的使用 4.5 实训项目五 TreeView控件的使用
ListBox控件和CheckedListBox控件的使用。
16.01.2021
-
1. 本实例所用到的主要控件——ListBox控件
属性 Items
说明 存放列表框中的选项集合
MultiColumn 设置该列表框是否允许多列显示
ColumnWidth 设置每一列的宽度
SelectionMode 设置一次可以选择多少列表项。有4个值，分别为（1） None：无法选择任何一项；（2）One：只能选择一项（默 认）；（3）MultiSimple：可在列表中不连续点选多项： （4）MultiExtended：可以通过鼠标的拖动选择连续的项
16.01.2021
-
2. 本实例所用到的主要控件——CheckedListBox 控件
表4-3 CheckedListBoxt控件的特有属性和方法
项目名称
类别
说明
CheckOnClick SetItemChecked
属性 方法
设置当第一次选取列表项时是否马上打勾，当属 性值为True时表示单击马上打勾，当属性值为 False时则必须双击才能打勾
事件 双击控件时，触发该事件
SelectedItemChanged 事件 改变控件的选定项时，触发该事件
VB教程---选择结构
练习：
1.求闰年（能被4整除，不能被100整除的年，或者是能够被
400整除的年是闰年。）(用if双分支语句做）
Year=val(text1.text) If year mod 4 =0 and year mod 100 <> 0 or year mod 400 =0 then Msgbox (“是闰年!”) Else MsgBox (“这不是闰年！”) End If
If语句复合结构的一般形式
在Else块中嵌套If结构的形式
例：求a、b、c中三个实数的最大值、最小值。 a、b、c三值从三个文本框中输入，当单击命令按钮时将结果 显示 在窗体上
例：求a、b、c中三个实数的最大值、最小值。 a、b、c三值从三个文本框中输入，当单击命令按钮时将结果 显示在窗体上。
a<b
思考：下面形式是否正确？
If score >= 60 Then Print "及格" ElseIf score >= 80 Then Print "良" ElseIf score >= 90 Then Print “优" Else Print "不及格" End If
②根据下列公式求函数
1 x x 1 1 x 2 x2
二、分支结构—IF语句
1、IF条件判断语句(三种格式）
IF 条件 Then 语句块 End If IF 条件 Then 语句块1 Else 语句块2 End If IF 条件1 Then 语句块1 Elseif 条件2 Then 语句块2 Elseif 条件3 Then …… [Else] 语句块n End If
3、双分支程序示例
①求a，b中的较大数
VB-第5章-选择循环PPT课件
If x>0 Then Print “x是正数”
说明：表达式一般为关系表达式、逻辑表达式，也可 以为算术表达式，非0为True，0为False；
演示
语句块可以是一句或多句，若用2）表示，则只能是 一句语句，若多句，语句间需用冒号分隔，而且必须 在一行上书写。
与其临1渊0羡鱼，不如退而结网。
举例
❖ 例：已知两个数x和y，比较它们的大 小，并交换，使得 x大于y：
Do While (i <= 10) ‘循环条件是:i<=10是执行循环体
sum = sum + i ‘对要求的结果累加运算
i=i+1
‘改变循环条件，目的为了跳出循环！
ห้องสมุดไป่ตู้
Loop
Print sum
与其临2渊2羡鱼，不如退而结网。
[ Else 语句块 n+1 ] End If
一、If-else语句
elseif elseif
elseif
1）不管有几个分支，程序执行了一个分支后，其余分支 不再执行； 2）ElseIf 不能写成Else If 3）当多分支中有多个表达式同时满足，则只执行第一个 与之匹配的语句块
与其临1渊2羡鱼，不如退而结网。
第五章 VB的基础结构
世界会向那些有目标和远见的人让路
复习：三种基本结构
基本算法结构
顺序结构
与其临渊2羡鱼，不如退而结网。
分支结构
基本算法结构
当型循环
与其临渊3羡鱼，不如退而结网。
直到型循环
本章内容
1
选择结构
2
循环结构
3
示例
与其临渊4羡鱼，不如退而结网。
第一节 选择结构
跟我学vb--第10课时_select_case语句
select case语句【学习目标】（一）在知识与技能方面1、掌握select case语句的格式、功能和执行过程。
2、理解表达式列表的3种形式（，和to与is）。
3、学会使用select case语句来实现选择控制结构，解决实际问题。
（二）在过程与方法方面1、初步掌握程序调试运行的方法。
2、初步掌握优化程序的方法（三）在情感态度与价值观方面1、经历计算机解决问题的过程，体验成功的快乐。
2、在老师的指导下，与同学共同探究问题，让学生体验自主学习、协助学习的乐趣。
【重点难点】1、select case语句格式2、表达式列表的3种形式3、用select case语句解决实际问题【教法学法】问题教学法、讲练结合法【学时】1学时【教学环境】网络电脑室引导学生分析上面程序存在的问题：1、第1个程序用了5个if语句且条件表达式太复杂，书写容易出错。
2、在第2个程序中，用了4个if语句来处理5种情况，同时用到了if语句的嵌套3、由于有if语句的嵌套及if语句过多，造成了程序可读性差，经常会出现“end if”配对错误或缺少“end if”。
那么如果我们再多一些情况，它的缺陷就会更加明显。
【教师引导】有没有更简单一点的语句来解决这个问题，尽量避免出现上面的错误？【引入】本节课的学习内容Select Case语句即可解决这种多情况的问题。
二、Select Case语句的格式Select Case语句是多分支语句，又称为多情况语句。
【教师展示】1、Select Case语句的格式功能：根据“测试表达式”的值，选择第一个符合条件的语句块执行。
2、说明：· · · “测试表达式”可以是数值型或字符型；· · · “测试表达式”和“表达式列表”的类型必须相同；· · · “表达式列表”形式有以下3种：3、表达式列表的3种形式【师生共同分析】（1）用逗号隔开的若干表达式如：判断10以内整数的奇偶性x=inputbox("输入一个整数")select case x case 1，3，5，7，9 if x=1 or x=3 or x=5 or x=7 or x=9 then print x; "这是奇数"end ifprint x; "这是奇数"case 2，4，6，8，10print x; "这是偶数"end select（2）表达式1 To 表达式2x=inputbox("输入一个整数")select case xcase 80 to 89print x; "该生成绩为良"case 70 to 79print x; "该生成绩为中"end select if x>=80 and x<90 then print x; "该生成绩为良" end if（3）Is 关系表达式x=inputbox("输入一个整数")select case xcase is>=90print x ; "该生成绩为优"case is>=80print x ; "该生成绩为良"case is<60print x ; "该生成绩为不及格"end select if x>=90 thenprint x ; "该生成绩为优"end ifif x<60 thenprint x ; "该生成绩为不及格" end if【学生练习】把刚才举例的“分数”问题用Select Case语句改写一下，然后请同学来展示一下自己的成果，同时比较一下自己与老师所写的程序有什么不同。
vb程序选择结构
问题：计算所得税：输入工资。
如果工资少于2000,免收所得税。
如果工资≥2000,所得税为5%。
单击窗体，在窗体上显示工资及所得税的结果。
程序结构：输入、处理、输出。
程序框架：Private Sub Form_Click()分析：设立变量gz代表工资，sj代表所得税；输入工资用InputBox函数，并存入变量gz；输出工资、所得税用Print方法。
程序为：Private Sub Form_Click()Gz=InpueBox("请输入工资", "输入工资")End Sub“如果”、“那么”、“否则”如何实现呢？用程序的控制结构实现。
Vb程序设计选择结构实际上，“如果”、“否则”是程序的一种控制结构。
它的功能是根据条件“工资>=2000”是否成立，决定程序下一步的执行方向是“所得税=工资*0.05”还是“所得税=０”。
这种根据条件的不同结果，选择不同的分支的程序结构，称为“选择结构”或“分支结构”。
它属于程序的控制结构。
结构化程序设计的基本控制结构有３种：(1) 顺序结构：单线条、无分支、不重复、每个语句均有机会执行，且都仅执行一次。
这种结构功能最简单。
(2) 选择结构：即分支结构。
(3) 循环结构：重复执行某块程序若干次。
7.1 选择结构在VB中，选择结构用If语句实现，故选择结构也称If结构。
它有２种格式：单行结构、块结构。
一、单行If语句格式1：If 条件Then 语句1 Else 语句2功能：如果“条件”为True，执行语句1，否则执行语句2。
应用：（计算所得税）If gz>=2000 Then sj=gz*0.05 Else sj=0格式2：If 条件Then 语句1功能：如果“条件”为True，执行语句1，否则什么也不执行，直接执行下一个语句。
应用：（计算所得税）If gz>=2000 Then sj=gz*0.05“条件”：可以是关系表达式（单条件），也可以是逻辑表达式（复合条件）。
vb 选择结构程序设计PPT课件
1) s1 + s2 + s3 + s4 + s5 >= 450 2) s1 >= 88 AND s2 >= 88 AND s3 >= 88 AND s4 >= 88 AND s5 >= 88 3) s1 >= 95 AND s2 >= 95 AND s3 >= 95 AND s4 >= 80 AND s5 >= 80
不等于
4 <> 5
值为：True
2. 关系表达式
关系表达式的格式为
〈表达式1〉〈关系运算符〉〈表达式2〉[〈关系运算符〉〈表达 式3〉…]
关系表达式的运算次序为：先分别求出关系运算符两侧 表达式的值，然后再把二者进行比较，二者的关系若与关 系运算符指示的一样，则关系运算的结果为真True，否则 为假False。
False False False
a Or b True True True False
Not a False False True True
Not由真变假，由假变真。And对两个布尔值进行比较， 如果两个值均为真，则结果为真，否则为假。Or对两个布 尔值进行比较，如果其中一个值为真，则结果为真，只有 两个值都为假时，结果才为假。运算布尔表达式时，先运 算关系表达式，再运算布尔表达式。
逻辑运算的运算规则
A B Not A A And B A or B A Xor B
T
T
F
T
T
F
T
F
F
F
T
T
F
T
T
F
T
T
F
F
T
F
F
F
按二进制进行的逻辑运算规则
不等于
4 <> 5
值为：True
2. 关系表达式
关系表达式的格式为
〈表达式1〉〈关系运算符〉〈表达式2〉[〈关系运算符〉〈表达 式3〉…]
关系表达式的运算次序为：先分别求出关系运算符两侧 表达式的值，然后再把二者进行比较，二者的关系若与关 系运算符指示的一样，则关系运算的结果为真True，否则 为假False。
False False False
a Or b True True True False
Not a False False True True
Not由真变假，由假变真。And对两个布尔值进行比较， 如果两个值均为真，则结果为真，否则为假。Or对两个布 尔值进行比较，如果其中一个值为真，则结果为真，只有 两个值都为假时，结果才为假。运算布尔表达式时，先运 算关系表达式，再运算布尔表达式。
逻辑运算的运算规则
A B Not A A And B A or B A Xor B
T
T
F
T
T
F
T
F
F
F
T
T
F
T
T
F
T
T
F
F
T
F
F
F
按二进制进行的逻辑运算规则
选择结构Select Case语句
作业情况
未上交：xxxx
典型问题
1、If、end if未成对存在 2、代码语句写错位置
第三节 选择结构Select Case语句
知识迁移
为了判断学生成绩（百分制）的等级，现在要求制作一个VB程序来进行判断： 当分数在90-100范围，输出A；当分数在80-89范围，输出B；当分数在70-79 范围，输出C；当分数在60-69范围，输出D，否则，输出F。
If 的 嵌 套
开始ห้องสมุดไป่ตู้
If score >= 90 Then
Print Else
"输A"入score
If score >= 80 Then
E是lsePrinstc"oBre">=90 否
If
输出等级A
score >= 是70 Print "C"
Then
score>=80
否
Els输eIf出sc等or级e >B= 60 Then 是 score>=70
End Select
注意：
表达式：我们通常用一个变量作为表达式
一个Case 子句
表达式范围： 1、一个或多个常量值，如1,2,3,4 2、值的一段范围，例如1 to 100 3、Is关系表达式，如Is>45
判S判Se语判6e断l断l0ee句断分c一c1tt块学-,个C总1C生a0包数a分s之s分e含的e1间a0数a正一0的（分负个奇整）或偶数多数）个是语否句及格（ SSCCeeaCallseesaececspptteIr1srCiCi>0,nn3aat0,tTs“5s“oe,e7正奇a5与,99数数E”n”d Select必须成对出现 严CCaC格assaee控sppeIr2spr制ii<6,nrn4i0t0n换,t“6“tT,“8o行负偶,1没1数数00有”0”及格”
未上交：xxxx
典型问题
1、If、end if未成对存在 2、代码语句写错位置
第三节 选择结构Select Case语句
知识迁移
为了判断学生成绩（百分制）的等级，现在要求制作一个VB程序来进行判断： 当分数在90-100范围，输出A；当分数在80-89范围，输出B；当分数在70-79 范围，输出C；当分数在60-69范围，输出D，否则，输出F。
If 的 嵌 套
开始ห้องสมุดไป่ตู้
If score >= 90 Then
Print Else
"输A"入score
If score >= 80 Then
E是lsePrinstc"oBre">=90 否
If
输出等级A
score >= 是70 Print "C"
Then
score>=80
否
Els输eIf出sc等or级e >B= 60 Then 是 score>=70
End Select
注意：
表达式：我们通常用一个变量作为表达式
一个Case 子句
表达式范围： 1、一个或多个常量值，如1,2,3,4 2、值的一段范围，例如1 to 100 3、Is关系表达式，如Is>45
判S判Se语判6e断l断l0ee句断分c一c1tt块学-,个C总1C生a0包数a分s之s分e含的e1间a0数a正一0的（分负个奇整）或偶数多数）个是语否句及格（ SSCCeeaCallseesaececspptteIr1srCiCi>0,nn3aat0,tTs“5s“oe,e7正奇a5与,99数数E”n”d Select必须成对出现 严CCaC格assaee控sppeIr2spr制ii<6,nrn4i0t0n换,t“6“tT,“8o行负偶,1没1数数00有”0”及格”
VB 选择结构 ppt课件
(1) 算术运算：Not 8>6 Or 6>5 And 8>10 (2) 关系运算：Not True Or True And False (3) 取反操作：False Or True And False (4) 与操作：False Or False (5) 最后得到：False
2021/3/26
VB 选择结构 ppt课件
End If
End If
Text2.Text = x
End Sub 2021/3/26
VB 选择结构 ppt课件
21
4.3.5 ElseIf语句
多层的If语句嵌套格式使程序冗长复杂。 ElseIf
语句的语法格式如下：
If <条件1> Then [语句序列1]
ElseIf <条件2> Then [语句序列2]
VB 选择结构 ppt课件
26
测试条件
表达式列表1 表达式列表2 表达式列表3……表达式列表n 其他情况
语
语
语
语
语
句
句
句 …… 句
句
序
序
序
序
序
列
列
列
列
列
1
2
3
n
n+1
2021/3/26
VB 选择结构 ppt课件
27
Case子句中的表达式列表可以有以下几种形式：
形式
表达式
表达式1 To 表 达式2
分析：当x≥2时，用公式y＝x3－9来求y的值；当 x<2时，用公式y＝x2＋5x-6来计算y的值。
2021/3/26
VB 选择结构 ppt课件
13
输入 x 值
2021/3/26
VB 选择结构 ppt课件
End If
End If
Text2.Text = x
End Sub 2021/3/26
VB 选择结构 ppt课件
21
4.3.5 ElseIf语句
多层的If语句嵌套格式使程序冗长复杂。 ElseIf
语句的语法格式如下：
If <条件1> Then [语句序列1]
ElseIf <条件2> Then [语句序列2]
VB 选择结构 ppt课件
26
测试条件
表达式列表1 表达式列表2 表达式列表3……表达式列表n 其他情况
语
语
语
语
语
句
句
句 …… 句
句
序
序
序
序
序
列
列
列
列
列
1
2
3
n
n+1
2021/3/26
VB 选择结构 ppt课件
27
Case子句中的表达式列表可以有以下几种形式：
形式
表达式
表达式1 To 表 达式2
分析：当x≥2时，用公式y＝x3－9来求y的值；当 x<2时，用公式y＝x2＋5x-6来计算y的值。
2021/3/26
VB 选择结构 ppt课件
13
输入 x 值
VB第5章选择结构程序设计.ppt
使用块结构条件语句，按以上标准计算运费
14
分析： 设每公里每吨货物的基本运费为Price， 货物重为Weight， 运输距离为Distance， 折扣为Discount， 则总运费Freight的计算公式为:
Freight= Price * Weight * Distance *
(1 - Discount)
21
多分支选择语句的功能流程图:
T
语句组1 F
匹配表达式 表2
匹配 表达式表1
T 语句组2
F …… T
匹配表达式 表n
F
语句组n
语句组n+1
22
3. 说明 1） 测试表达式 : 数值或字符表达式 2） Case 后的“表达式表”可以为如下形式: ① 表达式1[,表达式2]... 如: Case 1 , 3 , 5 ② 表达式1 TO 表达式2 如: Case 10 TO 30 Case "A" TO "Z" ③ Is 关系运算符 表达式 如: Case Is >= 10 Case Is = 0 与 Case 0 相同 且三种形式可以混用,如: Case Is < -5 , 0 , 5 To 100
23
【例 5-3】用多分支选择语句实现：输入年 份和月份，求该月的天数。 分析：
当月份为1、3、5、7、8、10、12时，天 数为31天； 当月份为4、6、9、11时，天数为30天； 当月份为2时，如果是闰年则天数为29天， 否则天数为28天。某年为闰年的条件是： 年份能被4整除，但不能被100整除，或 年份能被400整除。
29
4） 不要在Case后使用布尔运算符表示条件 例如，要表示条件0<X<100，不能写成： Select Case X Case Is>0 And Is<100 ' 使用了And, 是错误的 … End Select 对于较复杂的条件，可以用块结构条件 语句来实现，而有些条件完全可以转换成 Case语句允许的几种形式之一。
Vb选择结构程序设计.ppt
两个单分支
If price = 120 Then MsgBox "猜对了，你真厉害“ If price <> 120 Then MsgBox “猜错了，再试试“
一个双分支 If price =120 then MsgBox "猜对了，你真厉害“ Else MsgBox “猜错了,再试试“
双分支语法格式
两 If price = 150 Then MsgBox "猜对了，你真厉害“
个 单
分 If price <> 150 Then MsgBox “猜错了，再试试“
支
If price =150 then
MsgBox "猜对了，你真厉害“
双 分
Else
支
MsgBox “猜错了“
End if
在线测试练习
Vb选择结构程序设计
猜价格游戏
猜价格游戏代码
If price < 120 Then MsgBox "猜低了，再试试“ If price > 120 Then MsgBox "猜高了，再试试“ If price = 120 Then MsgBox "猜对了，你真厉害“
语句1.如果价格小于120，那么信息提示框提示“猜低了，再试试” 语句2.如果价格大于120，那么信息提示框提示“猜高了，再试试” 语句3.如果价格等于120，那么信息提示框提示“猜对了，你真厉害”
❖ 在分支语句中，程序执行一个分支后，其余分支不再执行；
调试，运行 ③
点击关闭 ②
在此处输入代码 ①
改写程序
参考下面的程序，150元为mp3的价格，可以是单分支，也可以是双分支。
三 If price < 150 Then MsgBox "猜低了，再试试“
第7章程序VB选择结构程序设计ppt课件
7.2 Select Case语句
注1：测试表达式可以是数值或字符串表达式； 注2：各表达式列表 合法的格式：
①一个常量或常量表达式 ②多个常量或常量表达式，用逗号隔开，逗号相当于“或” ，如：
Case 1，3，5，7 ③表达式1 to 表达式2，表示从表达式1到表达式2中所有的值，其中
表达式1的值必须小于表达式2的值。如：Case 1 to 5 ④Is关系运算表达式，可以使用的关系运算符为：>、>=、<、<=、
1. IIf函数
IIf函数实际上是If…Then…Else结构的一 个简写 IIf函数中后两个表达式可以是各种类型 的表达式，也可以是一个IIf函数的调用
①Print x & IIf(x > 0, “大于0”, “小于或小于0”) ②s = IIf(x > 0, 1, IIf(x = 0, 0, -1))
<>、=，不可以使用逻辑运算符表示多个范围。 ⑤ 前面四种情况的组合，如Case Is>10,2,4,6,Is <0
注3：若有多个Case表达式符合条件，则只执行第一个符合 的Case下的语句体。
1. IIf函数 *2. Switch函数
1. IIf函数
格式：
IIf(条件表达式，条件为True时的表达式，条件为False 时的表达式)
功能：
根据条件表达式的值，确定函数返回后面两个表达式的 其中一个的值。
If a>b Then max=a
Else max=b
End If
max= IIf ( a>b , a , b )
例7-4
程序代码如下：
Private Sub Command1_Click()
VB单选钮和复选框列表框组合框多窗体和菜单ppt课件
8
单选按钮与复选框
n 功能1：运行程序时设置label文字 类型为宋体，16号字
Private Sub Form_Load() Label1.FontName = "宋体" Label1.FontSize = 16 End Sub
9
单选按钮与复选框
n 功能2：实现框架frame1中字体设 置功能。
17
列表框与组合框
n 列表框（ListBox）
n 主要属性：
n text属性：用于存放被选中列表项的文本 内容。 Private Sub Command1_Click() Label1.Caption = List1.Text End Sub
18
列表框与组合框
n 列表框（ListBox）
n 主要方法：
发
22
练习二
23
列表框与组合框
n 组合框控件（ComboBox）
n 将文本框和列表框的功能结合在一起，
组合框共三种风格： 下拉式组合框 简单组合框和 下拉式列表框
24
练习三
n 组合框控件（ComboBox）
n 基本事件与列表框类似
combo1 combo2
label4
combo3
25
列表框与组合框
15
列表框与组合框
n 列表框（ListBox） n List、ListCount和ListIndex属 性
16
list1.selected(2)=true
列表框与组合框
n 列表框（ListBox）
Private Sub Form_Load() Dim i As Integer Label1.Caption = "" List1.ListIndex = 2 For i = 0 To List1.ListCount - 1 Label1.Caption = Label1.Caption + List1.List(i) Next End Sub
单选按钮与复选框
n 功能1：运行程序时设置label文字 类型为宋体，16号字
Private Sub Form_Load() Label1.FontName = "宋体" Label1.FontSize = 16 End Sub
9
单选按钮与复选框
n 功能2：实现框架frame1中字体设 置功能。
17
列表框与组合框
n 列表框（ListBox）
n 主要属性：
n text属性：用于存放被选中列表项的文本 内容。 Private Sub Command1_Click() Label1.Caption = List1.Text End Sub
18
列表框与组合框
n 列表框（ListBox）
n 主要方法：
发
22
练习二
23
列表框与组合框
n 组合框控件（ComboBox）
n 将文本框和列表框的功能结合在一起，
组合框共三种风格： 下拉式组合框 简单组合框和 下拉式列表框
24
练习三
n 组合框控件（ComboBox）
n 基本事件与列表框类似
combo1 combo2
label4
combo3
25
列表框与组合框
15
列表框与组合框
n 列表框（ListBox） n List、ListCount和ListIndex属 性
16
list1.selected(2)=true
列表框与组合框
n 列表框（ListBox）
Private Sub Form_Load() Dim i As Integer Label1.Caption = "" List1.ListIndex = 2 For i = 0 To List1.ListCount - 1 Label1.Caption = Label1.Caption + List1.List(i) Next End Sub
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
If 语句
◦ 单行结构条件语句
If 条件1 Then 语句序列1 【 Else 语句序列2】
◦ 块结构条件语句
If 条件1 Then 语句块1
[ElseIf 条件2 Then 语句块2]
[ElseIf 条件3 Then 语句块3 ]
…… [Else
语句块n] End If
IIf 函数
result=Iif(条件, true部分, False部分)
End Select
【例3】求一元二次方程ax2+bx+c=0的解 。
分析：
(1) 如果a=0；b=0，则方程无解，提示重新输入系数； b0，则 x=-c/b
(2) 如果a0； b2-4ac=0 ，则有两个相等的实根 b2-4ac>0， 则有两个不等的实根 b2-4ac<0， 则有两个共轭复根
Private Sub Command1_Click() A = Val(Text1.Text): B = Val(Text2.Text)
Label1. Caption = strC + "是数字字符"
Else
Label1. Caption = strC + “是其他字符"
End If
将以上语句用Select Case语句实现
【例2】：评定成绩等级 90~100：“优”80~89： “良”70~79：“中”60~69：“及格”
60分以下为“不及格”
7.2 多分支控制结构 ——select case语句
一、Select Case语句
1、基本格式
Select Case <测试表达式> Case <表达式1> <语句块1> Case <表达式2> <语句块2> …… Case Else <语句块n>
End Select
2、执行过程:
根据测试表达式的值,按顺 序匹配Case后的表达式, 如果匹配成功,则执行该 Case下的语句块,然后转 到End Select语句之后 继续执行
2.测试表达式类型应与Case表达式类型一致
【例1】：变量strC中存放一个字符，判断是字母、数字
If Ucase(strC) >=“A” And Ucase (strC) <=“Z” Then
Label1.Caption= strC + "是字母字符"
ElseIf strC >="0" And strC <="9" Then
3、说明:
• 测试表达式：可以是数值表达式或字符串表达式，通常为变量或常量 • 语句块1、语句块2…：每个语句块由一行或者多行合法的VB语句组成。 • 表达式1、表达式2、…：称为值域，可以有下列表述形式。
形式
示例
说明
表达式【，表达式】，… Case 2,4,6
表达式To表达式
Case 1 to 5 Case “a” to “n”
Is 关系运算表达式
Case is <30
数值或字符串表达式,表述固 定值之一
用来指定一个范围，较小的 在To前，较大在To后
可配合比较运算符来指定一 个数值范围，不能用逻辑运 算符将两个或多个简单条件 组合在一起
注意: 1. 以上几种形式可以混用， 例如: Case Is < -5 , 0 , 5 To 100
Case Is < 0: MsgBox "有两个共轭复根 "
End Select End If End Sub
结束语
当你尽了自己的最大努力时，失败也是伟 大的，所以不要放弃，坚持就是正确的。
When You Do Your Best, Failure Is Great, So Don'T Give Up, Stick To The End
C = Val(Text3.Text): Picture1.Cls If A = 0 Then
If B = 0 Then MsgBox "系数为零，请重新输入"
Else X = -C / B: Picture1.Print "X="; X
End If Else
Delta = B ^ 2 - 4 * A * C Select Case DIt'S An Honor To Walk With You All The Way
演讲人：XXXXXX 时 间：XX年XX月XX日
Case 0: Picture1.Print "X1=X2="; -B / (2 * A)
Case Is > 0 X1 = (-B + Sqr(Delta)) / (2 * A) X2 = (-B - Sqr(Delta)) / (2 * A) Picture1.Print "X1="; X1, "X2="; X2
Select Case mark Case 90 To 100 Label1.Text="优秀" Case 80 To 89 Label1.Text="良好" Case 70 To 79 Label1.Text="中等" Case 60 To 69 Label1.Text="及格" Case Else Label1.Text="不及格"
◦ 单行结构条件语句
If 条件1 Then 语句序列1 【 Else 语句序列2】
◦ 块结构条件语句
If 条件1 Then 语句块1
[ElseIf 条件2 Then 语句块2]
[ElseIf 条件3 Then 语句块3 ]
…… [Else
语句块n] End If
IIf 函数
result=Iif(条件, true部分, False部分)
End Select
【例3】求一元二次方程ax2+bx+c=0的解 。
分析：
(1) 如果a=0；b=0，则方程无解，提示重新输入系数； b0，则 x=-c/b
(2) 如果a0； b2-4ac=0 ，则有两个相等的实根 b2-4ac>0， 则有两个不等的实根 b2-4ac<0， 则有两个共轭复根
Private Sub Command1_Click() A = Val(Text1.Text): B = Val(Text2.Text)
Label1. Caption = strC + "是数字字符"
Else
Label1. Caption = strC + “是其他字符"
End If
将以上语句用Select Case语句实现
【例2】：评定成绩等级 90~100：“优”80~89： “良”70~79：“中”60~69：“及格”
60分以下为“不及格”
7.2 多分支控制结构 ——select case语句
一、Select Case语句
1、基本格式
Select Case <测试表达式> Case <表达式1> <语句块1> Case <表达式2> <语句块2> …… Case Else <语句块n>
End Select
2、执行过程:
根据测试表达式的值,按顺 序匹配Case后的表达式, 如果匹配成功,则执行该 Case下的语句块,然后转 到End Select语句之后 继续执行
2.测试表达式类型应与Case表达式类型一致
【例1】：变量strC中存放一个字符，判断是字母、数字
If Ucase(strC) >=“A” And Ucase (strC) <=“Z” Then
Label1.Caption= strC + "是字母字符"
ElseIf strC >="0" And strC <="9" Then
3、说明:
• 测试表达式：可以是数值表达式或字符串表达式，通常为变量或常量 • 语句块1、语句块2…：每个语句块由一行或者多行合法的VB语句组成。 • 表达式1、表达式2、…：称为值域，可以有下列表述形式。
形式
示例
说明
表达式【，表达式】，… Case 2,4,6
表达式To表达式
Case 1 to 5 Case “a” to “n”
Is 关系运算表达式
Case is <30
数值或字符串表达式,表述固 定值之一
用来指定一个范围，较小的 在To前，较大在To后
可配合比较运算符来指定一 个数值范围，不能用逻辑运 算符将两个或多个简单条件 组合在一起
注意: 1. 以上几种形式可以混用， 例如: Case Is < -5 , 0 , 5 To 100
Case Is < 0: MsgBox "有两个共轭复根 "
End Select End If End Sub
结束语
当你尽了自己的最大努力时，失败也是伟 大的，所以不要放弃，坚持就是正确的。
When You Do Your Best, Failure Is Great, So Don'T Give Up, Stick To The End
C = Val(Text3.Text): Picture1.Cls If A = 0 Then
If B = 0 Then MsgBox "系数为零，请重新输入"
Else X = -C / B: Picture1.Print "X="; X
End If Else
Delta = B ^ 2 - 4 * A * C Select Case DIt'S An Honor To Walk With You All The Way
演讲人：XXXXXX 时 间：XX年XX月XX日
Case 0: Picture1.Print "X1=X2="; -B / (2 * A)
Case Is > 0 X1 = (-B + Sqr(Delta)) / (2 * A) X2 = (-B - Sqr(Delta)) / (2 * A) Picture1.Print "X1="; X1, "X2="; X2
Select Case mark Case 90 To 100 Label1.Text="优秀" Case 80 To 89 Label1.Text="良好" Case 70 To 79 Label1.Text="中等" Case 60 To 69 Label1.Text="及格" Case Else Label1.Text="不及格"