VB中选择语句
合集下载
vb的三种基本结构
③. j = 0 If J＞0 Then J＝J＋1 Endif
2．以下程序，运行后 x的值为 （ ） x =2 y= 3 y=y+1 x=x+y-1 A. l B. 3 C. 5 D. 7 3、以下程序，运行后变量value的值为 ( ) X = 20 If x >= 10 then value = 5 * x else value = 4 * x end if msgbox(value) 最后，变量value的值是（ ） A、50 B、40 C、100 D、80
vb程序的三种基本结构一顺序结构二选择结构三循环结构程序是由若干个基本结构组成的一个基本结构可以包含一条或若干条语句
VB程序的三种基本结构
程序是由若干个基本结构组成的，一个基本结构可以包 含一条或若干条语句。
通常程序有三种最基本的结构：
一、顺序结构 二、选择结构 三、循环结构
1、 顺序结构： 将命令和语句逐条顺序排列。 程序执行时按语句的先后顺序逐条执行。 S1
4、以下程序，运行后 X的值为 （ ） X =2 For i＝1 To 5 If X＜i Then X= X＋i End If Next i A. l B. 3 C. 5 D. 7
例1、 ห้องสมุดไป่ตู้=1 b=2 c=a+b a=c-a b=c-a
最后，变量b的值是（ ）
S2 S3
2、分支结构：（选择结构） 根据条件判断其是否成立，如果成立执行成立的分支；否则 执行另一分支。 其一般形式为： If 条件 Then 语句序列1 C Else 语句序列2 End If 分支结构的简单形式为： If 条件 Then 语句序列 End If S1 S2
C
例4、s=0 for I=1 to 100 s=s+I next 最后，变量s的值是（ ）
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常用语句
vb常用(chánɡ yònɡ)语句vb常用(chánɡ yònɡ)语句Vb常用(chánɡ yònɡ)语句解析(jiě xī)下面(xià mian)10条语句(yǔjù)是最常用的语句，将指针移到上面按ctrl键单击可查看用法：包括功能、语法、参数(cānshù)、举例等。
1、Let（赋值语句即=）3、Dim语句7、If...Then...Else 语句21、Select case6、For...Next 语句19、While...Wend 语句15、Randomize 语句16、Rem 语句17、Static 语句18、Unload 语句1、Let（赋值语句即=）功能：将表达式的值赋给变量或属性。
语法(yǔfǎ)[Let] varname = expressionLet语句(yǔjù)的语法包含下面部分：部分描述Let可选的。
显式使用Let关键字也是一种格式，但通常都省略该关键字。
varname必需的。
变量或属性的名称；遵循标准变量命名约定。
expression必需的。
赋给变量或属性的值。
2、call语句(yǔjù)将控制权转移(zhuǎnyí)到一个Sub 过程(guòchéng)，Function 过程，或动态连接库(DLL)过程。
语法[Call] name [argumentlist]Call语句的语法具有以下几个部分：部分描述Call可选参数；关键字。
如果指定了这个关键字，则argumentlist必须加上括号，例如：�Call MyProc(0)name必要参数，要调用的过程名称。
argumentlist�说明(shuōmíng)调用一个过程(guòchéng)时，并不一定要使用Call关键字。
如果(rúguǒ)使用Call关键字来调用一个需要参数(cānshù)的过程，argumentlist 就必须要加上括号(kuòhào)。
理解VB中选择语句SelectCase结构的最好例子
End Sub
'以下代码是程序退出
Private Sub Command3_Click() End
End Sub
Case Else
'测试表达式的值x在其它情况下
Text2.Text = "不及格" '文本框Text2中显示“不及格”
End Select End Sub
'以下代码是清除文本框Text1、Text2中所显示的内容，且将焦点放在文本框Text1上
Private Sub Command2_Click() Text1.Text = "" Text2.Text = "" Te78、79情况下
Text2.Text = "中等" '文本框Text2中显示“中等”
Case 60, 61, 62, 63 To 66, Is >= 67 '测试表达式的值x为60、61、62、63、在64至66情况
下、大于等于67的情况下
Text2.Text = "及格" '文本框Text2中显示“及格”
Case Is >= 90
'测试表达式的值x大于等于90情况下
Text2.Text = "优秀" '文本框Text2中显示“优秀”
Case 80 To 90
'测试表达式的值x在80至90情况下
Text2.Text = "良好" '文本框Text2中显示“良好”
Case 70, 71, 72, 73, 74, 75, 76, 77, 78, 79 '测试表达式的值x为70、71、72、73、74、75、
'以下代码是程序退出
Private Sub Command3_Click() End
End Sub
Case Else
'测试表达式的值x在其它情况下
Text2.Text = "不及格" '文本框Text2中显示“不及格”
End Select End Sub
'以下代码是清除文本框Text1、Text2中所显示的内容，且将焦点放在文本框Text1上
Private Sub Command2_Click() Text1.Text = "" Text2.Text = "" Te78、79情况下
Text2.Text = "中等" '文本框Text2中显示“中等”
Case 60, 61, 62, 63 To 66, Is >= 67 '测试表达式的值x为60、61、62、63、在64至66情况
下、大于等于67的情况下
Text2.Text = "及格" '文本框Text2中显示“及格”
Case Is >= 90
'测试表达式的值x大于等于90情况下
Text2.Text = "优秀" '文本框Text2中显示“优秀”
Case 80 To 90
'测试表达式的值x在80至90情况下
Text2.Text = "良好" '文本框Text2中显示“良好”
Case 70, 71, 72, 73, 74, 75, 76, 77, 78, 79 '测试表达式的值x为70、71、72、73、74、75、
VB选择性语句
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语句
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中的IF语句
Print “呀,轻度肥胖了!” End If If (weight <= (high - 110) + (high - 110) * 0.5) And (weight > (high - 110) + (high - 110) * 0.3) Then
Print “哇,中度肥胖了!” End If If weight > (high - 110) + (high - 110) * 0.5 Then
再试一下
End If
End If If (weight <= (high - 110) + (high - 110) * 0.2) And (weight > (high - 110) + (high - 110) * 0.1) Then
Print “注意了哦,有点超重了!” End If If (weight <= (high - 110) + (high - 110) * 0.3) And (weight > (high - 110) + (high - 110) * 0.2) Then
-1 , x<0
分支结构1
if _x_<_0_ then 分支结构2 _y_=_-1_
else if _x_=_0_ then _y_=_0_ else _y_=_1_ end if
end if print y
分支嵌套——双分支嵌套双分支
if 条件1 then
语句1
else
分
if 条件2 then
else 语句B
end if
if 条件1 then
语句1
else
if 条件2 then
Print “哇,中度肥胖了!” End If If weight > (high - 110) + (high - 110) * 0.5 Then
再试一下
End If
End If If (weight <= (high - 110) + (high - 110) * 0.2) And (weight > (high - 110) + (high - 110) * 0.1) Then
Print “注意了哦,有点超重了!” End If If (weight <= (high - 110) + (high - 110) * 0.3) And (weight > (high - 110) + (high - 110) * 0.2) Then
-1 , x<0
分支结构1
if _x_<_0_ then 分支结构2 _y_=_-1_
else if _x_=_0_ then _y_=_0_ else _y_=_1_ end if
end if print y
分支嵌套——双分支嵌套双分支
if 条件1 then
语句1
else
分
if 条件2 then
else 语句B
end if
if 条件1 then
语句1
else
if 条件2 then
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
，比 较大小，输出较大 的数？
a>b
练一练
2、 输入一个数到变量a，输出它的 绝对值（不用绝对值函数）
分析：1、分析题意 2、画流程图 3、写程序
练一练
a = inputbox("")
if
____ a<0
a=-a ____
then
end if
print a
任务
选择结构包括： if语句和select case语句。
学一学
if 条件 then 语句A end if
If和end if 要成对出现
学一学
实现QQ登录程序。输入密码，正确 则登录成功。
（要求：用if语句的单分支结构实现）
if 密码正确 ____ then
登录成功 ____
end if
学一学
if 条件 then 语句A end if
购买地铁车票，若乘1—4站，3元/位； 若乘5—9站，4元/位；若乘10站以上，5 元/位；输入人数person、站数n，输出应 付款pay。
分析：1、分析题意 2、画流程图 3、写程序
任务
谢谢 大家 !
If和end if 要成对出现
if
条件 then 语句A else 语句B end if
学一学
密码 then if a= ____
a=密码
登录成功 ____ else 密码错误 ____ end if
练一练
1、读下面的程序，看看能实现什么功能？
a = inputbox("") b = inputbox("") if a>b ____ print ____ a else print b ____ end if then
VB中的选择语句 ——IF语句
授课对象：高一年级 制作者：杨萍（114100040）
想一想
大家都玩过QQ吧？在登录QQ的时候 要输入密码。如果密码是一位数，那你 就要从0到9之间选择一位，正确则可以 登录，如果错误就会提示：密码错误请 重新输入。
这就是一种选择。
学一学
选择结构：根据所给定的条 件，来决定从各个实际出发，执 行可能的操作过程的结构。
a>b
练一练
2、 输入一个数到变量a，输出它的 绝对值（不用绝对值函数）
分析：1、分析题意 2、画流程图 3、写程序
练一练
a = inputbox("")
if
____ a<0
a=-a ____
then
end if
print a
任务
选择结构包括： if语句和select case语句。
学一学
if 条件 then 语句A end if
If和end if 要成对出现
学一学
实现QQ登录程序。输入密码，正确 则登录成功。
（要求：用if语句的单分支结构实现）
if 密码正确 ____ then
登录成功 ____
end if
学一学
if 条件 then 语句A end if
购买地铁车票，若乘1—4站，3元/位； 若乘5—9站，4元/位；若乘10站以上，5 元/位；输入人数person、站数n，输出应 付款pay。
分析：1、分析题意 2、画流程图 3、写程序
任务
谢谢 大家 !
If和end if 要成对出现
if
条件 then 语句A else 语句B end if
学一学
密码 then if a= ____
a=密码
登录成功 ____ else 密码错误 ____ end if
练一练
1、读下面的程序，看看能实现什么功能？
a = inputbox("") b = inputbox("") if a>b ____ print ____ a else print b ____ end if then
VB中的选择语句 ——IF语句
授课对象：高一年级 制作者：杨萍（114100040）
想一想
大家都玩过QQ吧？在登录QQ的时候 要输入密码。如果密码是一位数，那你 就要从0到9之间选择一位，正确则可以 登录，如果错误就会提示：密码错误请 重新输入。
这就是一种选择。
学一学
选择结构：根据所给定的条 件，来决定从各个实际出发，执 行可能的操作过程的结构。