题目.docx
- 文档编号:30390804
- 上传时间:2023-08-14
- 格式:DOCX
- 页数:18
- 大小:159.70KB
题目.docx
《题目.docx》由会员分享,可在线阅读,更多相关《题目.docx(18页珍藏版)》请在冰豆网上搜索。
题目
程序填空、程序改错、简单编程
说明:
以下题目不区分程序填空、程序改错和简单编程题,要求大家能够自己编写出程序,这样无论遇到何种题型,都能够应付自如。
第1题(窗体calc)
打开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题(窗体leapyear)
打开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题(窗体djzh)
打开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
第4题(窗体szzh)
打开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
第5题(窗体tstj)
打开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)
第6题(窗体CalChar)
打开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
第7题(窗体stfn)
打开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
第8题(窗体factor)
打开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
第9题(窗体stat)
打开Access数据库“所用文件.mdb”。
要求编写窗体stat上“数字字符个数”按钮的单击事件处理代码,实现如下功能:
输入一个字符串,单击“数字字符个数”按钮,显示该字符串中数字字符的个数。
编写“数字字符个数”按钮的单击事件代码如下:
DimsAsString,nAsInteger,iAsInteger
DimcountAsInteger,cAsString
s=Text1.Value
n=Len(s)
count=0
Fori=1Ton
c=Mid(s,i,1)
Ifc>="0"Andc<="9"Then
count=count+1
EndIf
Nexti
Text2.Value=count
第10题(窗体tjyw)
打开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
第11题(窗体fszs)
打开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
第12题(窗体js3)
打开Access数据库“所用文件.mdb”。
要求编写窗体js3上“计算”按钮的单击事件处理代码,实现如下功能:
在文本框Text1中输入一个正整数后,单击“计算”按钮,计算1到该数之间(含该数)的奇数和,结果显示在Text2中。
编写“计算”按钮的单击事件代码如下:
a=Text1.Value
jsh=0
Fori=1Toa
IfiMod2<>0Then
jsh=jsh+i
EndIf
Nexti
Text2.Value=jsh
第13题(窗体js4)
打开Access数据库“所用文件.mdb”。
要求编写窗体js4上“计算”按钮的单击事件处理代码,实现如下功能:
在文本框Text1中输入一个正整数后,单击“计算”按钮,计算1到该数之间(含该数)的偶数和,结果显示在Text2中。
编写“计算”按钮的单击事件代码如下:
a=Text1.Value
osh=0
Fori=1Toa
IfiMod2=0Then
osh=osh+i
EndIf
Nexti
Text2.Value=osh
第14题(窗体qsws)
打开Access数据库“所用文件.mdb”。
要求编写窗体qsws上“求三位数字”按钮的单击事件处理代码,实现如下功能:
输入一个三位正整数,单击“求三位数字”按钮,分别显示其百位数字、十位数字和个位数字;若输入的整数不足三位,则退出窗体。
编写“求三位数字”按钮的单击事件代码如下:
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
第15题(窗体sszh)
打开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
第16题(窗体ssgs)
打开Access数据库“所用文件.mdb”。
要求编写窗体ssgs上“统计”按钮的单击事件处理代码,实现如下功能:
统计从1到该数之间(含该数)的素数个数,结果显示在Text2中。
注:
素数是指只能被1和本身整除的数。
编写“统计”按钮的单击事件代码如下:
x=Text1.Value
n=0
Fori=2Tox
pd=True
Forj=2ToSqr(i)
IfiModj=0Then
pd=False
EndIf
Nextj
IfpdThen
n=n+1
EndIf
Nexti
Text2.Value=n
第17题(窗体qh1)
打开Access数据库“所用文件.mdb”。
要求编写窗体qh1上“计算”按钮的单击事件处理代码,实现如下功能:
在文本框Text1中输入一个正整数,单击“计算”按钮,计算从1到该数之间(含该数)能被3整除的偶数之和,结果显示在Text2中。
编写“计算”按钮的单击事件代码如下:
a=Text1.Value
osh=0
Fori=1Toa
IfiMod2=0Then
IfiMod3=0Then
osh=osh+i
EndIf
EndIf
Nexti
Text2.Value=osh
第18题(窗体qh2)
打开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
第19题(窗体qh3)
打开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
第20题(窗体qh4)
打开Access数据库“所用文件.mdb”。
要求编写窗体qh4上“计算”按钮的单击事件处理代码,实现如下功能:
在文本框Text1中输入一个正整数,单击“计算”按钮,计算从1到1000之间(含1000),以该输入数为个位数的各自然数之和,结果显示在Text2中。
编写“计算”按钮的单击事件代码如下:
a=Text1.Value
qh=0
Fori=1To1000
IfRight(Str(i),1)=aThen
qh=qh+i
EndIf
Nexti
Text2.Value=qh
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 题目