vb选择结构selectWord格式文档下载.docx
- 文档编号:20330900
- 上传时间:2023-01-22
- 格式:DOCX
- 页数:12
- 大小:19.13KB
vb选择结构selectWord格式文档下载.docx
《vb选择结构selectWord格式文档下载.docx》由会员分享,可在线阅读,更多相关《vb选择结构selectWord格式文档下载.docx(12页珍藏版)》请在冰豆网上搜索。
5、InputBox函数
(1)简单格式
InputBox("
提示信息"
(2)使用格式(赋值语句)
变量=InputBox("
(3)功能:
从键盘上接受一个数据,然后赋值给某个变量(即读入一个任意值,保存到某变量中。
(4)用InputBox函数输入的数据默认为字符型,但由于赋值语句的特点“右边服从左边”,通常会自动转换成相应类型值之后再赋值给变量。
例如:
'
a,b不定义就使用,被认为是变体型
b=InputBox(请输入一个整数:
bThenPrintb,a
=aThenPrinta,b
输入的是“9”和“12”
则会被当成字符串"
9"
和字符串"
12"
,赋值给a和b,而字符串按其ASCII码值比较大小(字典序)。
因此,“变量最好先定义再使用”
二、双分支if语句
语句块1
Else
语句块2
[2]
If表达式Then语句块1Else语句块2
2、功能
3、说明
格式[1]中Else独立占一行!
4、举例
改写上例:
OptionExplicit
Dima%,b%
Printb,a
Else
Printa,b
[法二]让a中存放较小数,b中存放较大数。
Dima%,b%,tAsInteger
bThen'
交换二者的值
t=a
a=b
b=t
*重要基本算法:
两数交换借助第三数。
类似于两水杯交换其中的内容,借助第三个空杯子,最终空杯子依然是空的。
但是,中间变量t却保存了a或b的值。
只是没用。
例2:
任意读入3个整数,从小到大输出这3个数。
[算法提示:
让a中放最小数,c中放最大数]
Dima%,b%,c%,t%
A=inputbox(“:
”)
b=inputbox(“:
c=inputbox(“:
ifa>
bthen
t=a:
a=b:
b=t
endif
cthen
a=c:
c=t
ifb>
t=b:
b=c:
printa;
b;
c
三、多分支if语句
1.格式
If表达式1then
Elseif表达式2then
Elseif表达式3then
语句块3
……
语句块n
Endif
2.功能
3.说明
(1)各“表达式”通常为关系(>
、=等)表达式、逻辑表达式(Not、And、Or)
(2)Else子句可以省略(但一般不省),
省略之后可能一个分支都不被执行。
(3)各分支中最多只会有一个分支被执行到。
4.应用举例
例2、商场打折:
满500元打5折;
满300不足500打6折;
满200不足300打7折;
满100不足200打8折;
其余不打折。
请为收银员编程,输出顾客应付款。
DimcostAsSingle,xAsSingle
x表示商品原价
x=InputBox("
读入原价"
Ifx>
=500Then
cost=x*0.5
ElseIfx>
=300Then
cost=x*0.6
=200Then
cost=x*0.7
=100Then
cost=x*0.8
cost=x
Print"
应付款:
;
cost
[注意:
对变量的判断,最好按从小到大或从大到小的顺序书写。
]
例3、批发铅笔:
满500支打5折;
每支铅笔原价1元。
[法一:
同前例]
[法二:
用SelectCase语句]
四、SelectCase语句(多分支)
[格式一]
Selectcase表达式
Case表达式1:
语句块1
Case表达式2:
语句块2
Case表达式3:
语句块3
CaseElse:
语句块n
EndSelect
[格式二]
Selectcase表达式
Case表达式1
Case表达式2
Case表达式3
CaseElse
3.说明:
(1)Selectcase后的表达式通常为常量、变量或算术表达式
(2)而Case后的若干表达式只能是如下几种形式:
①单个常量(对应“Selectcase后的表达式”与该常量是否相等的判断)
②多个常量,两两之间用逗号隔开(对应“Selectcase后的表达式”与该多个常量中的某一个是否相等的判断)
③常量1To常量2
(对应“常量1≤‘Selectcase后的表达式’≤常量2”的判断)
④Is关系运算符数值
(对应
‘Selectcase后的表达式’>
数值或
‘Selectcase后的表达式’<
‘Selectcase后的表达式’≥数值或
‘Selectcase后的表达式’≤数值或
‘Selectcase后的表达式’=数值或
>
数值
【判断“selectcase后的表达式”是否落在某case后所表示的范围内。
各case分支后的范围不要重合,更不能矛盾。
】
某商场刚开业,前10名或1000名之后打6折;
第18名、28名打5折;
第888名打1折;
100名~200名打5.5折;
其余打8折。
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
cost=yj*0.8
您是第"
xh;
"
号顾客,应付款打折后:
由两数乘积是否为0,判断两数为0的情况。
Dimx%,y%
x:
y=InputBox("
y:
SelectCasex*y
Case0'
与CaseIs=0等价
x和y至少有一个为0"
CaseIs<
0
Print"
x和y都不为0"
(3)CaseElse分支可以省略,但省略后可能一个分支都不被执行。
(4)“格式一”一般在各“语句块”为单个语句时用
(5)当SelectCase后的表达式的值落在某表达式范围内时,就执行其所对应分支
改写前例1、“读入成绩代号(A~E),输出对应分数范围。
”
DimfsAsString
fs=InputBox("
读入成绩A~E!
SelectCasefs
Case"
A"
:
=90!
B"
80-89"
C"
70-79"
D"
60-69"
E"
<
60"
输入有错!
!
改写前例3“铅笔批发”
DimnAsInteger'
n表示铅笔支数
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
cost=n
购买"
n;
支铅笔应付款:
cost;
元"
补充:
对新文件的保存,只需按“保存”按钮,按出现的两个对话框的提示保存窗体(.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
[注意]嵌套时,外层一定要完整地包住内层。
判断闰年
DimyAsInteger
DimflagAsBoolean
输入年份:
IfyMod4=0Then
IfyMod100=0Then
IfyMod400=0Then
flag=True
flag=False
Ifflag=TrueThen
Printy;
是闰年"
不是闰年"
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- vb 选择 结构 select