信息技术学业水平测试VB操作题题库Word格式文档下载.docx
《信息技术学业水平测试VB操作题题库Word格式文档下载.docx》由会员分享，可在线阅读，更多相关《信息技术学业水平测试VB操作题题库Word格式文档下载.docx（57页珍藏版）》请在冰豆网上搜索。
Forj=1To①Step1
Print②
Next③
Print
【第3题】
打开文件“考生文件夹\609\工程1.vbp”，完善Form_Click事件代码并保存。
单击窗体时在窗体上打印下面所示的图案。
****
***
**
*
PrivateSubForm_Click（）
Fori=①To1Step-1
Forj=1ToiStep1
②
③
【第4题】
打开文件“考生文件夹\730\工程1.vbp”，完善Form_Click事件代码并保存。
在窗体上显示如图所示的数字金字塔。
Fori=1To5
PrintTab（10-i）;
Forj=1To①
Print②;
【第5题】
打开文件“考生文件夹\15\工程1.vbp”，完善Command1_Click事件代码并保存。
单击按钮后在窗体上打印出下面所示的图案。
（第一行的第一个“*”从第5列开始输出）
PrintTab（6-i）;
Print③;
【第6题】与第4题重复
【第7题】
打开文件“考生文件夹\729\工程1.vbp”，完善Form_Click事件代码并保存。
DimiAsInteger
DimjAsInteger
Fori=1To①
PrintStr（i）;
Nexti
【第8题】
打开“考生文件夹\1334”文件夹中的工程文件“工程1.vbp”进行以下操作后并保存！
（在字符串相连接时不要使用“+”，应使用“&
”）
（1）在窗体Form1中添加一个名为"
Command1"
的按钮，并在按钮上显示文字“画图”；
（2）完善程序，单击“画图”按钮，使其能输出如下图形。
注：
（1）删除①、②、③，填入正确的语句
（2）不能删除注释语句
Dimi,jAsInteger
Fori=3To①Step②'
第一空
PrintSpace（i）;
'
打印空格
Forj=1To10
Print③'
第二空
【第9题】
打开“考生文件夹\1987\工程1.vbp”，完善程序并保存。
单击按钮后打印下面所示的图案。
（第一行的第一个“@”从第1列开始输出）
PrintTab（4-i）;
VB2--递归操作题
一、操作题，每题10分，6题共60分
打开“考生文件夹\388\工程1.vbp”，完善程序并保存。
用递归法求5!
+6!
+7!
的值。
PublicFunctionFac（aAsLong）AsInteger
Ifa=1Then
Fac=①
Else
Fac=a*②（a-1）
EndIf
EndFunction
DimSAsLong
S=Fac（5）+Fac（③）+Fac（7）
Print"
S="
&
CStr（S）
打开文件“考生文件夹\178\工程1.vbp”，完善Command1_Click事件及fac函数并保存。
用递归法求3!
+5!
的值，将结果输出到窗体上。
S=Fac（3）+Fac（③）+Fac（7）
打开文件“考生文件夹\413\工程1.vbp”，完善Command1_Click事件及fib函数并保存。
用递归法求斐波那契数列1，1，2，3，5，8，…第10项的值，将结果输出到窗体上。
PublicFunctionfib（nAsInteger）AsInteger
If（n=1）Or（n=2）Then
fib=①
Else
fib=fib（n-1）+fib（n-2）
DimSAsInteger
S=fib（③）
打开文件“考生文件夹\175\工程1.vbp”，完善Command1_Click事件及s函数代码并保存。
用递归法求1+2+3+…+100的值，结果输出在窗体上。
PublicFunctionS（nAsInteger）AsInteger
Ifn=1Then
S=①
S=②+S（n-1）
EndIf
DimSumAsInteger
Sum=S（③）
Sum="
CStr（Sum）
打开文件“考生文件夹\851\工程1.vbp”，完善程序实现如下功能并保存：
花果山上有一洞，小猴每次采取跳1阶或者跳3阶的办法从山下跳跃上台阶进洞，编程在Text1中输入台阶数，在Label1中显示有多少种不同的跳法。
正确的运行结果如下图所示，调试时输入的台阶数最大不要超过35！
Functions（nAsInteger）AsLong
Ifn=1Orn=2Then
s=①
Ifn=3Then
s=2
s=s（n-1）+s（n-3）
DimnAsInteger
n=Val（②）
Label1.Caption=Str（③）
【第6题】
打开文件“考生文件夹\861\年龄问题.vbp”，完善程序实现如下功能并保存：
有5个人坐在一起，第5个人说他比第4个人小3岁；
第4个人说他比第3个人小3岁；
第3个人说他比第2个人小3岁；
第2个人又说他比第1个人小3岁；
第1个人说他是38岁。
编写程序，计算出第5个人的年龄并显示。
PrivateSubcmdDisplay_Click（）
第5人的年龄:
"
age（①）
Functionage（nAsInteger）AsInteger
age=②
age=age（n-1）-3
VB3—解析操作题
打开文件“考生文件夹\89\工程1.vbp”，完善Command1_Click事件代码并保存。
乘坐飞机的经济舱时，免费托运行李一般不得超过20公斤，超重每公斤按全票价的1.5%计算。
输入行李重量及经济舱全票价后，点击按钮，计算出行李托运费用，输出到对应文本框中。
DimwAsInteger'
行李重量
DimpjAsInteger'
机票价格
DimfyAsSingle'
托运费用
w=Val（Text1.Text）
pj=Val（Text2.Text）
Ifw<
=20Then
①
fy=（w-20）*pj*0.015
Text3.Text=③
\30\工程1.vbp”，完善Command1_Click事件代码并保存。
DimxAsSingle,yAsSingle
a=3:
b=-5
①=Val（InputBox（"
请输入x的值"
））
Ifx<
0Then
②=x+5*a
y=x-2*b
y="
CStr（y）
打开文件“考生文件夹\20\工程1.vbp”，完善Command1_Click事件代码并保存。
某超市苹果价格每斤4元，购买10斤以上（包括10斤）将享受8折优惠。
使得在Text1中输入重量并单击“计算”按钮后，在Label1中显示对应的价格。
DimxAsSingle
DimsAsSingle
x=Val（Text1.Text）
If①Then
s=4*②
s=4*x
Label1.Caption=Str（③）
打开文件“考生文件夹\122\工程1.vbp”，完善Command1_Click事件代码并保存。
王晓珊家距离学校s1（千米），某天她和李明各自同时从家里步行出发上学，王晓珊步行速率v1（千米/小时），李明步行速率v2（千米/小时），结果他们同时到达学校。
输入s1、v1、v2，在窗体上输出李明家与学校之间的距离s2。
Dims1AsSingle
Dims2AsSingle
Dimv1AsSingle
Dimv2AsSingle
DimtAsSingle
s1=Val（InputBox（"
请输入王晓珊家离学校的距离：
v1=Val（InputBox（"
请输入王晓珊步行速度：
v2=Val（InputBox（"
请输入李明步行速度：
t=①
s2=②*t
Print③
打开“考生文件夹\772”中的文件“工程1.vbp”，完善Command1_Click事件代码并保存。
某商场正在搞促销活动，买300元送200元，例如：
某顾客购买商品449元，返还顾客200元，不满300元的零头不送。
在文本框中输入一个正整数，计算返还的金额并显示在标签上，如样张所示。
DimaAsInteger
DimsAsInteger
a=Val（Text1.①）
s=（②）*200
Label1.③=Str（④）
打开“考生文件夹\776”中的文件“蜗牛爬竹.vbp”，完善Command1_Click事件代码并保存。
青竹高17米，蜗牛从青竹底端慢慢爬向顶端，晴天每天爬1.4米，雨天每天爬1.8米，若蜗牛爬到顶端用了11天，计算晴天、雨天各多少天？
（晴天对应文本框text1，雨天对应文本框text2）
DimyAsInteger
y=（17-1.4*11）/（1.8-1.4）
①=11-y
Text1.Text=Str（②）+"
天"
Text2.Text=Str（③）+"
VB4—穷举操作题
一、操作题，每题10分，8题共80分
打开文件“考生文件夹\862\完数.vbp”，完善程序实现如下功能并保存：
输入一个数，判断该数是否为完数。
所谓完数即该数等于其因子之和。
例如：
6=1＋2＋3；
28＝1＋2＋4＋7＋14。
若是完数则输出该数及该数等于因子之和的公式；
若不是完数则输出该数不是完数。
PrivateSubcmdPerfect_Click（）
DimmAsInteger
DimsumAsInteger
DimsAsString
s="
1"
sum=1
输入一个正整数:
Fori=2Tom-1
IfmModi=0Then
sum=②
s=s&
+"
Str（i）
Ifsum=mThen
Printm;
是完数"
③'
输出因子之和
不是完数"
打开文件“考生文件夹\859\玫瑰花数.vbp”，完善程序实现如下功能并保存：
如果一个4位数等于它的各位数字的4次方和，则这个4位数称为“玫瑰花”数，例如1634就是一个玫瑰花数。
试编程求出所有的玫瑰花数，结果如下图所示。
PrivateSubcmdDemoRose_Click（）
Fori=1000To9999
s=0
Forj=①To4
m=Mid（i,j,1）
s=s+②
Ifi=sThenPrinti
打开文件“考生文件夹\855\工程1.vbp”，完善程序实现如下功能并保存：
古题新编：
妇人洗碗在河边，路人问妇酬几宾。
答曰数目无细数，十三只碗自分明。
二人共食一碗饭，三人共吃一碗羹。
四人共肉无余数，请君细算客几人。
将客人数显示在文本框中。
IfiMod2=0AndiMod3=0And②Then
Text1.Text=Str（③）
打开文件“考生文件夹\608\工程1.vbp”，完善窗体的Click事件代码并保存。
鸡兔同笼，共有100条腿，40个头，问鸡有几只，兔有几只？
结果输出在窗体上。
DimjiAsInteger'
鸡的个数
DimtuAsInteger'
兔的个数
DimlegAsInteger'
腿数
Forji=1To39
tu=①
计算腿数
leg=②+tu*4
如果腿正好100只，则打印。
Ifleg=③Then
鸡="
ji;
只"
"
兔="
tu;
Nextji
\424\工程1.vbp”，完善Command1_Click事件代码并保存。
将一张100元面值的人民币换成若干5元、1元、5角面值的人民币，但要求100元换成的零钱共100张，且要求每种面值不少
于1张，问5元、1元、5角各多少张，请输出每种可能的组合。
DimWuyuanAsInteger
DimYiyuanAsInteger
DimWujiaoAsInteger
ForWuyuan=1To20
ForYiyuan=1To①
Wujiao=100-Wuyuan-②
IfWuyuan*5+Yiyuan*1+Wujiao*0.5=100Then
Wuyuan="
Wuyuan&
Yiyuan="
Yiyuan&
Wujiao="
Wujiao
NextYiyuan
NextWuyuan
打开“考生文件夹\389\工程1.vbp”，完善程序并保存。
小明忘记了自己一个word文档的打开密码，只记得是一个4位数的数字密码6□□5，但知道该数能够被69整除，也能被95整除。
请你完善程序，帮他找出这个密码。
DimaAsLong
Fora=6005To①Step10
If（aMod69=0）Or（aMod95=0）Then
Print②
打开文件“考生文件夹\96\工程1.vbp”，完善程序并保存。
假设有一个5位数密码。
只记得密码为67□□8，其中百位和十位的数字记不清了，但知道该密码能够被78整除，也能被67整除。
请完善算法帮忙找出这个密码。
DimxAsLong
Forx=①To67998Step10
If（xMod67=0）And（xMod78=0）Then
打开文件“考生文件夹\51\工程1.vbp”，完善Command1_Click事件代码并保存。
若一个三位数abc，满足：
abc=a3+b3+c3，则称abc为水仙花数。
如三位数153满足：
13+53+33=1+125+27=153，则153是水仙花数。
DimaAsInteger'
百位数
DimbAsInteger'
十位数
DimcAsInteger'
个位数
Fori=100To①
a=i\100
b=（i-a*100）\10
c=②
Ifa*a*a+b*b*b+c*c*c=iThen
Printi
VB5—数组操作题
打开文件“考生文件夹\863\细胞分裂.vbp”，完善程序实现如下功能并保存：
有一种细胞每3分钟分裂一次，每次分裂时每个细胞分裂成2个，30分钟后有2048个细胞。
问开始时有多少个细胞？
PrivateSubcmdDivision_Click（）
Dimf（10）AsInteger'
30分钟共分裂10次
f（10）=①
Fori=9To0Step②
f（i）=f（i+1）/2
打开文件“考生文件夹\853\工程1.vbp”，完善程序实现如下功能并保存：
在数组中输入5个整数，找出最大数（max）和最小数（min），并分别在Label1和Label2中显示。
Dimx（5）AsInteger,iAsInteger
DimmaxAsInteger,minAsInteger
①=InputBox（"
输入一个数"
）
max=②
min=x
（1）
Fori=2To5
Ifx（i）>
maxThenmax=x（i）
Ifx（i）<
minThen③=x（i）
Label1.Caption=Str（max）
L
升级会员 