二级Access考试程序设计题技巧.docx

二级Access考试程序设计题技巧.docx

《二级Access考试程序设计题技巧.docx》由会员分享，可在线阅读，更多相关《二级Access考试程序设计题技巧.docx（15页珍藏版）》请在冰豆网上搜索。

二级Access考试程序设计题技巧

二级Access考试程序设计题技巧

1、给输入的内容给出判断：

练习册六：

在考生文件夹下打开Access数据库prog0214.mdb，在窗体FormGrade中，编写“等级”按钮的单击事件处理代码，实现如下功能：

根据下表，将由文本框Text1输入成绩对应的等级显示有文本框Text2中。

DimaAsInteger

DimsAsString

a=Text1

Ifa>=0Anda<=100Then

Ifa>=90Then

s="A"

ElseIfa>=75Then

s="B"

ElseIfa>=60Then

s="C"

Else

s="D"

EndIf

Text2=s

EndIf

练习册八：

在考生文件夹下打开Access数据库prog0216.mdb。

在窗体FormNumber中，编写“位数”按钮的单击事件处理代码，实现如下功能：

在文本框Text1中输入一个不超过4位的正整数，判断它的位数，结果显示在文本框Text2中。

DimaAsInteger,bAsInteger

a=Text1

Ifa>0Anda<1000Then

Ifa>=100Then

b=3

ElseIfa>=10Thenb=2

Else

b=1

EndIf

EndIf

Text2=b

例1：

打开Access数据库“所用文件.mdb”。

要求编写窗体djzh上“成绩等级”按钮的单击事件处理代码，实现如下功能：

当成绩小于0或大于100，显示“非法数据”，否则按如下规则转换：

成绩≥85：

优秀

60≤成绩<85：

合格

成绩<60：

不合格

DimcjAsSingle,djAsString

cj=Text1.Value

SelectCasecj

Case85To100

dj="优秀"

Case60To84

dj="合格"

Case0To59

dj="不合格"

CaseElse

dj="非法数据"

EndSelect

Text2.Value=dj

例2：

打开Access数据库“所用文件.mdb”。

要求编写窗体leapyear上“是否闰年”按钮的单击事件处理代码，实现如下功能：

输入一个日期，单击“是否闰年”按钮，根据判断结果显示“是闰年”或“不是闰年”。

（参见P218字符串转换日期函数DateValue）

闰年的条件是：

年份能被4整除但不能被100整除，或能被400整除。

DimyAsInteger

y=Year（DateValue（Text1.Value））

If（yMod4=0AndyMod100<>0）OryMod400=0Then

Text2.Value="是闰年"

Else

Text2.Value="不是闰年"

EndIf

例3：

打开Access数据库“所用文件.mdb”。

要求编写窗体FrmPrime上“判断素数”按钮的单击事件处理代码，判断文本框text1中自然数是否为素数（只能被1和本身整除的自然数），并将判断结果显示在标签Label1中。

DimiAsInteger,jAsInteger,xAsInteger,pdAsString

x=Text1

Fori=2Tox

pd="素数"

Forj=2ToSqr（i）

IfiModj=0Then

pd="不是素数"

EndIf

Nextj

Nexti

Label2.Caption=pd

练习册三：

在考生文件夹下打开Access数据库prog0226.mdb，在窗体FormNum中，编写“判断”按钮的Click事件代码，实现如下功能：

根据输入的字符判断是否为数字，若是显示“Yes”，否则显示“No”。

DimaAsString

a=Text1

Ifa>="0"Anda<="9"Then

Text2="Yes"

Else

Text2="No"

EndIf

例4：

打开Access数据库“所用文件.mdb”。

要求编写窗体Judge上“判断”按钮的单击事件处理代码，判断文本框text1中字符是否是数字，并将判断结果显示在标签Label1中。

DimCAsString

C=Text1.Value

IfC>="0"AndC<="9"Then

Label1.Caption=C&"是数字!

"

Else

Label1.Caption=C&"是其它字符!

"

EndIf

例5：

打开Access数据库“所用文件.mdb”。

要求编写窗体qsws的“求三位数字”按钮的单击事件处理代码，实现如下功能：

在text1输入一个三位正整数，单击“求三位数字”按钮，分别在text2、text3、text4上显示其百位数字、十位数字和个位数字；若输入的整数不足三位，则退出窗体。

a=Text1.Value

Ifa<100Ora>999Then

DoCmd.Close

Else

gw=Int（a/1）Mod10

