江苏高中信息技术学业水平测试vb操作题带答案.docx
《江苏高中信息技术学业水平测试vb操作题带答案.docx》由会员分享，可在线阅读，更多相关《江苏高中信息技术学业水平测试vb操作题带答案.docx（79页珍藏版）》请在冰豆网上搜索。
江苏高中信息技术学业水平测试vb操作题带答案
Vb专项练习第一套题目
1、打开“考生文件夹\96\工程1.vbp”，完善程序并保存。
实现功能：
假设有一个5位数密码。
只记得密码为67□□8，其中百位和十位的数字记不清了，但知道该密码能够被78整除，也能被67整除。
请完善算法帮忙找出这个密码。
''请不要更改源程序的结构，删除原题里的①、②、③。
填写正确的代码，使程序完善
PrivateSubCommand1_Click（）
DimxAsLong
Forx=①To67998Step10
If（xMod67=0）And（xMod78=0）Then
Print②
EndIf
③
EndSub
2、“考生文件夹\51\工程1.vbp”是采用“穷举法”求出所有水仙花数的程序，请完善程序并保存。
说明：
若一个三位数abc，满足：
abc=a3+b3+c3，则称abc为水仙花数。
如三位数153满足：
13+53+33=1+125+27=153，则153是水仙花数。
'请不要更改源程序的结构，删除原题里的①、②、③。
填写正确的代码，使程序完善
PrivateSubCommand1_Click（）
Dimi,a,bAsInteger
Fori=100To①
a=i\100
b=（i-a*100）\10
c=②
Ifa*a*a+b*b*b+c*c*c=iThen
PrintCStr（i）
③
Nexti
EndSub
3、打开“考生文件夹\12\工程1.vbp”，完善程序并保存。
实现功能：
在Text1中输入一个代表秒数的整数后，单击“计算”按钮后，在Label1、Label2、Label3中显示对应的小时、分钟和秒数。
如在Text1中输入“3672”，Label1、Label2、Label3中分别显示“1”、“1”、“12”，即1小时1分12秒。
'请不要更改源程序的结构，删除原题里的①、②、③。
填写正确的代码，使程序完善
PrivateSubCommand1_Click（）
Dimh,m,s,ssAsInteger
ss=Val（①）
h=②
m=（ss-h*3600）\60
s=（ss-h*3600）Mod③
Label1.Caption=CStr（h）
Label2.Caption=CStr（m）
Label3.Caption=CStr（s）
EndSub
4、打开“考生文件夹\50\工程1.vbp”，完善程序并保存。
实现功能：
在文本框text1、text2、text3中输入3根小木棒的长度（假设都是整数），判断能否用它们搭成一个三角形，并把结果输出到文本框text4中。
操作要求：
（1）在窗体中加载“CommandButton”控件，命名为“Command1”并设置该控件“Caption”属性值为“判断”；
（2）完善程序，执行command1_click事件，判断出结果，如果能搭成三角形则在文本框text4中输出“OK”，否则输出“NO”。
'请不要更改源程序的结构，删除原题里的①、②。
填写正确的代码，使程序完善
PrivateSubCommand1_Click（）
Dima,b,cAs①
Leta=Val（Text1.Text）
Letb=Val（Text2.Text）
Letc=Val（Text3.Text）
If（a+b>c）And（a+c>b）And（b+c>a）Then
LetText4.Text="OK"
Else
LetText4.Text="NO"
②
EndSub
5、打开“考生文件夹\40\工程1.vbp”，完善程序并保存。
实现功能：
将一张100元面值的人民币换成若干5元、1元、5角面值的人民币，但要求100元换成的零钱共100张，且要求每种面值不少于1张，问5元、1元、5角各多少张，请输出每种可能的组合。
'请不要更改源程序的结构，删除原题里的①、②、③。
填写正确的代码，使程序完善
PrivateSubCommand1_Click（）
DimWuyuanAsInteger
DimYiyuanAsInteger
DimWujiaoAsInteger
ForWuyuan=1To20
ForYiyuan=1To①
Wujiao=100-Wuyuan-②
IfWuyuan*5+Yiyuan*1+Wujiao*0.5=100Then
Print"Wuyuan="&Wuyuan&",Yiyuan="&Yiyuan&",Wujiao="&Wujiao
③
NextYiyuan
NextWuyuan
EndSub
Vb专项练习第二套
1、打开“考生文件夹\716”文件夹中的文件：
“工程1.vbp”进行以下操作后并保存。
某同学欲设计一个“水电费管理系统”，其功能如下：
水按每吨4元收取，电按每度0.5元收取，输入用水量和用电量，输出应付款。
请打开工程1.vbp文件，按如下要求完成下列操作。
（1）请在窗体中添加两个控件，使程序运行时，用其输入耗水量和耗电量。
（2）请把下列代码补充完整
PrivateSubCommand1_Click（）
DimaAsSingle,bAsSingle,sAsSingle
a=Val（①）
b=Val（②）
s=③
Label4.Caption=Str（④）+"元"
EndSub
2、打开“考生文件夹\723”文件夹中的文件：
“工程1.vbp”进行以下操作后并保存。
中国邮政的EMS国际快递业务：
中国寄往澳大利亚的快递收费标准是：
首个0.5公斤收费210元，其余的重量按55元/千克计算，（总重不足0.5千克按210元收费）下面是自动计算寄费的程序，请完善程序。
完成后按“Ctrl+W”保存程序。
（详见样张）
'中国邮政的EMS国际快递业务：
中国寄往澳大利亚的快递收费标准是：
'首个0.5公斤收费210元，其余的重量按55元/每千克计算，（总重不足
'0.5千克按210元收费）下面是自动计算寄费的程序，请你完善程序。
'请不要更改源程序的结构，删除原题里的①、②、③。
填写正确的代码，使程序完善
PrivateSubCommand1_Click（）
DimxAsSingle,yAsSingle
y=0
①=Val（Text1.Text）
Ifx>0.5Then
y=210+（x-0.5）*55
Else
y=210
②
③=Str（y）
EndSub
3、打开“考生文件夹\91\工程1.vbp”，完善程序并保存。
实现功能：
随机生成100个整数，统计偶数的个数。
'请不要更改源程序的结构，删除原题里的①、②、③。
填写正确的代码，使程序完善
Dima（100）AsInteger
PrivateSubCommand1_Click（）
DimtotalAsInteger
①
Fori=1To100
Ifa（i）Mod2=0Then
②
EndIf
Nexti
PrintCStr（total）
EndSub
PrivateSubForm_Load（）
Randomize
Fori=1To100
③=Int（Rnd*1000）
Nexti
EndSub
4、打开文件“考生文件夹\725\工程1.vbp”，进行以下操作后保存。
这是打印九九乘法表的程序，请你完善程序。
完成后按“Ctrl+W”保存程序。
（详见样张）
'这是打印乘法九九表的程序，请完善程序。
'请不要更改源程序的结构，删除原题里的①、②、③。
填写正确的代码，使程序完善
PrivateSubForm_click（）
DimiAsInteger,jAsInteger
Fori=1To①
Forj=1To②
PrintTab（（j-1）*12）;
Printj;"*";i;"=";i*j;
Nextj
Print
③
EndSub
5、打开“考生文件夹\4\工程1.vbp”，完善程序并保存。
实现功能：
用穷举法找出所有的3位水仙花数的程序并保存。
3位水仙花数是指一个三位数，其各个数位上的数字之立方和为该数。
例如：
153=13+53+33。
'请不要更改源程序的结构，删除原题里的①、②、③。
填写正确的代码，使程序完善
PrivateSubCommand1_Click（）
DimiAsInteger,aAsInteger,bAsInteger,cAsInteger
Fori=100To999
a=i\①
b=（i-a*②）\10
c=iMod10
Ifa^3+b^3+c^3=iThenPrinti
③
EndSub
Vb专项练习第三套
1、打开“考生文件夹\731”文件夹中的文件：
“工程1.vbp”进行以下操作后并保存。
本题是青蛙跃井问题：
井底蛙欲沿湿滑井壁上跃至地面，若井深h尺，蛙上跃3尺下滑1尺，请给出井深h值，计算蛙上跃次数n。
请你完善程序。
完成后按“Ctrl+W”保存程序。
（详见样张）
'本题是青蛙跃井问题：
井底蛙欲沿湿滑井壁
'上跃至地面，若井深h尺，蛙上跃3尺下滑1尺，
'请给出井深h值，计算蛙上跃次数n。
'请不要更改源程序的结构，删除原题里的①、②、③。
填写正确的代码，使程序完善
PrivateSubCommand1_Click（）
DimhAsSingle,nAsInteger
h=Val（①）
Ifh>3Then
IfhMod2=0Then
n=h/2
Else
n=（h-1）/2
EndIf
Else
n=②
EndIf
Text2.Text=③
EndSub
2、打开“考生文件夹\729”文件夹中的文件：
“工程1.vbp”进行以下操作后并保存。
运行程序能够显示数字金字塔，请完善程序。
完成后按“Ctrl+W”保存程序。
（详见样张）
'运行程序能够显示数字金字塔，请完善程序。
'请不要更改源程序的结构，删除原题里的①、②、③。
填写正确的代码，使程序完善
PrivateSubForm_Click（）
DimiAsInteger,jAsInteger
Fori=1To①
PrintTab（10-i）;
Forj=1To②
PrintStr（i）;
Nextj
③
Nexti
EndSub
3、打开“考生文件夹\733”文件夹中的文件：
“工程1.vbp”进行以下操作后并保存。
本题是在文本框Text1中输入一位十六进制数码（若是字母要大写），运行程序后能译出它表示的十进制数的程序。
请你完善程序。
完成后按“Ctrl+W”保存程序。
（详见样张）
'本题是在text1中输入一位十六进制数码（若是字母要大写），
'运行程序后能译出它表示的十进制数的程序。
'请不要更改源程序的结构，删除原题里的①、②、③。
填写正确的代码，使程序完善
PrivateSubCommand1_Click（）
DimmAsString
m=①
SelectCasem
Case"A"
m="10"
Case"B"
m="11"
Case"C"
m="12"
Case"D"
m="13"
Case"E"
m="14"
Case"F"
m="15"
②
Text2.Text=③
EndSub
4、打开“考生文件夹\732”文件夹中的文件：
“工程1.vbp”进行以下操作后并保存。
本题是从字符串中找出所有大写字母，并把找出的大写字母显示在text2中。
请你完善程序。
完成后按“Ctrl+W”保存程序。
（详见样张）
'本题是从一串只含有字母或数字的字符串中找出所有大写字母，
'并把找出的大写字母显示在text2中。
'请不要更改源程序的结构，删除原题里的①、②、③。
填写正确的代码，使程序完善
PrivateSubCommand1_Click（）
DimxAsString,yAsString
DimiAsInteger,nAsInteger
x=①
n=Len（x）
Fori=1To②
IfAsc（Mid（x,i,1））<91AndAsc（Mid（x,i,1））>64Then
y=y+Mid（x,i,1）
EndIf
Nexti
Text2.Text=③
EndSub
5、打开“考生文件夹\730”文件夹中的文件：
“工程1.vbp”进行以下操作后并保存。
运行程序能够显示数字金字塔，请完善程序。
完成后按“Ctrl+W”保存程序。
（详见样张）
'运行程序能够显示数字金字塔，请完善程序。
'请不要更改源程序的结构，删除原题里的①、②、③。
填写正确的代码，使程序完善
PrivateSubForm_Click（）
DimiAsInteger,jAsInteger
For①=1To5
PrintTab（10-j）;
Fori=1To②
PrintStr（i）;
Nexti
Print
③
EndSub
Vb专项练习第4套
1、打开“考生文件夹\735”文件夹中的文件：
“工程1.vbp”进行以下操作后并保存。
完善程序,使之在运行程序后，能在窗体上显示样张所示的图形。
完成后按“Ctrl+W”保存程序。
（详见样张）
'完善程序,使之在运行程序后，能在窗体上显示样张所显示的图形。
'请不要更改源程序的结构，删除原题里的①、②、③。
填写正确的代码，使程序完善
PrivateSubForm_Click（）
Line（600,200）-（1500,①）,RGB（255,0,0）
Line（1500,200）-（1500,1000）,RGB（0,0,255）
Line（1500,1000）-（600,1000）,RGB（②）
Line（③,1000）-（600,200）,RGB（0,0,255）
EndSub
2、打开“考生文件夹\36\工程1.vbp”，完善程序并保存。
实现功能：
给出三角形的三边边长a，b，c（输入保证能构成三角形，无需判断正确性），输出三角形面积。
三角形面积计算公式：
'请不要更改源程序的结构，删除原题里的①、②、③。
填写正确的代码，使程序完善
PrivateSubCommand1_Click（）
DimsAsSingle
DimqAsSingle
DimaAsSingle
DimbAsSingle
DimcAsSingle
①=Val（InputBox（"请输入边长a的值：
"））
b=Val（InputBox（"请输入边长b的值：
"））
c=Val（InputBox（"请输入边长c的值：
"））
q=（a+b+c）/2
s=②（q*（q-a）*（q-b）*（q-c））
Print③
EndSub
3、打开“考生文件夹\60\工程1.vbp”，完善程序并保存。
实现功能：
从文本框t1中输入一个圆的半径，计算圆的面积，把结果输出到文本框t2中。
'请不要更改源程序的结构，删除原题里的①、②、③。
填写正确的代码，使程序完善
PrivateSubCommand1_Click（）
Constpi=3.14
①r,sasSingle
r=Val（②）
s=pi*r*r
T2.Text=③
EndSub
4、打开“考生文件夹\32\工程1.vbp”，完善程序并保存。
实现功能：
从键盘上输入一个三位数，然后将它反向输出。
例如输入“123”，输出结果为“321”。
'请不要更改源程序的结构，删除原题里的①、②、③。
填写正确的代码，使程序完善
PrivateSubCommand1_Click（）
DimaAsInteger,bAsInteger
DimbaiAsInteger,shiAsInteger
DimgAsInteger
a=Val（①）
bai=a\100
shi=（a-bai*100）\10
g=aMod10
②=g*100+shi*10+bai
③=CStr（b）
EndSub
5、打开“考生文件夹\736”文件夹中的文件：
“工程1.vbp”进行以下操作后并保存。
该题求丢番图年龄问题：
丢番图生命的1/6是童年，又过了生命的1/12长胡子，再过了生命的1/7结婚，婚后5年生儿子，儿子活了父亲年龄的一半死亡，之后丢番图又过了4年死亡。
求丢番图年龄。
完善程序,使之在运行程序后，能在text1中显示丢番图年龄。
完成后按“Ctrl+W”保存程序。
（详见样张）
'该题是求丢番图年龄问题：
丢番图生命的1/6是童年，
'又过了1/12长胡子，再过了的1/7结婚，婚后5年生儿子，
'儿子活了父亲年龄的一半死亡，之后丢番图又过了4年死亡。
'求丢番图年龄。
'请不要更改源程序的结构，删除原题里的①、②、③。
填写正确的代码，使程序完善
PrivateSubCommand1_Click（）
DimnAsInteger
n=0
Do
①=n+1
Loop②n③=Str（n）
EndSub
Vb专项练习第五套
1、打开“考生文件夹\178\工程1.vbp”，完善程序并保存。
实现功能：
用递归法求3!
+5!
+7!
的值。
'请不要更改源程序的结构，删除原题里的①、②、③。
填写正确的代码，使程序完善
PublicFunctionFac（aAsInteger）AsInteger
Ifa=1Then
Fac=①
Else
Fac=a*②（a-1）
EndIf
EndFunction
PrivateSubCommand1_Click（）
DimSAsInteger
S=Fac（3）+Fac（③）+Fac（7）
Print"S="&CStr（S）
EndSub
2、打开“考生文件夹\122\工程1.vbp”，完善程序并保存。
王晓珊家距离学校S1公里，某天她和李明各自同时从家里步行出发上学，王晓珊步行V1公里/小时，李明步行V2公里/小时，结果他们同时到达学校。
实现功能：
输入S1,V1,V2，输出李明家与学校之间的距离S2。
'请不要更改源程序的结构，删除原题里的①、②、③。
填写正确的代码，使程序完善
PrivateSubCommand1_Click（）
DimS1AsSingle,S2AsSingle
DimV1AsSingle,V2AsSingle
DimTAsSingle
S1=Val（InputBox（"请输入王晓珊家离学校的距离：
"））
V1=Val（InputBox（"请输入王晓珊步行速度：
"））
V2=Val（InputBox（"请输入李明步行速度：
"））
T=①
S2=②*T
Print③
EndSub
3、打开“考生文件夹\43\工程1.vbp”，完善程序并保存。
实现功能：
用递归法求斐波那契数列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）
②
EndFunction
PrivateSubCommand1_Click（）
DimSAsInteger
S=Fib（③）
Print"S="&CStr（S）
EndSub
4、打开“考生文件夹\175\工程1.vbp”，完善程序并保存。
实现功能：
用递归法求1+2+3+…+100的值。
'请不要更改源程序的结构，删除原题里的①、②、③。
填写正确的代码，使程序完善
PublicFunctionS（nAsInteger）AsInteger
Ifn=1Then
S=①
Else
S=②+S（n-1）
EndIf
EndFunction
PrivateSubCommand1_Click（）
DimSumAsInteger
Sum=S（③）
Print"Sum="&CStr（Sum）
EndSub
5、打开“考生文件夹\68\工程1.vbp”，完善程序并保存。
实现功能：
在文本框Text1和Text2中分别输入两个整数，单击“交换”按钮后，两个文本框中的数字进行交换。
''请不要更改源程序的结构，删除原题里的①、②、③、④。
填写正确的代码，使程序完善
PrivateSubCommand1_Click（）
DimaAsInteger
DimbAsInteger
DimtAsInteger
a=Val（Text1.Text）
b=Val（Text2.Text）
t=a
a=①
b=②
Text1.Text=③
Text2.Text=④
EndSub
Vb专项练习第六套
1、打开"考生文件夹\30\工程1.vbp"，完善程序并保存。
实现功能：
'请不要更改源程序的结构，删除原题里的①、②、③。
填写正确的代码，使程序完善
PrivateSubCommand1_Click（）
升级会员 