福建省计算机二级Access设计二总结之选择结构Word格式.docx
- 文档编号:20781264
- 上传时间:2023-01-25
- 格式:DOCX
- 页数:13
- 大小:216.95KB
福建省计算机二级Access设计二总结之选择结构Word格式.docx
《福建省计算机二级Access设计二总结之选择结构Word格式.docx》由会员分享,可在线阅读,更多相关《福建省计算机二级Access设计二总结之选择结构Word格式.docx(13页珍藏版)》请在冰豆网上搜索。
If条件Then语句序列1
格式2:
If条件Then
语句序列1
EndIf
2.掌握双分支结构程序设计
If条件Then语句序列1Else语句序列2
语句序列1
Else
语句序列2
1、火车站行李费的收费标准是50kg以内(包括50kg)0.2元/kg,超过部分为0.5元/kg,打开窗体“行李托运费计算”,对“计算”按钮编写事件代码,根据输入的行李重量计算出应付的行李费,对“清除”按钮编写事件代码,点击此按钮清除两个文本框的内容,对“退出”按钮编写事件代码,点击此按钮退出该窗体。
Dimx!
y!
x=Text0.Value
Ifx<
=50Then
y=x*0.2
Else
y=50*0.2+(x-50)*0.5
EndIf
Text2.Value=y
2、打开窗体“判断是否闰年”,对“判断是否闰年”按钮编写事件代码,根据文本框text1中输入的年份,判断该年份是否闰年,并将结果显示在标签label1中,判断是否闰年的标准为:
如果年份能被4整除、但不能被100整除或者能被400整除就是闰年。
Dimx%,y$
x=Text1.Value
If(xMod4=0AndxMod100<
>
0)OrxMod400=0Then
y=x&
"
是闰年"
不是闰年"
3、打开窗体“判断整除与否”,对“判断”按钮编写事件代码,在文本框Text1中输入一个数,单击“判断”按钮判断该数能否同时被3和7整除,并将结果显示在Label1标签控件中。
IfxMod3=0AndxMod7=0Then
能同时整除3和7"
不能同时整除3和7"
Label1.Caption=y
4、打开窗体“判断奇偶”,对“判断奇偶”按钮编写事件代码,根据文本框text1中输入的整数,判断其奇偶性,并将结果显示在标签label1中。
IfxMod2=1Then
是奇数"
是偶数"
5、打开窗体“判断自然数”,对“判断奇偶”按钮编写事件代码,如果text1中输入的不是自然数,则label1中显示“请输入一个自然数”,否则,判断文本框text1中整数的奇偶性,结果显示在label1中。
ifx>
=0then
y="
请输入一个自然数"
Endif
6、
Dimx%,a%,b%,c%y$
=100andx<
=999then
a=xmod10
b=x\10mod10
c=x\100
Ifx=x^3+b^3+c^3Then
是水仙花数"
不是水仙花数"
Y=”输入错误”
3.掌握多分支结构程序设计
If条件1Then
[语句序列1]
[ElseIf条件2Then
[语句序列2]]
……
[ElseIf条件nThen
[语句序列n]]
[Else
[语句序列n+1]]
SelectCase测试表达式
Case值列表1
Case值列表2
…
[Case值列表n
[CaseElse
EndSelect
1、打开“成绩等级”窗体,实现以下功能:
在文本框Text1中输入一个百分制成绩,单击“判断”命令按钮Command1后,在文本框Text2中显示对应的成绩等级;
若单击“清除”命令按钮Command2,则百分制成绩和等级清空。
等级判断规则为:
输入的成绩在90~100分为“A”,80~89分为“B”,70~79分为“C”,60~69分为“D”,0~59分为“E”。
法一:
:
DimaAsInteger,sAsString
a=Text1.Value
SelectCasea
Case90To100
s="
A"
Case80To89
B"
Case70To79
C"
Case60To69
D"
CaseElse
E"
Text2.Value=s
EndSub
法二:
Ifa>
=90Then
ElseIfa>
=80Then
=70Then
=60Then
Else
法三:
DimaAsInteger,SAsString
CaseIs>
=90
S="
=80
=70
=60
CaseElse
Case
Text2.Value=S
2、打开“计算器”窗体,实现以下功能:
在文本框Text1、Text2中输入两个运算数,从单选选项组Frame1中选择一个运算符,单击“=”命令按钮Command1后,在文本框Text13中显示结果(当进行除法运算时,若除数为0,则在文本框Text3中显示“除数不能为0!
”)。
DimaAsSingle,bAsSingle,s
DimcAsString
b=Text2.Value
c=Frame1.Value
SelectCasec
Case1
s=a+b
Case2
s=a-b
Case3
s=a*b
Case4
Ifb=0Then
除数不能为0"
s=a/b
ifc=1then
elseifc=2then
elseifc=3then
elseifc=4then
3、打开“四则运算”窗体,实现以下功能:
在文本框Text1、Text2中输入两个运算数,从组合框combo1中选择一个运算符,单击“=”命令按钮Command1后,在文本框Text13中显示结果,单击“退出”命令按钮Command2后,则关闭窗体,
注:
若操作数未输入,或运算符未选择,或进行除法运算时除数为0,均应在消息框中给出相关提示,并将text3清空。
DimaAsSingle,bAsSingle,sAsSingle
c=Combo1.Value
Case"
+"
-"
*"
/"
ifc="
then
elseifc="
elseifc="
Endif
4、
Dimx!
y!
Ifx>
=2000Then
y=x*0.7
Elseifx>
=1000Then
y=x*0.8
Elseifx>
=900Then
y=x*0.9
y=x
Text2.Value
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 福建省 计算机 二级 Access 设计 总结 选择 结构