二级Access考试程序设计题技巧Word格式文档下载.docx

二级Access考试程序设计题技巧Word格式文档下载.docx

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

60≤成绩<

85：

合格

成绩<

60：

不合格

DimcjAsSingle,djAsString

cj=Text1.Value

SelectCasecj

Case85To100

dj="

优秀"

Case60To84

合格"

Case0To59

不合格"

CaseElse

非法数据"

EndSelect

Text2.Value=dj

例2：

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

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

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

闰年的条件是：

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

DimyAsInteger

y=Year（DateValue（Text1.Value））

If（yMod4=0AndyMod100<

>

0）OryMod400=0Then

Text2.Value="

是闰年"

Else

不是闰年"

EndIf

例3：

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

DimiAsInteger,jAsInteger,xAsInteger,pdAsString

x=Text1

Fori=2Tox

pd="

素数"

Forj=2ToSqr（i）

IfiModj=0Then

不是素数"

Nextj

Nexti

Label2.Caption=pd

练习册三：

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

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

DimaAsString

="

0"

Anda<

9"

Then

Text2="

Yes"

No"

例4：

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

DimCAsString

C=Text1.Value

IfC>

AndC<

Label1.Caption=C&

"

是数字!

"

是其它字符!

例5：

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

在text1输入一个三位正整数，单击“求三位数字”按钮，分别在text2、text3、text4上显示其百位数字、十位数字和个位数字；

若输入的整数不足三位，则退出窗体。

a=Text1.Value

Ifa<

100Ora>

999Then

DoCmd.Close

gw=Int（a/1）Mod10

sw=Int（a/10）Mod10

bw=Int（a/100）Mod10

Text2.Value=bw

Text3.Value=sw

Text4.Value=gw

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

练习册一：

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

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

DimaAsInteger,bAsInteger,cAsInteger

b=Text2

c=Text3

If（a+b）>

cAnd（a+c）>

bAnd（b+c）>

aThen

Text4="

要求编写窗体Compare上“比较”按钮的单击事件处理代码，判断文本框Text1、Text2中两个数的大小，将比较结果（a<

b,a=b,a>

b）显示在标签Label1中。

b=Text2.Value

Ifa>

bThen

Label1.Caption="

a>

b"

ElseIfa=bThen

a=b"

a<

要求编写窗体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）

=24Then

Ifa<

12Then

b=Text1&

AM"

b=（hour（Text1）-12）&

:

&

minute（Text1）&

PM"

练习册五：

在考生文件夹下打开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）

b=b&

a

Label2.Caption=b

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

DimsAsString,iAsInteger,aAsString

s=Text1

i=1

j=Len（s）

Whilei<

j

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

Mid（s,j,1）=a

i=i+1

j=j-1

Wend

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

练习册二：

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

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

Ifx>

=0Then

y=x^2+8

y=2*x-5

Text2=y

练习册十：

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

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

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

DimaAsInteger,bAsString,cAsString

If（（a>

=1Anda<

=9）And（b>

=1Andb<

=9））Then

c=String（a,b）

Text3=c

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

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

DimxAsSingle,yAsSingle

x=Text1.Value

SelectCasex

CaseIs<

=-10

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

=10

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

y=x/7-8

Text2.Value=y

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

Ifx>

=10Then

y=x^2+1

y=x+1

Label1.Caption=y

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

DimrAsSingle,cAsSingle

ConstPI=3.14159

r=Text1.Value

IfCombo1.Value="

计算面积"

Then

c=PI*r*r

c=2*PI*r

Text2.Value=c

对窗体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

Text5.Value=Round（fke,0）

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

练习册四：

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

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

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

·

+n2的值。

DimsAsLong

n=Text1

s=0

s=i^2+s

Label2.Caption=s

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

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

DimnumAsInteger

num=Text1.Value

Ifnum>

999Ornum<

100Then

jg="

输入有误"

gw=Int（num/1）Mod10

sw=Int（num/10）Mod10

bw=Int（num/100）Mod10

jg=gw+sw+bw

Text2.Value=jg

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

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

n=Len（s）

js=0

Fori=1Ton

c=Mid（s,i,1）

IfNot（c>

Andc<

）Then

js=js+1

Text2.Value=js

练习册九：

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

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

在文本框Text1中输入一个偶数n（n<

20），计算2*4*6*8*……*n的值，结果显示在文本框Text2中。

DimiAsInteger,aAsLong,nAsInteger

If（n<

20）And（nMod2=0）Then

a=1

i=2

=n

a=i*a

i=i+2

Text2=a

要求编写窗体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

Text2.Value=count

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

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

DimsAsString,nAsInteger,iAsInteger

DimcAsString,zfcAsString

zfc="

Ifc>

IfcMod2=0Then

zfc=zfc+c

Text2.Value=zfc

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

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

s=Text1.Value

js=0

a"

z"

Orc>

Z"

Text2.Value=js注：

如果题目改为统计非数字字符个数，则改为IfNot（c>

例6：

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

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

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

如6的因子有：

1，2，3；

10的因子有：

1，2，5。

DimnumberAsInteger,countAsInteger,iAsInteger

number=Text1.Value

Fori=1Tonumber-1

IfnumberModi=0Then

例7：

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

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

注：

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

x=Text1.Value

s=0

Fori=2Tox

pd=True

pd=False

IfpdThen

s=s+i

Text2.Value=s

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

例8：

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

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

a=Text1.Value

jsh=0

Fori=1Toa

IfiMod2<

0Then

jsh=jsh+i

Text2.Value=jsh

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

例9：

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

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

jsh=0

Fori=1Toa

IfiMod5=0Then

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

例10：

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

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

DimnAsInteger,sumAsInteger

n=Text1.Value

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

例11：

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

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

qh=0

IfInt（i/1）Mod10=6Then

qh=qh+i

Text2.Value=qh

例12：

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