2013江苏省信息技术学业水平测试vb操作题带答案

《2013江苏省信息技术学业水平测试vb操作题带答案》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、祝您考试成功！2013江苏省信息技术学业水平测试vb操作题带答案Vb专项练习第一套1、打开“考生文件夹716”文件夹中的文件：“工程1.vbp”进行以下操作后并保存。某同学欲设计一个“水电费管理系统”，其功能如下：水按每吨4元收取，电按每度0.5元收取，输入用水量和用电量，输出应付款。请打开工程1.vbp文件，按如下要求完成下列操作。（1）请在窗体中添加两个控件，使程序运行时，用其输入耗水量和耗电量。（2）请把下列代码补充完整①Text1.text②Text2.text③4*a+0.5*b④sPrivateSubCommand1_Click()DimaAsSingle,bAsS

2、ingle,sAsSinglea=Val(①)b=Val(②)s=③Label4.Caption=Str(④)+"元"EndSub2、打开“考生文件夹723”文件夹中的文件：“工程1.vbp”进行以下操作后并保存。中国邮政的EMS国际快递业务：中国寄往澳大利亚的快递收费标准是：首个0.5公斤收费210元，其余的重量按55元/千克计算，（总重不足0.5千克按210元收费）下面是自动计算寄费的程序，请完善程序。完成后按“Ctrl+W”保存程序。（详见样张）'中国邮政的EMS国际快递业务：中国寄往澳大利亚的快递收费标准是：'首个0.5公斤收费210元，其余的重量按55元/每千克计算，

3、（总重不足'0.5千克按210元收费）下面是自动计算寄费的程序，请你完善程序。'请不要更改源程序的结构，删除原题里的①、②、③。填写正确的代码，使程序完善PrivateSubCommand1_Click()①x②endif③text2.textDimxAsSingle,yAsSingley=0①=Val(Text1.Text)Ifx>0.5Theny=210+(x-0.5)*55Elsey=210②③=Str(y)EndSub3、打开“考生文件夹91工程1.vbp”，完善程序并保存。实现功能：随机生成100个整数，统计偶数的个数。'请不要更改源程序的结构，删除原题里的①、②、

4、③。填写正确的代码，使程序完善Dima(100)AsInteger①total=0②total=total+1③a(i)PrivateSubCommand1_Click()DimtotalAsInteger①Fori=1To100第18页共18页祝您考试成功！Ifa(i)Mod2=0Then②EndIfNextiPrintCStr(total)EndSubPrivateSubForm_Load()RandomizeFori=1To100③=Int(Rnd*1000)NextiEndSub4、打开文件“考生文件夹725工程1.vbp”，进行以下操作后保存。这是打印九九乘法表的程

5、序，请你完善程序。完成后按“Ctrl+W”保存程序。（详见样张）'这是打印乘法九九表的程序，请完善程序。'请不要更改源程序的结构，删除原题里的①、②、③。填写正确的代码，使程序完善PrivateSubForm_click()①9②i③nextiDimiAsInteger,jAsIntegerFori=1To①Forj=1To②PrintTab((j-1)*12);Printj;"*";i;"=";i*j;NextjPrint③EndSub5、打开“考生文件夹4工程1.vbp”，完善程序并保存。实现功能：用穷举法找出所有的3位水仙花数的程序并保存。3位水仙花数是指一个三位数，其

6、各个数位上的数字之立方和为该数。例如：153=13+53+33。'请不要更改源程序的结构，删除原题里的①、②、③。填写正确的代码，使程序完善PrivateSubCommand1_Click()DimiAsInteger,aAsInteger,bAsInteger,cAsInteger①100②100③nextiFori=100To999a=i①b=(i-a*②)10c=iMod10Ifa^3+b^3+c^3=iThenPrinti③EndSubVb专项练习第二套题目1、打开“考生文件夹96工程1.vbp”，完善程序并保存。实现功能：假设有一个5位数密码。只记得密码为67□

7、□8，其中百位和十位的数字记不清了，但知道该密码能够被78整除，也能被67整除。请完善算法帮忙找出这个密码。①67008②x③Nextx''请不要更改源程序的结构，删除原题里的①、②、③。填写正确的代码，使程序完善第18页共18页祝您考试成功！PrivateSubCommand1_Click()DimxAsLongForx=①To67998Step10If(xMod67=0)And(xMod78=0)ThenPrint②EndIf③EndSub2、“考生文件夹51工程1.vb