sw=Int（a/10）Mod10

bw=Int（a/100）Mod10

Text2.Value=bw

Text3.Value=sw

Text4.Value=gw

EndIf

2、对输入的两个值进行运算或判断：

练习册一：

在考生文件夹下打开Access数据库prog0224.mdb，按图在窗体FormJudge中，编写“判断”按钮的Click事件代码，实现如下功能：

根据输入的三条边长a、b、c，判断能否构成三角形，如果可以，显示“Yes”，否则显示“No”。

DimaAsInteger,bAsInteger,cAsInteger

a=Text1

b=Text2

c=Text3

If（a+b）>cAnd（a+c）>bAnd（b+c）>aThen

Text4="Yes"

Else

Text4="No"

EndIf

例1：

打开Access数据库“所用文件.mdb”。

要求编写窗体Compare上“比较”按钮的单击事件处理代码，判断文本框Text1、Text2中两个数的大小，将比较结果（ab）显示在标签Label1中。

DimaAsInteger,bAsInteger

a=Text1.Value

b=Text2.Value

Ifa>bThen

Label1.Caption="a>b"

ElseIfa=bThen

Label1.Caption="a=b"

Else

Label1.Caption="a

EndIf

例2：

打开Access数据库“所用文件.mdb”。

要求编写窗体sumnum上“求和”按钮的单击事件处理代码，实现计算区间[M,N]中所有整数的和，M和N的值分别于文本框Text1、Text2中输入，结果显示在标签Label1中。

DimmAsInteger,nAsInteger,sumAsLong

m=Text1.Value

n=Text2.Value

sum=0

Fori=mTon

sum=sum+i

Nexti

Label1.Caption=sum

3、对输入的值进行变化

练习册七：

在考生文件夹下打开Access数据库prog0215.mdb。

在窗体FormTime中，编写“12小时制”按钮的单击事件处理代码，实现如下功能：

按文本框Text1中输入24小时制的时间，转换为12小时制时间，结果显示在文本框Text2中。

DimaAsInteger,bAsString

a=hour（Text1）

Ifa>=0Anda<=24Then

Ifa<12Then

b=Text1&"AM"

Else

b=（hour（Text1）-12）&":

"&minute（Text1）&"PM"

EndIf

Text2=b

EndIf

练习册五：

在考生文件夹下打开Access数据库prog0228.mdb。

在窗体FormPick中，编写“提取”按钮的Click事件代码，实现如下功能：

根据输入的字符串s，顺序提取s中的数字并显示在Label2中。

DimsAsString,aAsString,bAsString

DimnAsInteger

s=Trim（Text1.Value）

n=Len（s）

Fori=1Ton

a=Mid（s,i,1）

Ifa>="0"Anda<="9"Then

b=b&a

EndIf

Nexti

Label2.Caption=b

例1：

打开Access数据库“所用文件.mdb”。

要求编写窗体forminvt中的“逆序”按钮的单击事件处理代码，将文本框Text1中输入的字符串逆序显示在文本框Text2中。

DimsAsString,iAsInteger,aAsString

s=Text1

i=1

j=Len（s）

Whilei

a=Mid（s,i,1）

Mid（s,i,1）=Mid（s,j,1）

Mid（s,j,1）=a

i=i+1

j=j-1

Wend

Text2=s

4、对输入的数值进行计算

练习册二：

在考生文件夹下打开Access数据库prog0225.mdb，在窗体FormSec中，编写“Y=”按钮的Click事件代码，实现如下功能：

按输入的X值，根据以下分段函数计算Y的值。

x=Text1

Ifx>=0Then

y=x^2+8

Else

y=2*x-5

EndIf

Text2=y

练习册十：

在考生文件夹下打开Access数据库prog0218.mdb。

在窗体FormChange中，编写“转化”按钮的单击事件处理代码，实现如下功能：

分别在在文本框Text1和Text2中输入[1，9]区间内的整数数n，a，将它们转化为数值aaaaaaaa（n个a），结果显示在文本框Text3中。

DimaAsInteger,bAsString,cAsString

a=Text1

b=Text2

If（（a>=1Anda<=9）And（b>=1Andb<=9））Then

c=String（a,b）

Text3=c

EndIf

例1：

打开Access数据库“所用文件.mdb”。

要求编写窗体calc上“计算”按钮的单击事件处理代码，实现如下功能：

根据文本框Text1中输入的X值，计算如下分段函数的值，结果显示在Text2中。

