vb选择结构select.docx
- 文档编号:5191686
- 上传时间:2022-12-13
- 格式:DOCX
- 页数:12
- 大小:19.03KB
vb选择结构select.docx
《vb选择结构select.docx》由会员分享,可在线阅读,更多相关《vb选择结构select.docx(12页珍藏版)》请在冰豆网上搜索。
vb选择结构select
选择结构
一、单分支的if语句
1、格式
[1]If表达式Then
语句块
Endif
[2]If表达式Then语句块
2、功能:
3、说明:
(1)“表达式”一般为关系或逻辑表达式。
(2)“语句块”可以是任意多个语句,只不过“格式[2]”中的多个语句之间必须用:
隔开,书写在同一行。
此时,“Endif”可以省略。
4、举例:
例1:
任意读入两个整数,从小到大输出这两个数。
PrivateSubCommand1_Click()
DimaAsInteger,b%
a=InputBox("请输入一个整数:
")
b=InputBox("请输入一个整数:
")
Ifa>bThen
Printb;a
EndIf
Ifb>=aThen
Printa;b
EndIf
EndSub
5、InputBox函数
(1)简单格式
InputBox("提示信息")
(2)使用格式(赋值语句)
变量=InputBox("提示信息")
(3)功能:
从键盘上接受一个数据,然后赋值给某个变量(即读入一个任意值,保存到某变量中。
(4)用InputBox函数输入的数据默认为字符型,但由于赋值语句的特点“右边服从左边”,通常会自动转换成相应类型值之后再赋值给变量。
例如:
PrivateSubCommand1_Click()
'a,b不定义就使用,被认为是变体型
a=InputBox("请输入一个整数:
")
b=InputBox(请输入一个整数:
")
Ifa>bThenPrintb,a
Ifb>=aThenPrinta,b
EndSub
输入的是“9”和“12”
则会被当成字符串"9"和字符串"12",赋值给a和b,而字符串按其ASCII码值比较大小(字典序)。
因此,“变量最好先定义再使用”
二、双分支if语句
1、格式
[1]If表达式Then
语句块1
Else
语句块2
Endif
[2]
If表达式Then语句块1Else语句块2
2、功能
3、说明
格式[1]中Else独立占一行!
4、举例
改写上例:
OptionExplicit
PrivateSubCommand1_Click()
Dima%,b%
a=InputBox("请输入一个整数:
")
b=InputBox("请输入一个整数:
")
Ifa>bThen
Printb,a
Else
Printa,b
EndIf
EndSub
[法二]让a中存放较小数,b中存放较大数。
OptionExplicit
PrivateSubCommand1_Click()
Dima%,b%,tAsInteger
a=InputBox("请输入一个整数:
")
b=InputBox("请输入一个整数:
")
Ifa>bThen'交换二者的值
t=a
a=b
b=t
EndIf
Printa,b
EndSub
*重要基本算法:
两数交换借助第三数。
类似于两水杯交换其中的内容,借助第三个空杯子,最终空杯子依然是空的。
但是,中间变量t却保存了a或b的值。
只是没用。
例2:
任意读入3个整数,从小到大输出这3个数。
[算法提示:
让a中放最小数,c中放最大数]
OptionExplicit
PrivateSubCommand1_Click()
Dima%,b%,c%,t%
A=inputbox(“:
”)
b=inputbox(“:
”)
c=inputbox(“:
”)
ifa>bthen
t=a:
a=b:
b=t
endif
ifa>cthen
t=a:
a=c:
c=t
endif
ifb>cthen
t=b:
b=c:
c=t
endif
printa;b;c
EndSub
三、多分支if语句
1.格式
If表达式1then
语句块1
Elseif表达式2then
语句块2
Elseif表达式3then
语句块3
……
Else
语句块n
Endif
2.功能
3.说明
(1)各“表达式”通常为关系(>、=等)表达式、逻辑表达式(Not、And、Or)
(2)Else子句可以省略(但一般不省),
省略之后可能一个分支都不被执行。
(3)各分支中最多只会有一个分支被执行到。
4.应用举例
例2、商场打折:
满500元打5折;满300不足500打6折;满200不足300打7折;满100不足200打8折;其余不打折。
请为收银员编程,输出顾客应付款。
OptionExplicit
PrivateSubCommand1_Click()
DimcostAsSingle,xAsSingle
'x表示商品原价
x=InputBox("读入原价")
Ifx>=500Then
cost=x*0.5
ElseIfx>=300Then
cost=x*0.6
ElseIfx>=200Then
cost=x*0.7
ElseIfx>=100Then
cost=x*0.8
Else
cost=x
EndIf
Print"应付款:
";cost
EndSub
[注意:
对变量的判断,最好按从小到大或从大到小的顺序书写。
]
例3、批发铅笔:
满500支打5折;满300不足500打6折;满200不足300打7折;满100不足200打8折;其余不打折。
每支铅笔原价1元。
请为收银员编程,输出顾客应付款。
[法一:
同前例]
[法二:
用SelectCase语句]
四、SelectCase语句(多分支)
1.格式
[格式一]
Selectcase表达式
Case表达式1:
语句块1
Case表达式2:
语句块2
Case表达式3:
语句块3
……
CaseElse:
语句块n
EndSelect
[格式二]
Selectcase表达式
Case表达式1
语句块1
Case表达式2
语句块2
Case表达式3
语句块3
……
CaseElse
语句块n
EndSelect
2.功能
3.说明:
(1)Selectcase后的表达式通常为常量、变量或算术表达式
(2)而Case后的若干表达式只能是如下几种形式:
①单个常量(对应“Selectcase后的表达式”与该常量是否相等的判断)
②多个常量,两两之间用逗号隔开(对应“Selectcase后的表达式”与该多个常量中的某一个是否相等的判断)
③常量1To常量2
(对应“常量1≤‘Selectcase后的表达式’≤常量2”的判断)
④Is关系运算符数值
(对应
‘Selectcase后的表达式’>数值或
‘Selectcase后的表达式’<数值或
‘Selectcase后的表达式’≥数值或
‘Selectcase后的表达式’≤数值或
‘Selectcase后的表达式’=数值或
‘Selectcase后的表达式’<>数值
)
【判断“selectcase后的表达式”是否落在某case后所表示的范围内。
各case分支后的范围不要重合,更不能矛盾。
】
例1:
某商场刚开业,前10名或1000名之后打6折;第18名、28名打5折;第888名打1折;100名~200名打5.5折;其余打8折。
PrivateSubCommand1_Click()
DimyjAsSingle,xhAsInteger
DimcostAsSingle
yj=InputBox("输入原价:
")
xh=InputBox("输入序号:
")
SelectCasexh
Case888:
cost=yj*0.1
Case18,28:
cost=yj*0.5
Case100To200:
cost=yj*0.55
CaseIs>=1000,Is<=10
cost=yj*0.6
CaseElse:
cost=yj*0.8
EndSelect
Print"您是第";xh;"号顾客,应付款打折后:
";cost
EndSub
例2:
由两数乘积是否为0,判断两数为0的情况。
PrivateSubCommand1_Click()
Dimx%,y%
x=InputBox("x:
")
y=InputBox("y:
")
SelectCasex*y
Case0'与CaseIs=0等价
Print"x和y至少有一个为0"
CaseIs<>0
Print"x和y都不为0"
EndSelect
EndSub
(3)CaseElse分支可以省略,但省略后可能一个分支都不被执行。
(4)“格式一”一般在各“语句块”为单个语句时用
(5)当SelectCase后的表达式的值落在某表达式范围内时,就执行其所对应分支
改写前例1、“读入成绩代号(A~E),输出对应分数范围。
”
OptionExplicit
PrivateSubCommand1_Click()
DimfsAsString
fs=InputBox("读入成绩A~E!
")
SelectCasefs
Case"A":
Print">=90!
"
Case"B":
Print"80-89"
Case"C":
Print"70-79"
Case"D":
Print"60-69"
Case"E":
Print"<60"
CaseElse:
Print"输入有错!
!
!
"
EndSelect
EndSub
改写前例3“铅笔批发”
OptionExplicit
PrivateSubCommand1_Click()
DimnAsInteger'n表示铅笔支数
DimcostAsSingle
n=InputBox("输入铅笔支数")
SelectCasen\100
CaseIs>=5:
cost=n*0.5
Case3,4:
cost=n*0.6
Case2:
cost=n*0.7
Case1:
cost=n*0.8
CaseElse:
cost=n
EndSelect
Print"购买";n;"支铅笔应付款:
";cost;"元"
EndSub
补充:
对新文件的保存,只需按“保存”按钮,按出现的两个对话框的提示保存窗体(.frm)、工程文件(.vbp)。
*对老文件的重新保存(或改变其名字、或改变其位置),
(1)选择“文件”“工程另存为”,在弹出的对话框中修改.vbp文件的主名或位置;
(2)选择“文件”“….frm另存为”,在弹出的对话框中修改.frm文件的主名或位置。
*文本框的使用:
能帮助完成输入、输出!
1、属性
(1)Text属性有一个默认值,建议在设计时就删除
(2)Name(名称)属性默认为Text1、
Text2……
没有Caption!
2、用于输入:
与赋值语句合用。
[格式]
变量名=文本框的Name属性值.Text
[说明]
(1)“.Text”可以省
(2)文本框中输入的数据依然默认为字符型。
(3)与InputBox函数类似,通常一次读入一个值给一个变量。
(4)执行程序后,先往文本框中输入数据,然后再触发事件(单击命令按钮等)。
3、用于输出
与赋值语句合用。
[格式]
文本框的Name属性值.Text=表达式
[说明]
(1)MultiLine属性为True,则可多行显示(却一般默认为False)。
(2)vbCrLf是系统常量,功能是“回车且换行”,可以用“Chr(10)&Chr(13)”
(3)Chr是一个系统函数,参数是0-127(0-255)整数,对应ASCII码表里所有字符的ASCII码值。
功能是将该ASCII码值对应的字符求出来。
Chr(65)与”A”等价
(4)&是字符串连接符:
“Hello,”&“XiaoLi”
“Hello,XiaoLi”
&左右侧必须各空一格。
(5)+也可以做字符串连接符:
字符串1+字符串2
以上使用格式是“+”做连接符的最好写法。
否则,要记很多规则。
(6)&总是将不是字符串的对象变成字符串后连接。
(7)+的某一个运算对象若为数值型(或可以转换成数值型True等),而另一个对象即使是数字字符串,会被转换成数值,进行加法运算。
但若是不能转成合法数值的字符串,则报错!
*标签控件(Lable)
一般与文本框等控件合用,专门用来标识说明。
(1)Name属性默认为Lable1、Lable2……
(2)Caption属性用来标识说明。
五、用选择语句的嵌套完成多分支结构的描述
……
x=Text1
Ifx>=500Then
cost=x*0.5
Else
Ifx>=300Then
cost=x*0.6
Else
Ifx>=200Then
cost=x*0.7
Else
Ifx>=100Then
cost=x*0.8
Else
cost=x
EndIf
EndIf
EndIf
EndIf
[注意]嵌套时,外层一定要完整地包住内层。
判断闰年
PrivateSubCommand1_Click()
DimyAsInteger
DimflagAsBoolean
y=InputBox("输入年份:
")
IfyMod4=0Then
IfyMod100=0Then
IfyMod400=0Then
flag=True
Else
flag=False
EndIf
Else
flag=True
EndIf
Else
flag=False
EndIf
Ifflag=TrueThen
Printy;"是闰年"
Else
Printy;"不是闰年"
EndIf
EndSub
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- vb 选择 结构 select
![提示](https://static.bdocx.com/images/bang_tan.gif)