VB选择结构
VB的选择结构
4.1.2 IF双分支结构
双分支条件语句结构
If <条件> Then <语句块1> Else <语句块2>
或
If <条件> Then
<语句块1> Else <语句块2> End If
双分支结构说明
开始 F
成绩>60？ T 成绩及格
成绩不及格
结束
案例4-2
计算分段函数，使用输入框输入x的值，用1运行效果
输入实数
计算得出结果
课堂练习4-2
在文本框Text1中输入一个整数，并判断该数的 奇偶性，将结果显示在文本框。 【案例分析】：本案例中使用除法取余数来判断 奇偶性，将输入数据除2取余数，如果余数为1 则该数为奇数，余数为0则该数为偶数。
界面效果
课堂练习4-2
【程序设计】： Private Sub command1_Click() Dim int1 As Integer, int2 As Integer int1 = Val(Text1.Text) int2 = int1 Mod 2 „整除2取余数 If int2 = 0 Then „判断是否为偶数 Text2.Text = "这是一个偶数!" Else Text2.Text = "这是一个奇数!" End If End Sub
案例4-1
程序设计如下： Private Sub Command1_Click() Dim x As Integer,y As Integer x=Val(Text1.Text) : y=Val(Text2.Text) If x<y Then ‘判断x>y是否为真如果为真执行下面程序 t=x ‘使用临时变量记录x的值 x=y ‘将y值付给x y=t ‘将t中记录的x的值付给y，完成整个交换过程 End If Text1.Text=x : Text2.Text=y End sub 或者： Private Sub Command1_Click() Dim x As Integer,y As Integer x=Val(Text1.Text) : y=Val(Text2.Text) If x<y Then t=x: x=y: y=t ‘将三条语句使用分隔符冒号隔开 Text1.Text=x : Text2.Text=y End sub
vb选择结构
例3.2 三个数排序
题目：输入三个数，将它们从大到小排序。 程序界面如下图所示：
分析思考（画出流程图）
程序源代码
Private Sub Command1_Click() Dim a As Single,b As Single,c As Single,t As Single a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text3.Text) If a < b Then '本If语句实现a>=b t = a: a = b: b = t End If If a < c Then '本If语句实现a>=c t = a: a = c: c = t End If If b < c Then '本If语句实现b>=c t = b: b = c: c = t End If Text4.Text = a & "," & b & "," & c End Sub
30<>30 结果是False
"abc" Like "a*" 结果是True Form1 Is Form2 结果是False
关系运算符与关系表达式
说明 1）关系运算又称比较运算，是计算参与运算的 两个量之间是否满足指定关系，若满足，则关系 运算结果为True，或关系表达式的值为True； 反之若不满足，关系运算结果为False，或关系 表达式的值为False 2）关系表达式就是用关系运算符将常量、变量、 函数或算术表达式连接起来的式子。
3）关系运算符优先级相同
关系运算符与关系表达式
vb选择结构select
选择结构一、单分支的if语句1、格式[1] If 表达式Then语句块End if[2] If 表达式Then语句块2、功能：3、说明：（1）“表达式”一般为关系或逻辑表达式。
（2）“语句块”可以是任意多个语句，只不过“格式[2]”中的多个语句之间必须用：隔开，书写在同一行。
此时，“End if”可以省略。
4、举例：例1：任意读入两个整数，从小到大输出这两个数。
Private Sub Command1_Click()Dim a As Integer, b%a =InputBox("请输入一个整数：")b = InputBox("请输入一个整数：")If a > b Then Print b; a End IfIf b >= a Then Print a; b End IfEnd Sub5、InputBox函数（1）简单格式InputBox("提示信息") （2）使用格式（赋值语句）变量= InputBox("提示信息") （3）功能：从键盘上接受一个数据，然后赋值给某个变量（即读入一个任意值，保存到某变量中。
（4）用InputBox函数输入的数据默认为字符型，但由于赋值语句的特点“右边服从左边”，通常会自动转换成相应类型值之后再赋值给变量。
例如：Private Sub Command1_Click()'a,b不定义就使用，被认为是变体型a = InputBox("请输入一个整数：")b = InputBox(请输入一个整数：") If a > b Then Print b, aIf b >= a Then Print a, bEnd Sub输入的是“9”和“12”则会被当成字符串"9"和字符串"12"，赋值给a和b，而字符串按其ASCII 码值比较大小（字典序）。
VB选择结构程序设计
VB选择结构程序设计If条件语句1．单分支条件结构（If...Then语句）用If...Then 结构有条件地执行一个或多个语句。
单行语法和多行块语法都可以使用：（1）If < 表达式> Then <语句块>（2）If < 表达式> Then<语句块>End If2. 双分支结构（If...Then...Else语句）可以用If...Then...Else 块定义几个语句块，执行其中一个语句。
其语法格式也有两种形式：（1）If <表达式> Then<语句块1>Else<语句块2>End If（2）If <表达式> Then<语句1>Else<语句2>3. 多分支结构（If…Then…ElseIf语句）多分支结构可以处理两个或两个以上分支。
其语句形式为：If <表达式1> Then<语句块1>ElseIf<表达式2> Then<语句块2>…[Else<语句块n+1>]End IfIf语句的嵌套上面学习了If语句的基本形式，可以通过这些基本形式加以复合，获得更为复杂的If结构，称为If语句的嵌套。
可根据实际情况选择采用何种结构。
Select CaseSelect Case的结构形式为：Select Case <测试表达式>[Case <表达式列表1>[<语句块1>]][Case <表达式列表3>[<语句块2>]]…[Case <表达式列表n>[<语句块n>]][Case Else[<语句块n+1>]]End Select条件函数1．IIf 函数IIf 函数的功能是根据表达式的值，来返回两部分中的其中一个。
其语法格式为：IIf(<测试表达式>, <真值部分>, <假值部分>)例如，求分段函数：函数值的语句可以简单地表示为：y=Iif(x<0,2*x+3,4-3*x)2．Choose函数Choose函数的功能是：从参数列表中选择并返回一个值。
VB选择结构
注意:
If a>b Then
max=a
Else
max=b
End If
IIF函数的使用：
变量=IIF(条件表达式,表达式1,表达式2)
max=IIF(a>b,a,b)
3、多分支结构
（1）在Else子句之后嵌套
（2）在If子句之后嵌套
If 条件表达式1 Then
If 条件表达式2 Then
语句块1
Else
语句块2
End If
Else
语句块3
End If
If 条件表达式1 Then
语句块1
ElseIf 条件表达式2 Then
语句块2
ElseIf 条件表达式3 Then
语句块3
.......
Else
语句块n
End If
Dim i As Integer
i = MsgBox("你真的要退出吗?", vbOKCancel + vbQuestion, "退出提示框")
If i = vbOK Then
cancel=false '退出系统
else
cancel=true '不退出系统
注意：
（1）Select Case之后的表达式可以是任意表达式;
（2）Case后面的值可以采用以下形式：
a、可以是用逗号隔开的各个表达式的值
case 2,4,6,8
b、表达式值1 TO 表达式值2
case 100 to 200
case 80 to 89
Text2.Text="良好"
VB选择结构程序设计
VB选择结构程序设计在VB程序设计中，选择结构是一种常用的程序设计结构，用于根据不同的条件执行不同的代码块。
在本文中，我们将探讨VB选择结构的基本语法和一些实际应用。
选择结构主要有两种形式：IF-THEN和SELECTCASE。
IF-THEN结构是最基本的选择结构，它根据条件的真假来决定是否执行特定的代码块。
它的语法如下：```If condition Then'执行的代码块Else'执行的代码块End If```其中，condition是一个返回布尔值的表达式。
如果condition为True，那么执行if后的代码块；否则执行else后的代码块。
下面是一个简单的例子，根据用户输入的成绩判断是否及格：```vbDim score as Integerscore = InputBox("请输入成绩：")If score >= 60 ThenMsgBox("及格")ElseMsgBox("不及格")End If```SELECTCASE结构类似于多重IF-THEN结构，它根据不同的条件选择执行特定的代码块。
它的语法如下：```Select Case expressionCase value1'执行的代码块Case value2'执行的代码块Case Else'执行的代码块End Select```其中，expression是一个可以返回一个值的表达式。
根据expression的值，选择执行相应的代码块。
Case后跟着的是可以匹配expression的值的值。
如果expression的值与一些Case后的值匹配，那么执行对应的代码块；否则执行Case Else后的代码块。
下面是一个简单的例子，根据用户输入的数字判断是星期几：```vbDim day as Integerday = InputBox("请输入数字（1-7）：")Select Case dayCase 1MsgBox("星期一")Case 2MsgBox("星期二")Case 3MsgBox("星期三")Case 4MsgBox("星期四")Case 5MsgBox("星期五")Case 6MsgBox("星期六")Case 7MsgBox("星期日")Case ElseMsgBox("请输入1-7的数字")End Select```在实际应用中，选择结构经常用于根据用户的选择执行不同的操作。
VB顺序结构与选择结构
VB顺序结构与选择结构VB（Visual Basic）是一种事件驱动的、面向对象的高级编程语言，广泛应用于Windows应用程序开发。
在VB中，顺序结构和选择结构是编写程序时经常使用的两种结构。
下面将详细介绍这两种结构。
一、顺序结构顺序结构是指程序的执行按照代码编写的顺序逐行进行。
也就是说，代码从上到下依次执行，不会跳过任何一行。
在VB中，顺序结构是最基本也是最常用的结构。
例如，我们可以编写一个简单的程序来计算并输出两个数的和：```Dim num1 As Integer = 10Dim num2 As Integer = 20Dim sum As Integersum = num1 + num2Console.WriteLine("两个数的和为：" & sum)```在这个程序中，首先定义了两个整数变量`num1`和`num2`，并分别给它们赋值为10和20。
然后，定义了一个整数变量`sum`用来存储两个数的和。
接着，将`num1`和`num2`相加的结果赋值给`sum`，并最后通过`Console.WriteLine`方法将结果输出到控制台。
顺序结构在程序设计中最常用，因为很多时候程序的执行过程就是按照顺序逐行运行的。
下面我们将介绍另一种常用的结构，选择结构。
二、选择结构选择结构是根据条件的结果来选择是否执行段代码。
简单来说，就是根据条件判断来选择程序的执行路径。
在VB中，选择结构通常使用`If...Then...Else...End If`语句来实现。
例如，我们可以编写一个程序来判断一个数是否为正数：```Dim num As Integer = -5If num > 0 ThenConsole.WriteLine("这个数是正数")ElseIf num = 0 ThenConsole.WriteLine("这个数是零")ElseConsole.WriteLine("这个数是负数")End If```在这个程序中，首先定义了一个整数变量`num`，并给它赋值为-5、然后，使用`If...Then...Else...End If`语句来判断`num`的值。
VB选择结构
注意：
1）不管有几个分支，程序执行了一个分支后， 其余分支不再执行； 2）ElseIf 不能写成Else If 3）当多分支中有多个表达式同时满足，则只 执行第一个与之匹配的语句块
例题２
用编程方法求函数值
Y=
1( x > 1) 0(x = 0) − 1( x < 0
)
[90,100] [80,90]
代码：
Select Case Val(Text1.Text) Case 0 To 59 Text2 = "不及格 不及格" 不及格 Case 60 To 69 Text2 = "中等 中等" 中等 Case 70 To 79 Text2 = "良好 良好" 良好 Case 80 To 100 Text2 = "优秀 优秀" 优秀 Case Else Text2 = "输入成绩有误 输入成绩有误" 输入成绩有误 End Select
注意
表达式一般为关系表达式、逻辑表达式， 也可以为算术表达式，非0为True，0为 False 语句块可以是一句或多句，若用格式２表 示，则只能是一句语句，若多句，语句间 若多句， 若多句 需用冒号分隔，而且必须在一行上书写。 需用冒号分隔，而且必须在一行上书写
双分支If语句 双分支 语句
语句形式： 语句形式： 1) If 条件 语句 Else 语句2 语句1 句 2） If <表达式 Then ） 表达式> 表达式 <语句块 语句块1> 语句块 Else <语句块 语句块2> 语句块 End If
例题１
判断所输入值与０的关系 代码： x = Val(InputBox("请输入x的值")) If x >= 0 Then Print "x>=0" Else: Print "x<0" End If
VB控制结构之选择结构
2022年1月25日9时59分
3/26
主要内容
条件语句 If…Then…Else 情况语句 Select Case…End Select 条件函数 Iif 和 Choose 综合示例
2022年1月25日9时59分
4/26
主要内容
条件语句 If…Then…Else 情况语句 Select Case…End Select 条件函数 Iif 和 Choose 综合示例
格式：
If <表达式> Then [语句块1]
Else
T 表达式 F
[语句块2]
语句块1
语句块2
End If
流程图：
功能：当表达式的值为真或非零时，执行Then后 语句块1，否则执行Else后面的语句块2。
2022年1月25日9时59分
10/26
示例： (双分支)输入两个数,求它们中的大数。
流程图：
表达式1 T 语句块1
F 表达式2
T 语句块2
F …
F 表达式n T 语句块n 语句块n+1
功能：根据表达式的不同值确定执行哪个语句块。
2022年1月25日9时59分
13/26
示例：输入课程的成绩,显示对应五级制的评定。
mark = Val(Text1.Text)
If mark >= 90 Then
T
语句块1
F
表达式列表2
T
语句块2
F
…
…
…
表达式列表n
T 语句块n
F
语句块n+1
功能：根据“测试表达式”的值，从多个语句块 中选择符合条件的一个语句块执行。
2022年1月25日9时59分
VB 选择结构
第四章 选择结构程序设计程序设计基本过程①．变量定义②．变量赋值（直接输入、文本框输入、InputBox 函数） ③．问题解决计算过程④．输出计算结果（Print 语句、文本框输出） 运行、调试、修改及完善程序；保存程序。
例[4.9] 编写程序，从键盘上输入三角形的三个边长值，应用下面计算三角形面积的公式求三角形面积。
⑴．定义变量a, b, c ，L ，s⑵．输入三个边长值。
（任两边和大于第三边） ⑶．根据公式求面积：第一步求出半周长L ：L = ( a + b + c ) ／ 2。
第二步求出面积s ：))()((c L b L a L L s ---=⑷．输出三角形面积s 。
程序代码设计Dim a!, b!, c!, L!, s! a = Text1 b = Text2 c = Text3L = (a + b + c) / 2s = Sqr(L * (L - a) * (L - b) * (L - c)) Text4 = s问题：如果出现a+b<c 或 a+c<b 或 b+c<a ，则不能构成三角形，上面程序就会出现错误。
所以要对是否能构成三角形进行判断，可以才能进行计算；否则就不能计算面积。
用选择结构可以很容易处理上面的问题。
程序如下：Dim a!, b!, c!, L!, s! a = Text1 b = Text2 c = Text3if a+b>c And a+c>b And b+c>a then L = (a + b + c) / 2s = Sqr(L * (L - a) * (L - b) * (L - c)) Text4 = sEnd If4.3 选择结构程序设计（条件结构）顺序结构程序：顺序从上到下依次执行语句。
选择结构程序：根据条件的成立与否来分别执行不同的程序语句。
主要有以下几种形式：行结构条件语句If … Then … Else …块结构条件语句If … Then … Else … End If多分支条件语句If … Then … ElseIf … End If多分支选择语句Select Case … End Select。
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选择结构》课件
VB选择结构PPT课件介绍了选择结构的概述、使用场景和VB中的选择结构类型。 掌握了这些内容，可以轻松编写逻辑清晰、功能完善的程序。
选择结构概述
1 什么是选择结构？
选择结构是根据条件判断不同情况，从而选择执行相应的代码块。
2 使用选择结构的场景
选择结构适用于根据不同条件执行不同的操作，从而实现灵活的程序控制。
如果条件成立，则执行代码块1；否则执 行代码块2。
3 If-Else语句的常见应用场景
4 If-Else语句的注意事项
根据某个条件的真假执行不同的操作，如 判断某个数是否为偶数。
ห้องสมุดไป่ตู้
注意代码块的顺序和缩进，确保逻辑清晰、 准确。
If-ElseIf-Else语句
1 If-ElseIf-Else语句的语法
选择结构的重要性
选择结构可以根据不同条件执行不同的操作，实现程序的灵活性和功能性。
下一步的学习建议
进一步学习VB中其他的控制结构，如循环结构，深入提升编程能力。
4 If-ElseIf-Else语句的注意事项
根据多个条件的真假执行不同的操作，如 判断学生成绩的等级。
注意代码块的顺序和缩进，确保逻辑正确、 完整。
Select Case语句
1 Select Case语句的语法
Select Case 表达式 Case 值1 执行代码块1 Case 值2 执行代码块2 Case Else 执行代码块3 End Select
4 If语句的注意事项
根据不同条件执行不同的逻辑处理，如判 断数值的大小、条件成立时执行某些操作 等。
注意代码块的缩进，避免嵌套层次过深导 致可读性差。
If-Else语句
VB选择结构程序设计
【例4-5】利用输入框函数输入3个不同的数，选出其中最 大的数。 命令按钮Command1的单击（Click）事件代码为： Private Sub Command1_Click() Dim a As Single, b As Single, c As Single
a = Val(InputBox("请输入第1个数：", "输入框", 0)) b = Val(InputBox("请输入第2个数：", "输入框", 0)) c = Val(InputBox("请输入第3个数：", "输入框", 0)) p = " " & a & "，" & b & "，" & c p = p & "三个数中最大的数是：" If a > b And a > c Then p = p & a If b > a And b > c Then p = p & b If c > a And c > b Then p = p & c Label1.Caption = p End Sub
运算符的优先顺序
优先顺序 1 2 3 4 5 6 7 8 9 10 11
运算符类型
运算符 ^（指数运算） –（负数） *、/（乘法和除法） \（整数除法） Mod（求模运算） +、–（加法和减法）
算术运算符
字符串运算符 关系运算符 布尔运算符
&（字符串连接） =、<>、<、>、<=、>= Not And Or
VB选择架构设计
'Time是时间函数
例4.13
输入两个运算数和运算符(+、-、*或/)，组 成算式并计算结果，然后显示出来
(1)创建应用程序的用户界面和设置对象属性 单选按钮组Option1、Option2、Option3及Option4分别代 表+、-、*(乘)和/(除)运算
(2)编写程序代码
′表示条件在小于5范围取值
当用户单击“答题”按钮时，程序提供输入对话框， 由用户输入答案，再通过输出框显示评判意见。采用的 程序代码如下：
Private Sub Form_Load() Show Print FontSize = 18 Print Spc(9); "考一考你" FontSize = 13 Print Print Spc(5); "鸡兔同笼，已知鸡和兔总头数为23，" Print Spc(3); "总脚数为56，求鸡兔各有多少？" End Sub
输出两个实根 X1, X2
结束
Private Sub Command1_Click() Dim a As Single, b As Single, c As Single Dim D As Single, X1 As Single, X2 As Single Dim R As Single, P As Single a = Val(Text1.Text) '取数据a b = Val(Text2.Text) '取数据b c = Val(Text3.Text) '取数据c If a = 0 Then '当a=0 Text4.Text = "不是二次方程" Text5.Text = "不是二次方程" Else 'a<>0 D=b*b-4*a*c R = -b / (2 * a)
VB编程6.0_选择结构
学 中 怀 茂 Case 院 （后面的）表达式： 一 示例： 表达式1[,表达式2]... a=InputBox(“请输入一个字”) 例如: Case 1 , 3 , 5 Select Case a 表达式1 TO 表达式2 Case is=“。” 例如: Case 10 TO 30 Print “是句号” Case "A" TO "Z" Case “，” Is <关系运算符><表达式> Print “是逗号” 例如: Case Is >= 10 Case "a" To "z" Case Is = 0 Print “是小写字母" 注意: 测试表达式类型应与Case 表达式类型一致，且三种形式可 以混用，如: Case Is < -5 , 0 , 5 To 100
VB 程 序 设 计 选 择 结 构 ——
茂 怀
院 IF单行选择语句 一 4:
名 远
学 中
(1). 基本格式 If <条件> Then 语句组A [Else 语句组B]
注：此语句没有End if
VB 程 序 设 计 选 择 结 构 ——
(2). 执行方式：流程图
示例：If score >= 60 Then Print “通过！” Else Print “未通过.” Print "继续努力！"
If a > b Then
If t a= >a: ba Then t= =t a: a = b: b = t = b: b End If Print a , b
End Sub
茂 怀
院 多分支选择语句 Select Case 一 5:
VB第五章 选择结构
输入x 输入x x>=5 ？ F T y=2*xy=2*x-5 输出y 输出y
结束
P6
PAN XIAONAN
例5.1
设计一个100以内的加法程序。 设计一个100以内的加法程序。 100以内的加法程序
功能要求：用Label1和Label3显示随机生成的两个100以内的 功能要求： Label1和Label3显示随机生成的两个100以内的 显示随机生成的两个100 整数，用户在文本框中输入结果，单击“查看答案”按钮后， 整数，用户在文本框中输入结果，单击“查看答案”按钮后， Label5中显示答案是否正确 中显示答案是否正确。 在Label5中显示答案是否正确。
Private Sub Command1_Click()
开始
PAN XIAONAN
dim x!, y! 输入x 输入x x = Val (Text1.text) T If x<=0 Then x>0 ？ y= 1-x 1y=1+x Else x<=0 Then y= 1-x Else y= 1+x If 1y= 1+x End If 输出y 输出y Text2.text = y End Sub
块式 False 条件 True
语句（ 语句（块）
若条件的值为真（ )，则执行Then后面的语句块。 Then后面的语句块 功能 ：若条件的值为真（非0 )，则执行Then后面的语句块。 If形式无 If，多语句间用冒号分隔。 【注】：行If形式无 End If，多语句间用冒号分隔。
《Visual Basic 程序设计》 第5章 P5
令按钮时，根据x的值是否大于0计算y的值，并在文本框2显示计算的结果； 令按钮时，根据x的值是否大于0计算y的值，并在文本框2显示计算的结果； 单击“退出”命令按钮时，将结束程序的运行。 单击“退出”命令按钮时，将结束程序的运行。
VB选择结构
3.2字符串运算符与字符串表达式 字符串运算符有两个：“&”、“+”，是例如： “Hello” & “ World” “Check” & 123 “Check” + 123 结果为“Hello World” 结果为“Checkl23” 错误
注意: “&”和“+”这两个运算符的区别：“+”运算符两边的操作数应均为字符串。 如果都为数值型，则进行算术运算；如果有一个为字符串，另一个为数值 型，则出错。“&’’运算符两边的操作数不论是数值型的还是字符串型的， 都进行字符串的连接运算，系统先将数值型操作数转换为字符串，然后再 进行连接运算。
3.1强制显式声明
VB可采用强制声明功能,使所有变量都必须先声明后使用. 这样，若运行时遇到一个未经明确声明的变量名，VB就会 发出错误警告。 声明方式: 可在窗体模块或标准模块的声明段中加入语句： Option Explicit 在“工具”菜单中打开“选项”对话框,单击“编辑器” 选择“要求变量声明”选项,即可自动插入 Option Explicit语句.
选择结构
IF语句 IF语句
1.1 单行结构条件语句 格式：If <条件> Then [<语句组1>][Else <语句组2>] 功能：如果<条件>成立，则执行<语句组1>，否则执行 <语句组2>。 •<条件>可以是关系表达式、逻辑表达式、数值表达式或 字符串表达式。 <语句组1>和<语句组2>可以有多条语句，各语句之间用 冒号隔开。
Vb-程序的选择结构select-case结构
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
Is 关系运算表达式
Case is <30数值或字符串表达式,表述固 定值之一
用来指定一个范围，较小的 在To前，较大在To后
可配合比较运算符来指定一 个数值范围，不能用逻辑运 算符将两个或多个简单条件 组合在一起
留意: 1. 以上几种形式可以混用， 例如: Case Is < -5 , 0 , 5 To 100
Case Is < 0: MsgBox “有两个共轭复根 “
End Select End If End Sub
内容小结
1．熟记select case语句书写构造，理解执行过程。 2. 留意select case 语句中表达式细节 3. Select case 语句应用环境，与if语句的转换
2.测试表达式类型应与Case表达式类型全都
【例1】：变量strC中存放一个字符，推断是字母、数字
If Ucase(strC) >=“A” And Ucase (strC) <=“Z” Then Label1.Caption= strC + “是字母字符“
ElseIf strC >=“0“ And strC <=“9“ Then Label1. Caption = strC + “是数字字符“
2024版vb选择结构教案pdf[1]
![2024版vb选择结构教案pdf[1]](https://img.taocdn.com/s3/m/e5ad8121001ca300a6c30c22590102020740f2b8.png)
程序测试与优化调整
程序测试
编写测试用例，包括正常情况下的运算和异常情况的处理，如输入非数字字符、 除数为0等。
优化调整
根据测试结果，对程序进行相应的优化和调整，提高程序的稳定性和用户体验。 例如，增加输入验证功能，确保用户输入的是数字；对除数为0的情况进行特殊 处理，避免程序崩溃。
2024/1/26
Case子句的不同匹配方 式
Select Case语句的执行 流程
Select Case语句的示例 和练习
2024/1/26
13
条件语句的嵌套
条件语句嵌套的概念和用法 嵌套Select Case语句的执行流程
嵌套If语句的执行流程 条件语句嵌套的示例和练习
2024/1/26
14
04
循环结构程序设计
变量
变量是用于存储数据的容器，在VB中，变量名必 须以字母或汉字开头，可以包含数字、下划线和美 元符号，但不能以VB保留字作为变量名。
2024/1/26
8
运算符与表达式
2024/1/26
运算符
VB中常见的运算符包括算术运算 符（+、-、*、/等）、比较运算符 （=、<>、>、<等）、逻辑运算 符（And、Or、Not等）等。
34
THANKS
感谢观看
2024/1/26
35
实践与创新
鼓励学生多进行实践和创新，将 所学的知识应用到实际项目中， 锻炼自己的实践能力和创新思维。
2024/1/26
01 02 03 04
拓展编程技能
鼓励学生尝试使用不同的编程语 言和工具，拓展自己的编程技能， 提高解决问题的能力。
学习资源与支持
提供了一些学习资源和支持渠道， 如在线课程、编程社区和论坛等， 以便学生在未来的学习中获得更 多的帮助和指导。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
要求： 1、作业必须带有自己的个人标示 2、要包括两个按钮，一个计算体重一个判断闰年。
否
A>=0？
是
输出Y=-A
输出Y=A
一、从制作矩形问题开始
张军找来了一条长度为L的铁丝，希望用 来制作一个一个面积为S的矩形框。他问李 明：这个矩形的长和宽应当各是多少，才能 使制作出来的矩形框面积为指定的值呢？
一、从制作矩形问题开始
1、分析问题
设所求矩形的宽为X，根据题目的条件，矩形的周长是L，那么它 的长与宽的和就是L/2，长应为L/2 –X。根据矩形的面积公式，则可 以列出如下的方程：
结束如果
End if
（5）结束。
End
作业一：某商场为了对苹果进行促销，规定购买2千克以上可以在 原价每千克1.5元的基础上打8折。请设计一个程序计算购买X千克 苹果的应付款。
作业要求：
1、程序应书写正确，符合题目要求，将计算矩形的长和宽及作业一均需要 交，界面含两个命令按钮;
2、将生成.exe文件上交;
If w < 0.89 * b Then Print "您的体重偏瘦！"
If h <= 0 Or w <= 0 Then Print "输入错误，请重新输入"
End Sub
五，逻辑表达式
逻辑表达式：用逻辑运算符连接起来的式子。
逻辑运算符： Not(非) 取操作数相反的值。即当操作数为假（False）时，结果为真（True）; 当操作数为真（True）时，结果为假（False）。 And(与) 当两个操作数都为真时，结果才为真。 Or（或）当两个操作数都为假时，结果才为假。
X(L/2-X)=S
化简这个方程得
X^2-1/2*L*X+S=0
这是通过求根公式即可得出解答。
一、从制作矩形问题开始
1、设计算法
翻译
（1）输入铁丝的长度L；
Val(InputBox(“请输入铁丝的长度”))
（2）输入矩形的面积S；
Val(InputBox(“请输入矩形的面积”))
（3）计算判别式D=L*L/4-4*S；
3、作业上应带有个人标示（包括班级学号姓名），否则视为不交。
界面要求：
作业一：某商场为了对苹果进行促销，规定购买2千克以上可以在 原价每千克1.5元的基础上打8折。请设计一个程序计算购买X千克 苹果的应付款。
作业二：输入三个数a,b,c求出其中的最大数。
作业要求：
1、程序应书写正确，符合题目要求;
D=L*L/4-4*S
（4）如果D>=0，则 计算X1=(L/2+Sqr(D))/2 X2=(L/2-Sqr(D))/2 输出长和宽
If D>=0 Then
X1=(L/2+Sqr(D))/2
X2=(L/2-Sqr(D))/2
Print x1;x2
否则 输出“找不到这样的矩形！”
else print“找不到这样的矩形！”
Private Sub Command1_Click()
Dim h, w, b As Single
h = Val(InputBox("请输入你的身高："))
w = Val(InputBox("请输入你的体重："))
b = h - 100
If
Then Print "您的体重正常"
If w > 1.11 * b Then Print "您的体重偏重！"
True
False
五，逻辑运算的顺序
（1）当条件中只有逻辑运算符时，运算的顺序为：Not、 And、Or。
（2）当条件中既有算术运算符，又有关系运算符和逻辑 运算符时，运算顺序是：算术运算>关系运算>逻辑运算。
作业：P48 实践：判断某一年是否为闰年
①、普通年能整除4且不能整除100的为闰年。（如2004年就是闰年） ②、世纪年能整除400的是闰年。(如2000年是闰年，1900年不是闰年)
2、将工程文件和编译文件同时上交;
3、作业上应带有个人标示（包括班级学号姓名），否则视为不交。
四、关系表达式
关系表达式：用关系运算符连接起来的式子。
关系运算符号有：
读等于
读赋值
注意：关系运算符中的=和赋值语句中的=代表不同的含义。
多重选择语句
例题二：输入身高h和体重w，判断体重状况
判断体重是否超标等的条件如下： 标准体重b（千克）＝身长（厘米）－100 正常体重 b-b×0.10 <=w<=b+b×0.10 偏重w>=b+b×0.11 偏瘦w<=b-b×0.11 （b表示标准体重）
语句组2
一行最多为 255个字符
行语句结构： If 条件 Then 语句组1 Else 语句组2
条件成立吗？
是 语句组1
练习一、阅读下列的程序，完成程序框图，并分别写出当A=15和 A=-9时程序的运行结果，说明程序的功能，并上机验证。
Private Sub Command1_Click() Dim A AS Integer A=InputBox(“请输入A的值”) If A>=0 Then Print “Y=”;A Else Print “se)
1、Not(3>7)的结果是？ Not(13>7)的结果是？
True
False
2、（3<8）And (5<10)的结果是什么？ （3<8）And (5>10)的结果是什么？
True
False
3、（0<5）Or (3<1)的结果是？ （5<0）Or (3<1)的结果是？
亲爱同学们：
请用以下句式造句
如果……就……否则……
程序的选择结构
----VB中的IF条件语句
二、If语句的基本格式及执行过程
块语句结构： 关系表达式（＞，＜,<>，<=，>=）； 逻辑表达式（NOT,AND，OR)
If 条件 Then
语句组1 Else
Else和语句组 2可以省略
否
语句组2
End If