DimxAsSingle,yAsSingle

x=Text1.Value

SelectCasex

CaseIs<=-10

y=2*（Sin（x）+1）

CaseIs<=10

y=（Abs（x）-5）/3

CaseElse

y=x/7-8

EndSelect

Text2.Value=y

例2：

打开Access数据库“所用文件.mdb”。

要求编写窗体section上命令按钮“Y=”的单击事件处理代码，实现对下列分段函数的计算，X的值于文本框Text1输入，Y值显示在标签Label1中。

DimxAsSingle,yAsSingle

x=Text1.Value

Ifx>=10Then

y=x^2+1

Else

y=x+1

EndIf

Label1.Caption=y

例3：

打开Access数据库“所用文件.mdb”。

要求编写窗体areaorgirth上的组合款的change事件处理代码，实现依据组合框中选择“计算面积”和“计算周长”，计算圆的面积或周长，圆的半径由文本框Text1输入，计算结果显示在标签Text2中。

DimrAsSingle,cAsSingle

ConstPI=3.14159

r=Text1.Value

IfCombo1.Value="计算面积"Then

c=PI*r*r

Else

c=2*PI*r

EndIf

Text2.Value=c

例4：

打开Access数据库“所用文件.mdb”。

对窗体tstj，编写“计算”按钮的单击事件处理代码，实现如下功能：

（1）若两种商品的总计金额小于300，按原价付款，否则打九折；

（2）实际付款额四舍五入取整。

dj1=Text1.Value

sl1=Text2.Value

dj2=Text3.Value

sl2=Text4.Value

fke=dj1*sl1+dj2*sl2

Iffke>300Then

fke=fke*0.9

EndIf

Text5.Value=Round（fke,0）

5、利用循环遍历输入的字符或数字的每一位，做出运算或判断

练习册四：

在考生文件夹下打开Access数据库prog0227.mdb。

在窗体FormSum中，编写“求和”按钮的Click事件代码，实现如下功能：

根据输入的整数n，计算1+22+32+42+······+n2的值。

DimnAsInteger

DimsAsLong

n=Text1

s=0

Fori=1Ton

s=i^2+s

Nexti

Label2.Caption=s

例1：

打开Access数据库“所用文件.mdb”。

要求编写窗体szzh的“计算”按钮的单击事件处理代码，实现如下功能：

求一个三位正整数的各位数字之和，若输入的整数小于100或大于999，则显示“输入有误”。

DimnumAsInteger

num=Text1.Value

Ifnum>999Ornum<100Then

jg="输入有误"

Else

gw=Int（num/1）Mod10

sw=Int（num/10）Mod10

bw=Int（num/100）Mod10

jg=gw+sw+bw

EndIf

Text2.Value=jg

例2：

打开Access数据库“所用文件.mdb”。

要求编写窗体fszs的“非数字字符个数”按钮的单击事件处理代码，实现如下功能：

输入一个字符串，单击“非数字字符个数”按钮，统计字符串中包含的非数字字符个数（不计字符串前后的空格），并将结果显示在Text2文本框中。

s=Trim（Text1.Value）

n=Len（s）

js=0

Fori=1Ton

c=Mid（s,i,1）

IfNot（c>="0"Andc<="9"）Then

js=js+1

EndIf

Nexti

Text2.Value=js

练习册九：

在考生文件夹下打开Access数据库prog0217.mdb。

在窗体FormMult中，编写“计算”按钮的单击事件处理代码，实现如下功能：

在文本框Text1中输入一个偶数n（n<20），计算2*4*6*8*……*n的值，结果显示在文本框Text2中。

DimiAsInteger,aAsLong,nAsInteger

n=Text1

If（n<20）And（nMod2=0）Then

a=1

i=2

Whilei<=n

a=i*a

i=i+2

Wend

Text2=a

EndIf

例3：

打开Access数据库“所用文件.mdb”。

要求编写窗体CalChar上“统计”按钮的单击事件处理代码，实现如下功能：

在文本框Text1中输入一字符串，单击“统计”按钮，将在文本框Text2中显示该字符串的非空格字符的个数。

DimcountAsInteger,iAsInteger,sAsString,xAsString

count=0

s=Text1.Value

Fori=1ToLen（s）

x=Mid（s,i,1）

Ifx<>Space

（1）Then

count=count+1

EndIf

Nexti

Text2.Value=count

例4：

打开Access数据库“所用文件.mdb”。

