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
- 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