09 11年江苏省信息考试vb操作题.docx
《09 11年江苏省信息考试vb操作题.docx》由会员分享，可在线阅读，更多相关《09 11年江苏省信息考试vb操作题.docx（45页珍藏版）》请在冰豆网上搜索。
0911年江苏省信息考试vb操作题
Z:
\1\
密码的原理是将“明文”中的每个字符用另外一个字符替换，这样就形成“密文”。
如果将数字进行加密，其对应关系如下所示:
明文：
0123456789密文：
9876543210
打开文件“Z:
\1\工程1.vbp”，完善程序，使实现以下功能后保存：
若在文本框text1中输入待加密的数字，单击“command1命令按钮”后，在文本框text2中输出密文。
（数值型与字符型不能进行数学运算）
PrivateSubCommand1_Click（）
DimxAsString,yAsString
DimiAsInteger
Dimtemp1AsString,temp2AsString
x=Text1.Text
y=""
Fori=1To①（Text1.Text）
temp1=Mid（x,i,1）
temp2=②
y=y+temp2
Nexti
Text2.Text=③
EndSub
Z:
\4\
打开“Z:
\4\工程1.vbp”，完善程序并保存。
实现功能：
用穷举法找出所有的水仙花数的程序并保存。
水仙花数是指一类三位数，其各个数位上的数字之立方和为该数。
例如：
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
Z:
\9\
打开“Z:
\9\工程1.vbp”，完善程序并保存。
实现功能：
输入10个数，存放在数组中，并按输入的逆序输出在窗体上。
PrivateSubCommand1_Click（）
Dims（9）AsSingle
Fori=0To9
①=Val（InputBox（"请输入一个数"））
Nexti
Fori=9To0Step②
Print③
Nexti
EndSub
Z:
\12\
打开“Z:
\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
Z:
\13\
打开“Z:
\13\工程1.vbp”，完善程序并保存。
实现功能：
在Text1、Text2、Text3中输入三个整数后，单击“输出最大值”按钮后，在Label3中显示这3个数中的最大值。
PrivateSubCommand1_Click（）
Dima,b,c,maxAsInteger
a=Val（Text1.Text）
b=Val（Text2.Text）
c=Val（Text3.Text）
Ifa>bThenmax=aElse①
Ifc>maxThen②
Label3.Caption=CStr（③）
EndSub
Z:
\15\
输出平行四边形
'请不要更改源程序的结构，删除原题里的①、②、③。
填写正确的代码，使程序完善
PrivateSubCommand1_Click（）
Dimi,jAsInteger
Fori=1To①
PrintTab（6-i）;
Forj=1To②
Print③;
Nextj
Print
Nexti
EndSub
Z:
\20\
'请不要更改源程序的结构，删除原题里的①、②、③。
填写正确的代码，使程序完善
PrivateSubCommand1_Click（）
Dimx,sAsSingle
x=Val（Text1.Text）
If①Then
s=4*②
Else
s=4*x
EndIf
Label1.Caption=CStr（③）
EndSub
Z:
\22\
'请不要更改源程序的结构，删除原题里的①、②。
填写正确的代码，使程序完善
'共有56人要乘船，大船限乘6人，小船限乘4人，
'坐大船每条10元，坐小船每条8元。
'打开"工程1.vbp"填空完成程序，使得当单击"显示所有可能的乘船方式"按钮时，
'输出全部可能的大船数、小船数及所需要的钱数。
PrivateSubCommand1_Click（）
Dimi,jAsInteger'变量i表示大船数,j表示小船数
DimmAsInteger'变量m表示所需钱数
Print"大船数","小船数","所需钱数"
Fori=1To①
j=Int（（56-i*6）/4）+1
m=②+i*10
Printi,j,m
Nexti
EndSub
Z:
\24\
PrivateSubCommand1_Click（）
Randomize
Label6.Caption="第"&n&"道题"
a=Int（Rnd*10）
b=Int（Rnd*10）
Label1.Caption=a
Label2.Caption=b
n=n+1
EndSub
PrivateSubCommand2_Click（）
c=a+b
x=Val（①）
Ifc=②Then
Label3.Caption="正确"
Else
Label3.Caption="错误"
EndIf
EndSub
PrivateSubForm_Load（）
③
EndSub
Z:
\26\
不详
Z:
\28\
打开“Z:
\28\工程1.vbp”，完善程序并保存。
实现功能：
在三个文本框中输入一元二次方程的三个系数后，单击命令按钮，程序求出该方程的解。
PrivateSubCommand1_Click（）
Dima,b,c,pAsSingle
a=Val（Text1.Text）
b=Val（①）
c=Val（Text3.Text）
p=b*b-4*a*c
If②Then
X1=（-b+Sqr（p））/（2*a）
X2=（-b-Sqr（p））/（2*a）
Print"X1=";X1
Print"X2=";X2
③
Print"该方程无实数根"
EndIf
EndSub
Z:
\30\
打开“Z:
\30\工程1.vbp”，完善程序并保存。
实现功能：
PrivateSubCommand1_Click（）
DimxAsSingle,yAsSingle
a=3:
b=-5
①=Val（InputBox（"请输入x的值"））
Ifx<0Then
②=x+5*a
Else
y=x-2*b
③
Print"y=";CStr（y）
EndSub
Z:
\32\
打开“Z:
\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
Z:
\36\
打开“Z:
\36\工程1.vbp”，完善程序并保存。
实现功能：
给出三角形的三边边长a，b，c（输入保证能构成三角形，无需判断正确性），输出三角形面积。
三角形面积计算公式：
，其
中q=（a+b+c）/2。
PrivateSubCommand1_Click（）
DimsAsSingleDimqAsSingle
DimaAsSingleDimbAsSingle
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
Z:
\38\
在Text1文本框中输入一个年号，判断它是否是闰年，并输出判断结果“是闰年”或“不是闰年”。
判断闰年的算法是：
如果此年号能被400除尽，则它是闰年，否则如果它能被4整除而不能被100整除，则它是闰年，否则它不是闰年。
打开文件“Z:
\38\工程1.vbp”，完善程序后并保存。
PrivateSubCommand1_Click（）
DimyearAsInteger
year=Val（InputBox（"请输入年号:
"））
If（（yearMod4=0）And（yearMod100<>0））①（yearMod400=0）Then
Print②
Else
Print③
EndIf
EndSub
Z:
\40\
打开“Z:
\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
Z:
\41\
打开“Z:
\41\工程1.vbp”，完善程序并保存。
某超市为了对苹果进行促销，规定购买2公斤以上可以在原价每公斤6.80元的基础上打8折。
实现功能：
输入购买的苹果公斤数，输出应付款。
PrivateSubCommand1_Click（）
DimxAsSingle
DimcostAsSingle
x=Val（InputBox（"请输入苹果公斤数：
"））
Ifx<=2Then
cost=①
Else
cost=x*6.8*0.8
②
Print③
EndSub
打开“Z:
\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
Z:
\45\
打开“Z:
\45\工程1.vbp”，进行以下操作并保存。
实现功能：
（1）将label1标签上的文字设置为“测试系统”；
（2）把窗体中显示用户名的文本框的字体设置为“楷体_GB2312”；
（3）在窗体的相应位置添加一个“确定”的命令按钮。
控件名请采用默认值。
最终效果图如下：
打开“Z:
\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
Z:
\51\
“Z:
\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
Z:
\54\
某县开发山区农业，需要研究本区内的山地气候。
已有的研究结果表明，海拔每升高100米，年平均气温降低0.5℃。
打开文件“Z:
\54\工程1.vbp”，完善程序，实现下列功能：
在文本框text1中输入山脚处地表温度x，在文本框text2中输入相对高度h，在文本框text3中输出相应高度的气温y。
（这一题的语言描述不够准确）
PrivateSubCommand1_Click（）
Dimh,x,y①Single
Letx=Val（Text1.Text）
Let②=Val（Text2.Text）
Lety=x-（h/100）*0.5
LetText3.Text=③
EndSub
Z:
\60\
打开“Z:
\60\工程1.vbp”，完善程序并保存。
实现功能：
从文本框t1中输入一个圆的半径，计算圆的面积，把结果输出到文本框t2中。
PrivateSubCommand1_Click（）
Constpi=3.14
①r,sasSingle
r=Val（②）
s=pi*r*r
T2.Text=③
EndSub
Z:
\63\
素数是指除了1与它本身以外不能被任何其它整数整除的数。
打开文件“Z:
\63\工程1.vbp”，完善程序实现以下功能后保存。
输入一个小于2000000000的正整数到文本框text1中，如果它是素数（质数），就输出“yes”，否则就输出“no”。
（这里素数、质数的概念是什么关系？
）
PrivateSubCommand1_Click（）
Dimn,iAsLong
DimyesAs①
Letn=Val（Text1.Text）
Letyes=True
Fori=2Ton\2
IfnModi=0Then
Letyes=②
EndIf
Nexti
IfyesThen
LetText2.Text="yes"
③
LetText2.Text="no"
EndIf
EndSub
Z:
\68\
打开“Z:
\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
Z:
\71\
打开“Z:
\71\工程1.vbp”，完善程序并保存。
实现功能：
在文本框text1中输入一个正整数，单击“计算”按钮时判断该整数是偶数还是奇数。
如果是偶数，在标签上输出“偶
数”，否则输出“奇数”。
PrivateSubCommand1_Click（）
DimaAsInteger
a=Val（①）
If②=0Then
Label1.③="偶数"
Else
Label1.Caption="奇数"
④
EndSub
Z:
\74\
打开文件“Z:
\74\工程1.vbp”，完善程序并保存，使单击窗体时，在窗体上输出如下图案。
*
**
***
****
***
**
*
（这一题障碍有点大，要不要？
）
PrivateSubForm_Click（）
DimiAsInteger
DimjAsInteger
Print
Fori=-3To①
PrintTab（3）;
Forj=1To3-②
Print③
Next
Print"*"
Next
EndSub
Z:
\77\
打开“Z:
\77\工程1.vbp”，完善程序并保存。
银行的年利率是r，小明将1000元存入银行，问几年以后小明在银行的存款将超过2000元。
例如，年利率是0.04时，需要存18年。
实现功能：
单击“计算”按钮后，计算并在窗体上输出结果。
PrivateSubCommand1_Click（）
DimsAsSingle's计算存款
DimyAsInteger'y计算年份
DimrAsSingle'r是年利率
s=①
y=0
r=Val（InputBox（"输入年利率","数据输入框"））
DoWhiles②
y=③
s=s*④
Loop
Printy;"年以后，存款可以达到2000元"
EndSub
Z:
\80\
打开“Z:
\80\工程1.vbp”，完善程序并保存。
一只猴子摘了一堆桃子，它每天吃掉当天剩余桃子数的一半，每次又忍不住多吃一个，这样到了第十天就剩下一个桃子了。
实现功能：
计算猴子最初一共摘了多少个桃子。
PrivateSubCommand1_Click（）
DimtzAsInteger'tz是桃子数
DimtsAsInteger'ts是天数
tz=①
Forts=1To②
tz=③*2
Nextts
Print"最初共有桃子"&④
EndSub
Z:
\82\
打开“Z:
\82\工程1.vbp”，进行以下操作并保存。
在窗体上新建一个命令按钮Command1，一个文本框Text1，属性全部采用默认值。
实现功能：
单击命令按钮后，窗体的标题改为与文本框的内容一致。
PrivateSubCommand1_Click（）
①=Text1.Text
EndSub
Z:
\84\
在窗体上有一个名称为Timer1的计时器和一个名称为Label1的标签,Label标签的初始值为空，当运行程序后，将在标签中显示当前时间的数字时钟（包括时：
分：
秒），如图所示。
打开文件“Z:
\84\工程1.vbp”完善程序并保存。
（第一空不写问题也不大）
PrivateSubForm_Load（）
Timer1.Interval=1000
①
EndSub
PrivateSubTimer1_timer（）
②
EndSub
Z:
\86\
某程序的功能是：
当x<50时，y=0.8×x；当50≤x≤100时，y=0.7×x；当x>100时，显示“输入的数据出界！
”。
请打开文件“Z:
\86\工程1.vbp”，完善程序。
（程序要再修改）
PrivateSubCommand1_Click（）
DimxAsSingle
x=Val（InputBox（"请输入x的值！
"））
①
y=0.8*x
Else
②
y=0.7*x
Else
Print"输入的数据出界！
"
EndIf
EndIf
Printx,y
End
升级会员 