福建省计算机二级Access设计二总结之选择结构.docx

福建省计算机二级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