江苏省2009年12月信息技术学业水平测试VB操作题WORD含答案

祝您考试成功！共9页第1页操作题(5道共40分)【第1题】打开“Z:\13\工程1.vbp”，完善程序并保存。实现功能：在Text1、Text2、Text3中输入三个整数后，单击“输出最大值”按钮后，在Label3中显示这3个数中的最大值。PrivateSubCommand1_Click()Dima,b,c,maxAsIntegera=Val(Text1.Text)b=Val(Text2.Text)c=Val(Text3.Text)IfabThenmax=aElse①IfcmaxThen②Label3.Caption=CStr(③)EndSub【第2题】打开“Z:\12\工程1.vbp”，完善程序并保存。实现功能：在Text1中输入一个代表秒数的整数后，单击“计算”按钮后，在Label1、Label2、Label3中显示对应的小时、分钟和秒数。如在Text1中输入“3672”，Label1、Label2、Label3中分别显示“1”、“1”、“12”，即1小时1分12秒。PrivateSubCommand1_Click()Dimh,m,s,ssAsIntegerss=Val(①)h=②m=(ss-h*3600)\60s=(ss-h*3600)Mod③Label1.Caption=CStr(h)Label2.Caption=CStr(m)Label3.Caption=CStr(s)EndSub【第3题】密码的原理是将“明文”中的每个字符用另外一个字符替换，这样就形成“密文”。如果将数字进行加密，其对应关系如下所示:明文：0123456789密文：9876543210打开文件“Z:\1\工程1.vbp”，完善程序，使实现以下功能后保存：若在文本框text1中输入待加密的数字，单击“command1命令按钮”后，在文本框text2中输出密文。（数值型与字符型不能进行数学运算）PrivateSubCommand1_Click()DimxAsString,yAsStringDimiAsIntegerDimtemp1AsString,temp2AsStringx=Text1.Texty=Fori=1To①(Text1.Text)temp1=Mid(x,i,1)temp2=②y=y+temp2NextiText2.Text=③EndSub【第4题】打开“Z:\4\工程1.vbp”，完善程序并保存。实现功能：用穷举法找出所有的水仙花数的程序并保存。水仙花数是指一类三位数，其各个数位上的数字之立方和为该数。例如：153=13+53+33。PrivateSubCommand1_Click()DimiAsInteger,aAsInteger,bAsInteger,cAsIntegerFori=100To999a=i\①b=(i-a*②)\10c=iMod10Ifa^3+b^3+c^3=iThenPrinti③EndSub【第5题】打开“Z:\9\工程1.vbp”，完善程序并保存。实现功能：输入10个数，存放在数组中，并按输入的逆序输出在窗体上。PrivateSubCommand1_Click()Dims(9)AsSingleFori=0To9①=Val(InputBox(请输入一个数))NextiFori=9To0Step②Print③NextiEndSub操作题(5道共40分)【第1题】在Text1文本框中输入一个年号，判断它是否是闰年，并输出判断结果“是闰年”或“不是闰年”。判断闰年的算法是：如果此年号能被400除尽，则它是闰年，否则如果它能被4整除而不能被100整除，则它是闰年，否则它不是闰年。打开文件“Z:\38\工程1.vbp”，完善程序后并保存。PrivateSubCommand1_Click()DimyearAsIntegeryear=Val(InputBox(请输入年号:))If((yearMod4=0)And(yearMod1000))①(yearMod400=0)ThenPrint②ElsePrint③EndIfEndSub【第2题】打开“Z:\32\工程1.vbp”，完善程序并保存。实现功能：从键盘上输入一个三位数，然后将它反向输出。例如输入“123”，输出结果为“321”。PrivateSubCommand1_Click()DimaAsInteger,bAsIntegerDimbaiAsInteger,shiAsIntegerDimgAsIntegera=Val(①)bai=a\100shi=(a-bai*100)\10g=aMod10②=g*100+shi*10+bai③=CStr(b)EndSub【第3题】打开“Z:\36\工程1.vbp”，完善程序并保存。实现功能：给出三角形的三边边长a，b，c（输入保证能构成三角形，无需判断正确性），输出三角形面积。三角形面积计算公式：，其中q=(a+b+c)/2。PrivateSubCommand1_Click()DimsAsSingleDimqAsSingleDimaAsSingleDimbAsSingleDimcAsSingle①=Val(InputBox(请输入边长a的值：))b=Val(InputBox(请输入边长b的值：))c=Val(InputBox(请输入边长c的值：))q=(a+b+c)/2s=②(q*(q-a)*(q-b)*(q-c))Print③EndSub【第4题】打开“Z:\28\工程1.vbp”，完善程序并保存。①max=b②max=c③max①text1.text②ss\3600③60①len②9-temp1③y①100②100③nexti①s(i)②-1③s(i)①or②是闰年③不是闰年①text1.text②b③text2.text①a②sqr③s祝您考试成功！共9页第2页实现功能：在三个文本框中输入一元二次方程的三个系数后，单击命令按钮，程序求出该方程的解。PrivateSubCommand1_Click()Dima,b,c,pAsSinglea=Val(Text1.Text)b=Val(①)c=Val(Text3.Text)p=b*b-4*a*cIf②ThenX1=(-b+Sqr(p))/(2*a)X2=(-b-Sqr(p))/(2*a)PrintX1=;X1PrintX2=;X2③Print该方程无实数根EndIfEndSub【第5题】打开“Z:\30\工程1.vbp”，完善程序并保存。实现功能：PrivateSubCommand1_Click()DimxAsSingle,yAsSinglea=3:b=-5①=Val(InputBox(请输入x的值))Ifx0Then②=x+5*aElsey=x-2*b③Printy=;CStr(y)EndSub操作题(5道共40分)【第1题】打开“Z:\43\工程1.vbp”，完善程序并保存。实现功能：用递归法求斐波那契数列1，1，2，3，5，8，…第10项的值。PublicFunctionFib(nAsInteger)AsIntegerIf(n=1)Or(n=2)ThenFib=①ElseFib=Fib(n-1)+Fib(n-2)②EndFunctionPrivateSubCommand1_Click()DimSAsIntegerS=Fib(③)PrintS=&CStr(S)EndSub【第2题】打开“Z:\41\工程1.vbp”，完善程序并保存。某超市为了对苹果进行促销，规定购买2公斤以上可以在原价每公斤6.80元的基础上打8折。实现功能：输入购买的苹果公斤数，输出应付款。PrivateSubCommand1_Click()DimxAsSingleDimcostAsSinglex=Val(InputBox(请输入苹果公斤数：))Ifx=2Thencost=①Elsecost=x*6.8*0.8②Print③EndSub【第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+bc)And(a+cb)And(b+ca)ThenLetText4.Text=OKElseLetText4.Text=NO②EndSub【第4题】打开“Z:\40\工程1.vbp”，完善程序并保存。实现功能：将一张100元面值的人民币换成若干5元、1元、5角面值的人民币，但要求100元换成的零钱共100张，且要求每种面值不少于1张，问5元、1元、5角各多少张，请输出每种可能的组合。PrivateSubCommand1_Click()DimWuyuanAsIntegerDimYiyuanAsIntegerDimWujiaoAsIntegerForWuyuan=1To20ForYiyuan=1To①Wujiao=100-Wuyuan-②IfWuyuan*5+Yiyuan*1+Wujiao*0.5=100ThenPrintWuyuan=&Wuyuan&,Yiyuan=&Yiyuan&,Wujiao=&Wujiao③NextYiyuanNextWuyuanEndSub【第5题】打开“Z:\45\工程1.vbp”，进行以下操作并保存。实现功能：(1)将label1标签上的文字设置为“测试系统”；(2)把窗体中显示用户名的文本框的字体设置为“楷体_GB2312”；(3)在窗体的相应位置添加一个“确定”的命令按钮。控件名请采用默认值。最终效果图如下：操作题(5道共40分)【第1题】打开“Z:\68\工程1.vbp”，完善程序并保存。①Text2.text②p=0③else①x②y③endif①1②endif③10①x*6.8②endif③cost①integer②endif①100②yiyuan③endif祝您考试成功！共9页第3页实现功能：在文本框Text1和Text2中分别输入两个整数，单击“交换”按钮后，两个文本框中的数字进行交换。PrivateSubCommand1_Click()DimaAsIntegerDimbAsIntegerDimtAsIntegera=Val(Text1.Text)b=Val(Text2.Text)t=aa=①b=②Text1.Text=③Text2.Text=④EndSub【第2题】某县开发山区农业，需要研究本区内的山地气候。已有的研究结果表明，海拔每升高100米，年平均气温降低0.5℃。打开文件“Z:\54\工程1.vbp”，完善程序，实现下列功能：在文本框text1中输入山脚处地表温度x，在文本框text2中输入相对高度h，在文本框text3中输出相应高度的气温y。（这一题的语言描述不够准确）PrivateSubCommand1_Click()Dimh,x,y①SingleLetx=Val(Text1.Text)Let②=Val(Text2.Text)Lety=x-(h/100)*0.5LetText3.Text=③EndSub【第3题】素数是指除了1与它本身以外不能被任何其它整数整除的数。打开文件“Z:\63\工程1.vbp”，完善程序实现以下功能后保存。输入一个小于2000000000的正整数到文本框text1中，如果它是素数(质数)，就输出“prime”，否则就输出“no”。（这里素数、质数的概念是什么关系？）PrivateSubComma