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