要求编写窗体stfn上“偶数字符串”按钮的单击事件处理代码，实现如下功能：

在Text1中输入一个字符串，单击“偶数字符串”按钮，在Text2中显示删去其他字符后的偶数字符串。

DimsAsString,nAsInteger,iAsInteger

DimcAsString,zfcAsString

s=Text1.Value

n=Len（s）

zfc=""

Fori=1Ton

c=Mid（s,i,1）

Ifc>="0"Andc<="9"Then

IfcMod2=0Then

zfc=zfc+c

EndIf

EndIf

Nexti

Text2.Value=zfc

例5：

打开Access数据库“所用文件.mdb”。

要求编写窗体tjyw上“统计英文字母个数”按钮的单击事件处理代码，实现如下功能：

输入一个字符串，单击“统计英文字母个数”按钮，在Text2文本框中显示该字符串中英文字母的个数。

s=Text1.Value

n=Len（s）

js=0

Fori=1Ton

c=Mid（s,i,1）

Ifc>="a"Andc<="z"Orc>="A"Andc<="Z"Then

js=js+1

EndIf

Nexti

Text2.Value=js注：

如果题目改为统计非数字字符个数，则改为IfNot（c>="0"Andc<="9"）Then

例6：

打开Access数据库“所用文件.mdb”。

要求编写窗体factor上“因子个数”按钮的单击事件处理代码，实现如下功能：

输入一个正整数，单击“因子个数”按钮，显示该数的因子个数。

数n的因子是指除本身外能够整除n的数。

如6的因子有：

1，2，3；10的因子有：

1，2，5。

DimnumberAsInteger,countAsInteger,iAsInteger

number=Text1.Value

count=0

Fori=1Tonumber-1

IfnumberModi=0Then

count=count+1

EndIf

Nexti

Text2.Value=count

例7：

打开Access数据库“所用文件.mdb”。

要求编写窗体sszh上“计算”按钮的单击事件处理代码，实现如下功能：

计算从1到该数之间（含该数）的所有素数之和，结果显示在Text2中。

注：

素数是指只能被1和本身整除的数。

x=Text1.Value

s=0

Fori=2Tox

pd=True

Forj=2ToSqr（i）

IfiModj=0Then

pd=False

EndIf

Nextj

IfpdThen

s=s+i

EndIf

Nexti

Text2.Value=s

注：

题目改为统计1到该数之间所有素数的个数，则改为s=s+1

例8：

打开Access数据库“所用文件.mdb”。

要求编写窗体js3上“计算”按钮的单击事件处理代码，实现如下功能：

在文本框Text1中输入一个正整数后，单击“计算”按钮，计算1到该数之间（含该数）的奇数和，结果显示在Text2中。

a=Text1.Value

jsh=0

Fori=1Toa

IfiMod2<>0Then

jsh=jsh+i

EndIf

Nexti

Text2.Value=jsh

注：

如果题目改为偶数，则改为IfiMod2=0Then

例9：

打开Access数据库“所用文件.mdb”。

要求编写窗体qh2上“计算”按钮的单击事件处理代码，实现如下功能：

在文本框Text1中输入一个正整数，单击“计算”按钮，计算从1到该数之间（含该数）能被5整除的奇数之和，结果显示在Text2中。

a=Text1.Value

jsh=0

Fori=1Toa

IfiMod2<>0Then

IfiMod5=0Then

jsh=jsh+i

EndIf

EndIf

Nexti

Text2.Value=jsh

注：

题目如果改为被3整除的偶数之和，则改为IfiMod2=0Then和IfiMod3=0Then

例10：

打开Access数据库“所用文件.mdb”。

要求编写窗体calcexp上“计算”按钮的单击事件处理代码，实现计算等差数列：

1，2，…，N各项的和，数列最后一项N由文本框Text1中输入，计算结果显示在标签Label1中。

DimnAsInteger,sumAsInteger

n=Text1.Value

sum=n*1+n*（n-1）/2

Label1.Caption=sum

例11：

打开Access数据库“所用文件.mdb”。

要求编写窗体qh3上“计算”按钮的单击事件处理代码，实现如下功能：

在文本框Text1中输入一个3位正整数，单击“计算”按钮，计算从1到该数之间（含该数）个位数是6的整数之和，结果显示在Text2中。

a=Text1.Value

qh=0

Fori=1Toa

IfInt（i/1）Mod10=6Then

qh=qh+i

EndIf

Nexti

Text2.Value=qh

例1