VB选择性语句
合集下载
Vb 程序的选择结构select case结构
【例】求一元二次方程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 If Else Delta = B ^ 2 - 4 * A * C Select Case Delta 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 Case Is < 0: MsgBox "有两个共轭复根 " End Select End If End Sub
程序的选择结构 ——select case结构
Private Sub Command1_Click() player = Text1.Text Select Case player ① Case "科比" MsgBox "洛杉矶湖人队；24号球衣", 0, "球队名称" ② Case "霍华德" MsgBox "休斯顿火箭队；12号球衣", 0, "球队名称" ③ Case "詹姆斯" MsgBox "迈阿密热火队；6号球衣", 0, "球队名称" · · Case Else MsgBox "NBA 没有这个球员", 0, "球队名称" · End Select End Sub
vb几种常用语句自己总结
If vbNo = MsgBox("确实要关闭程序？", vbYesNo + vbQuestion, "关闭程序" ) Then
Cancel = 1: Exit Sub
End If
ctExit = True
-----------------------------------------------------------------
__________________________________________________________________________________________________________________________________________________________
MsgBox "回答正确：你是大笨蛋！！！！！！！！！", vbExclamation '惊叹号，提示警告消息
MsgBox "回答正确：你是大笨蛋！！！！！！！！！", vbQuestion '询问消息
MsgBox "回答正确：你是大笨蛋！！！！！！！！！", vbCritical '警告危机消息
Call WinInTop(Me.hwnd) '使本程序显示在最前面 * 有问题
Kill "C:\123.txt" '删除C盘的123.txt文件
VB消息语句：
MsgBox "回答正确：你是大笨蛋！！！！！！！！！" '普通消息
MsgBox "回答正确：你是大笨蛋！！！！！！！！！", vbInformation '信息
大学vb 第3章 选择结构(If语句)
BMI<19，偏轻 19≤BMI≤23，标准 BMI>23，超重
未超
End If
语句应用
问题3：希望程序给出重、轻和标准三种提示 。
If BMI > 23 Then
超重
ElseIf
Else BMI>=19
Then
标准 偏轻
End If
演示
……
ElseIf 温暖 Then 挤挤眼
跺跺脚
Else
伸伸腰 End If
语句应用（体重测试）
体重指数BMI 10000* 体重公斤 身高厘米
2
BMI<19，偏轻 19≤BMI≤23，标准 BMI>23，超重
语句应用
问题1：希望程序给出超重的提示 。
If BMI > 23 Then 超重
End If
BMI<19，偏轻 19≤BMI≤23，标准 BMI>23，超重
语句应用
问题2：希望程序给出超重和未超两种提示 。 If BMI > 23 Then 超重 Else Else If BMI <= 23 Then 未超 超重 End If
BMI<19，偏轻 19≤BMI≤23，标准 BMI>23，超重
If 语句：
单分支（一种执行结果） 双分支（两种执行结果选一） 多分支（多种执行结果选一）
下次课内容：
3.4 分支（选择）结构
实验作业：
实验作业5
如果 当前输入的密码=系统保存的密码 那么 登录成功 如果 当前输入的密码<>系统保存的密码 那么 重新登录
数学中比较的例子： 分段函数
未超
End If
语句应用
问题3：希望程序给出重、轻和标准三种提示 。
If BMI > 23 Then
超重
ElseIf
Else BMI>=19
Then
标准 偏轻
End If
演示
……
ElseIf 温暖 Then 挤挤眼
跺跺脚
Else
伸伸腰 End If
语句应用（体重测试）
体重指数BMI 10000* 体重公斤 身高厘米
2
BMI<19，偏轻 19≤BMI≤23，标准 BMI>23，超重
语句应用
问题1：希望程序给出超重的提示 。
If BMI > 23 Then 超重
End If
BMI<19，偏轻 19≤BMI≤23，标准 BMI>23，超重
语句应用
问题2：希望程序给出超重和未超两种提示 。 If BMI > 23 Then 超重 Else Else If BMI <= 23 Then 未超 超重 End If
BMI<19，偏轻 19≤BMI≤23，标准 BMI>23，超重
If 语句：
单分支（一种执行结果） 双分支（两种执行结果选一） 多分支（多种执行结果选一）
下次课内容：
3.4 分支（选择）结构
实验作业：
实验作业5
如果 当前输入的密码=系统保存的密码 那么 登录成功 如果 当前输入的密码<>系统保存的密码 那么 重新登录
数学中比较的例子： 分段函数
VB编程之Select Case语句
本文介绍VB中一种选择结构——Slect Case语句。
Select Case语句也称为情况语句，是多分支结构的另一种表示形式。
语句格式如下：Select Case语句的功能是首先计算<测试表达式>的值，然后用计算结果从前到后依次与每个Case子句的<表达式列表>的值进行比较。
如果匹配成功，则执行该Case子句后的语句块，然后执行End Select语句。
如果没有匹配的，且存在Case Else语句则执行Case Else子句后的语句块n+1，然后执行End Select语句。
<表达式列表>有4种形式：1，表达式如：Case 5 或 Case "a"2，表达式1 To 表达式2Case 1 to Case 20或Case "A" to "Z"3，Is关系运算符表达式如：Case Is<604，用逗号分隔的以上3种形式的列表如：Case 1 to3,10 to 15 ,6,9,Is>100说明：To用来指定一个范围，必须将小的值写在前面，而大的值写的后面Is及后面的关系运算符和表达式来指定一个数值范围。
如Is>50 ，但是不能用两个或多个组合在一起，例如Case Is>10 And Is<20,这是错误的表达形式Select Case语句与If语句功能类型，一般情况下可以相互替换。
举例：要求：编程求指定某年某月的天数。
如下图所示;分析：月份天数有3种情况，即31天、30天、29天或28天。
第3种情况与是否为闰年有关，闰年的2月为29天，非闰年的2月为28天。
闰年是能被4整除但不能被100整除的年（如2004年），或者能被400整除的年（如2000年）。
步骤一：按照上图设计程序界面。
步骤二：添加代码，如下所示步骤三：测试效果，输入年份和月份后，单击求天数按钮即可计算出该月的天数。
vb选择结构——if语句
程序的选择结构（二）——if条件语句学校：汕头市东厦中学年级：高一级教师：蔡少如【教材分析】本节课的教学内容是广东教育出社版、高中课程标准实验教材选修模块一《算法与程序设计》中的第2章2.3节《程序的选择结构》第2课时2.3.2 《程序的选择结构---条件语句》，是在上两课时（2.1—2.2）学习了VB程序的顺序结构和初步学习if语句的基础上，进一步深入学习if语句。
在解决实际问题的过程中，常常需要对事物进行判断和选择。
如何在程序设计中能够实现判断和选择，条件语句是重要的选择方式之一。
但在实际问题中经常会遇到多重嵌套的情况，如何理清思路成了解决问题的关键。
在讲解这一知识点时，采用从简到繁的思路，引导学生经历分析问题、设计算法、编写程序等编程的整个过程。
通过分析、设计程序，让学生体验V B语言的条件语句的格式、功能、执行过程，特别是嵌套的条件语句格式。
同时，让学生体验自主学习，体验编程的乐趣。
【学情分析】本节课的教学对象是高一学生，据了解，只有少数部分的学生在初中阶段接触过计算机程序。
目前由于受到教学环境的限制，学生暂时只能在普通教室上课，这给信息技术的教学带来较大的不便。
考虑到高一数学必修（3）有《算法》一章，同时算法设计的教学过程不用过多依赖上机操作，因此提前给学生讲授高一选修教材《算法与程序设计》。
学生经过前面两节课的学习，对算法的设计和程序的编制过程已经有初步的了解，基本上掌握了常用的程序语句，如input box（）函数，赋值语句，输出语句，初步认识if语句等，对程序设计已经产生一定兴趣，但由于在程序设计过程中，涉及数学、英语学科知识点较多，学生还没有足够的相关知识储备，且学生没有上机操作的机会，导致教学活动在实践过程中存在一定的困难。
VB中的IF语句精
a>b
else
_p_ri_n_t b
end if
练习1：输入两个不相等的数 a，b，比较大小，将 大数放在 a中，小数放在 b中，然后输出 a，b
if _a_<_b_ then
_t=_a_:_a_=_b_:_b_=_t
end if
VB程序代码中一行可 以写多个语句，语句 间用冒号隔开。
嵌套分支结构
开始 输入身高 cm 和 体 重 kg
体重± 10%标准体重
输出“恭喜， 标准身材！”
结束
输出“不太 标准诶”
开始
顺序结构
输入身高
cm 和 体 重
正
kg
确
no
的
体重± 10%标准体重
应
选
该 是 这
yes
输出“恭喜， 标准身材！”
输出“不太
择
标准诶”
结
构
样
的
结束
循环结构
测试体重标准与否的完整依据： 标准体重（公斤）= 身高（厘米）- 110 ?标准体重 ±10%为 理想体重 ?超过标准体重10%为 超 重 ?超过标准体重20%为 轻度肥胖 ?超过标准体重30%为 中度肥胖 ?超过标准体重50%为 重度肥胖
end if
例1：输入一个数到变量a，输出它的绝对值（不用绝对值
函数）
a = inputbox()
if _a_<_0_ then
a<0
_a_=_-_a
end if
print a
Print 意为打印，是输出 语句。
例2：从键盘分别输入两个不相等的数到变量a、b，输出
其中较大的数。
if _a_>_b_ then _p_ri_n_t a
VB中的IF语句
用来解决有关选择 结构的问题。
VB中的选择语句 ——IF语句
选择结构与选择语句
if 条件 then 语句A end if
If和end if 要成对出现
if
条件 then 语句A else 语句B end if
例1：输入一个数到变量a，输出它的绝对值（不用绝对值
函数）
a = inputbox("")
分支嵌套——双分支嵌套双分支
条件1 then 语句1 elseif 条件2 then 语句2 else 语句3 end if end if if
分 支 结 构 1
分 支 结 构 2
注意：每一层的end if结束本层判断。
练习2：
购买地铁车票，若乘1—4站，3元/位；若乘5—9 站，4元/位；若乘10站以上，5元/位；输入人数 person、站数n，输出应付款pay。
4．有如下VB程序段： Private Sub Command1_Click() a ＝ 3: b ＝ 4: c ＝ 5 If a >＝ b And a >＝ c Then Max ＝ a ElseIf b >＝ c Then Max ＝ b Else Max ＝ c End If End Sub 该程序运行后，整数型变量max的值为 A．0 B．3 C．4
(
)
C
8．某景区针对门票的销售编写了如下VB程序代码： Private Sub Command1_Click() m ＝ InputBox("请输入身高") If m <＝ 120 Then Label1.Caption ＝ "免票" ElseIf m <＝ 150 Then Label1.Caption ＝ "半价票" Else Label1.Caption ＝ "全价票" End If End Sub 运行程序，单击命令按钮Command1，若在出现的对话框中输 半价票 入“125”，在标签Label1上显示的内容是___________________ 。
vb考点解析
A.至少需要2个文本框 B.至少需要1个文本框 C.至少需要5个标签 D.至少需要6个标签
试题解析： 输入原形文字时需要文本框控件
答案：B
程序示例5
小亮用VB设计了一个加法器的程序，但他把运算符错 输成了“-”，需要修改Label1的（ ）。
A.①B.②C.③D.④
试题解析： 标签的caption属性值为 标签中显示的内容
Private Sub Command1_Click() Dim x As Single, y As Single y = 0 ① = Val(Text1.Text) If x > 0.5 Then y = 10 + (x - 0.5) * 5 Else y = 10 ② Label5.Caption = y End Sub
A.①B.②C.③D.④
答案：A
程序示例3
李同学用VB设计了一个“班级通讯录管理系统”，用户登 录界面如图，红色框线内是（ ）对象。
A.“窗体” B.“文本框” C.“标签框” D.“命令按钮”
试题解析： 用于编写了一个“影子程序”，“影子”文字会随着“原形”文字变化 而变化，下列说法正确的是（ ）。
答案：C
Vb选择类型2——控件的使用 这一部分内容重点考查，控件的名称、属性以及 属性值的设置
控件工具箱
控件名称.属性=属性值
控件属性窗 口（左侧一 列为属性名 称，右侧一 列为属性值）
程序示例1
下图为"打折商品计算器"程序，右侧的程序段是为command3的 click事件编写的，如图所示，从功能分析可看出，command3所 对应的控件标题是：( )
A=100 b=50
A.50 B.100 C.200 D10
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
1 单一选择的If…Then 语句
运行此程序,用鼠标单击窗口后,会弹出如图6-1(a)所 示的“单击按钮实验”信息框，用鼠标单击最左边的 “终止”按钮，MsgBox函数就会把值3返回赋给变量 st，这样以“st=？”作为条件表达式来判断应该执 行哪一个语句时，就会在窗口上显示出“你单击的是 ‘终止’按钮”信息。如图6-1(b)所示若将窗体 Click事件过程代码中的语句：If st = 3 Then ck1.Print "你单击的是'终止'按钮"改写成：If st = 3 Then ck1.Print "你单击的是'终止'按钮": Ck1.Print st那么在用鼠标单击图6-1（a）里的“终 止”按钮后，窗体上的显示情形如图6-1（c）所示。
1 单一选择的If…Then 语句
1.1．单行语句
用 If...Then 结构有条件地执行一个语句 一般格式如下： If < 表达式> Then <语句> 遇到If...Then 语句时,首先测试条件表达式，如果为真， 就执行语句，否则跳过该语句，执行下面的程序。 （1）If todayDate < Now Then todayDate = Now 注意：使用单行格式时，若<条件表达式>为真，要执行多 个语句，那么它们在一行里，中间用冒号“：”隔开。 If...T鼠标单击窗口后弹出一个具有 “终止”、“重试”、和“忽略”3个按钮的MsgBox信息框。用 鼠标单击其中的某一个按钮，根据MsgBox函数的返回值，在窗 口上告知是单击了信息框里的哪一个按钮。
例6-3 输入3个数a、b、c，求出其中最大数。
2 If...Then...Else语句
要输入3个数字比较大小，可以先将其中任意两个数进行 比较，然后取出其中较大的那个数与第三个数字进行比较即可。 界面设计如图6-3所示。 程序代码如下： Private Sub Command1_Click() Dim a As Integer, b As Integer Dim c As Integer, m As Integer a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text3.Text) If a > b Then m = a 'm用来存放较大值
多行If…Then语句的使用
2 If...Then...Else语句
当要对多个相关条件判定时，就可以使用 If…Then…Else语句，可以完成根据条件满足或不满足情况下 应该执行的语句。 2.1 单行语句 语法： If 条件表达式 Then 语句1 Else 语句2 功能：首先测试条件表达式，如果条件成立（即值为 真），则执行Then后面的语句1。如果条件不成立（即值为 假），则执行Else后面的语句2。而在执行完Then或Else之后 的语句块后，后面的语句继续执行。单行的If…Then…Else一 般用于Then和Else后面只有单个语句的情况。 2.2.多行语句 可以用 If...Then...Else 块定义几个语句块，执行其中 一个语句。其语法格式也有两种形式：
1 单一选择的If…Then 语句
例6-2输入3个数，将它们从大到小排序。 代码如下:
Private Sub Command1_Click() a=Val(Text1.Text) b=Val(Text2.Text) c=Val(Text3.Text) If a<b Then t=a:a=b:b=t End If If a<c Then t=a:a=c:c=t End If If b<c Then t=b:b=c:c=t End If Text4.Text=a&”,”&b&”,”&c 图6-2 End Sub
1 单一选择的If…Then 语句
设置窗体的Name属性为ck1,编写ck1的Click事件过程代 码: Private Sub From_Click() st= MsgBox (“请单击对话框里的某一个按钮”，322，”单 击按钮实验” If st=3 Thenck1.Print “你单击的是’终止’按钮” If st=4 Thenck1.Print “你单击的是’重试’按钮” If st=5 Thenck1.Print “你单击的是’忽略’按钮” End Sub
VB选择性语句
内容
1 1 单一选择的if…then语句 2 if…then…else语句 3 4 5 嵌套选择语句 多重选择 GoTo语句
2
3 4 5 6 7 8
6 On…GoTo和On…Error语句 7 8 9 复选框 选项按钮 框架
9
1 单一选择的If…Then 语句
1 2 单行语句
多行语句
1 单一选择的If…Then 语句
6-1 (a)
6-1 (b)
6-1 (c)
1 单一选择的If…Then 语句
1.2
多行语句
多行语句与单行语句功能相同，但格式不同，一般格式如 下: If <条件表达式> Then <语句体> End If 需要注意的是，在多行块中，语句体往往由多个语句行组 成。
y=
2 If...Then...Else语句
（1）If <表达式> Then <语句块1> Else <语句块2> End If （2）If <表达式> Then<语句1>Else<语句2> 当<表达式>的值为真时，执行Then后面的语句块1（或语 句1），否则执行Else后面的语句块2（或语句2）。
2 If...Then...Else语句
2 If...Then...Else语句
Else m = b End If If c > m Then m = c Text4.Text = m End Sub
图6-3 If…Then…Else语句的使用
运行此程序时，先输入3个整数，然后单 击判断按钮，即可将最大数显示在文本框中。