国家二级VB程序设计题带答案

Vb专项练习第一套题目1、翻开“考生文件夹\96\工程1.vbp〞，完善程序并保存。实现功能：假设有一个5位数密码。只记得密码为67□□8，其中百位和十位的数字记不清了，但知道该密码能够被78整除，也能被67整除。请完善算法帮助找出这个密码。67008x67008xNextxPrivateSubCommand1_Click()DimxAsLongForx=①To67998Step10If(xMod67=0)And(xMod78=0)ThenPrint②EndIf③EndSub2、“考生文件夹\51\工程1.vbp〞是采用“穷举法〞求出所有水仙花数的程序，请完善程序并保存。说明：假设一个三位数abc，满足：abc=a3+b3+c3，那么称abc为水仙花数。如三位数153满足：13+53+33=1+125+27=153，那么153是水仙花数。'请不要更改源程序的结构，删除原题里的①、②、③。填写正确的代码，使程序完善999imod10999imod10endifDimi,a,bAsIntegerFori=100To①a=i\100b=(i-a*100)\10c=②Ifa*a*a+b*b*b+c*c*c=iThenPrintCStr(i)③NextiEndSub3、翻开“考生文件夹\12\工程1.vbp〞，完善程序并保存。实现功能：在Text1中输入一个代表秒数的整数后，单击“计算〞按钮后，在Label1、Label2、Label3中显示对应的小时、分钟和秒数。如在Text1中输入“3672〞，Label1、Label2、Label3中分别显示“1〞、“1〞、“12〞，即1小时1分12秒。'请不要更改源程序的结构，删除原题里的①、②、③。填写正确的代码，使程序完善text1.textss\3600text1.textss\360060Dimh,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)EndSub4、翻开“考生文件夹\50\工程1.vbp〞，完善程序并保存。实现功能：在文本框text1、text2、text3中输入3根小木棒的长度(假设都是整数)，判断能否用它们搭成一个三角形，并把结果输出到文本框text4中。操作要求：〔1〕在窗体中加载“CommandButton〞控件，命名为“Command1〞并设置该控件“Caption〞属性值为“判断〞；〔2〕完善程序，执行command1_click事件，判断出结果，如果能搭成三角形那么在文本框text4中输出“OK〞，否那么输出“NO〞。'请不要更改源程序的结构，删除原题里的①、②。填写正确的代码，使程序完善integerendifintegerendifDima,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)ThenLetText4.Text="OK"ElseLetText4.Text="NO"②EndSub5、翻开“考生文件夹\40\工程1.vbp〞，完善程序并保存。实现功能：将一张100元面值的人民币换成假设干5元、1元、5角面值的人民币，但要求100元换成的零钱共100张，且要求每种面值不少于1张，问5元、1元、5角各多少张，请输出每种可能的组合。'请不要更改源程序的结构，删除原题里的①、②、③。填写正确的代码，使程序完善PrivateSubCommand1_Click()DimWuyuanAsInteger100yiyuan100yiyuanendifDimWujiaoAsIntegerForWuyuan=1To20ForYiyuan=1To①Wujiao=100-Wuyuan-②IfWuyuan*5+Yiyuan*1+Wujiao*0.5=100ThenPrint"Wuyuan="&Wuyuan&",Yiyuan="&Yiyuan&",Wujiao="&Wujiao③NextYiyuanNextWuyuanEndSubVb专项练习第二套1、翻开“考生文件夹\716〞文件夹中的文件：“工程1.vbp〞进行以下操作后并保存。某同学欲设计一个“水电费管理系统〞，其功能如下：水按每吨4元收取，电按每度0.5元收取，输入用水量和用电量，输出应付款。请翻开工程1.vbp文件，按如下要求完成以下操作。〔1〕请在窗体中添加两个控件，使程序运行时，用其输入耗水量和耗电量。〔2〕请把以下代码补充完整Text1.textText1.textText2.text4*a+0.5*bsDimaAsSingle,bAsSingle,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元/每千克计算，〔总重缺乏'0.5千克按210元收费〕下面是自动计算寄费的程序，请你完善程序。'请不要更改源程序的结构，删除原题里的①、②、③。填写正确的代码，使程序完善PrivateSubCommand1_Click()xendifxendiftext2.texty=0①=Val(Text1.Text)Ifx>0.5Theny=210+(x-0.5)*55Elsey=210②③=Str(y)EndSub3、翻开“考生文件夹\91\工程1.vbp〞，完善程序并保存。实现功能：随机生成100个整数，统计偶数的个数。'请不要更改源程序的结构，删除原题里的①、②、③。填写正确的代码，使程序完善Dima(100)AsIntegertotal=0total=total+1total=0total=total+1a(i)DimtotalAsInteger①Fori=1To100Ifa(i)Mod2=0Then②EndIfNextiPrintCStr(total)EndSubPrivateSubForm_Load()RandomizeFori=1To100③=Int(Rnd*1000)NextiEndSub4、翻开文件“考生文件夹\725\工程1.vbp〞，进行以下操作后保存。这是打印九九乘法表的程序，请你完善程序。完成后按“Ctrl+W〞保存程序。〔详见样张〕'这是打印乘法九九表的程序，请完善程序。'请不要更改源程序的结构，删除原题里的①、②、③。填写正确的代码，使程序完善PrivateSubForm_click()9i9inextiFori=1To①Forj=1To②PrintTab((j-1)*12);Printj;"*";i;"=";i*j;NextjPrint③EndSub5、翻开“考生文件夹\4\工程1.vbp〞，完善程序并保存。实现功能：用穷举法找出所有的3位水仙花数的程序并保存。3位水仙花数是指一个三位数，其各个数位上的数字之立方和为该数。例如：153=13+53+33。'请不要更改源程序的结构，删除原题里的①、②、③。填写正确的代码，使程序完善PrivateSubCommand1_Click()DimiAsInteger,aAsInteger,bAsInteger,cAsInteger100100100100nextia=i\①b=(i-a*②)\10c=iMod10Ifa^3+b^3+c^3=iThenPrinti③EndSubVb专项练习第三套1、翻开“考生文件夹\731〞文件夹中的文件：“工程1.vbp〞进行以下操作后并保存。此题是青蛙跃井问题：井底蛙欲沿湿滑井壁上跃至地面，假设井深h尺，蛙上跃3尺下滑1尺，请给出井深h值，计算蛙上跃次数n。请你完善程序。完成后按“Ctrl+W〞保存程序。〔详见样张〕'此题是青蛙跃井问题：井底蛙欲沿湿滑井壁'上跃至地面，假设井深h尺，蛙上跃3尺下滑1尺，'请给出井深h值，计算蛙上跃次数n。'请不要更改源程序的结构，删除原题里的①、②、③。填写正确的代码，使程序完善PrivateSubCommand1_Click()DimhAsSingle,nAsIntegertext1.text1text1.text1nIfh>3ThenIfhMod2=0Thenn=h/2Elsen=(h-1)/2EndIfElsen=②EndIfText2.Text=③EndSub2、翻开“考生文件夹\729〞文件夹中的文件：“工程1.vbp〞进行以下操作后并保存。运行程序能够显示数字金字塔，请完善程序。完成后按“Ctrl+W〞保存程序。〔详见样张〕'运行程序能够显示数字金字塔，请完善程序。'请不要更改源程序的结构，删除原题里的①、②、③。填写正确的代码，使程序完善PrivateSubForm_Click()DimiAsInteger,jAsIntegerFori=1To①5i5iprintForj=1To②PrintStr(i);Nextj③NextiEndSub3、翻开“考生文件夹\733〞文件夹中的文件：“工程1.vbp〞进行以下操作后并保存。此题是在文本框Text1中输入一位十六进制数码〔假设是字母要大写〕，运行程序后能译出它表示的十进制数的程序。请你完善程序。完成后按“Ctrl+W〞保存程序。〔详见样张〕'此题是在text1中输入一位十六进制数码〔假设是字母要大写〕，'运行程序后能译出它表示的十进制数的程序。'请不要更改源程序的结构，删除原题里的①、②、③。填写正确的代码，使程序完善PrivateSubCommand1_Click()①text1.text①text1.text②endselect③mm=①SelectCasemCase"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=③EndSub4、翻开“考生文件夹\732〞文件夹中的文件：“工程1.vbp〞进行以下操作后并保存。此题是从字符串中找出所有大写字母，并把找出的大写字母显示在text2中。请你完善程序。完成后按“Ctrl+W〞保存程序。〔详见样张〕'此题是从一串只含有字母或数字的字符串中找出所有大写字母，'并把找出的大写字母显示在text2中。'请不要更改源程序的结构，删除原题里的①、②、③。填写正确的代码，使程序完善①text1.text①text1.text②n③yDimxAsString,yAsStringDimiAsInteger,nAsIntegerx=①n=Len(x)Fori=1To②IfAsc(Mid(x,i,1))<91AndAsc(Mid(x,i,1))>64Theny=y+Mid(x,i,1)EndIfNextiText2.Text=③EndSub5、翻开“考生文件夹\730〞文件夹中的文件：“工程1.vbp〞进行以下操作后并保存。运行程序能够显示数字金字塔，请完善程序。完成后按“Ctrl+W〞保存程序。〔详见样张〕'运行程序能够显示数字金字塔，请完善程序。'请不要更改源程序的结构，删除原题里的①、②、③。填写正确的代码，使程序完善①j①j②j③nextjDimiAsInteger,jAsIntegerFor①=1To5PrintTab(10-j);Fori=1To②PrintStr(i);NextiPrint③EndSubVb专项练习第4套1、翻开“考生文件夹\735〞文件夹中的文件：“工程1.vbp〞进行以下操作后并保存。完善程序,使之在运行程序后，能在窗体上显示样张所示的图形。完成后按“Ctrl+W〞保存程序。〔详见样张〕'完善程序,使之在运行程序后，能在窗体上显示样张所显示的图形。'请不要更改源程序的结构，删除原题里的①、②、③。填写正确的代码，使程序完善①200①200②255,0,0③600Line(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)EndSub2、翻开“考生文件夹\36\工程1.vbp〞，完善程序并保存。实现功能：给出三角形的三边边长a，b，c〔输入保证能构成三角形，无需判断正确性〕，输出三角形面积。三角形面积计算公式：'请不要更改源程序的结构，删除原题里的①、②、③。填写正确的代码，使程序完善PrivateSubCommand1_Click()asqrasqrsDimqAsSingleDimaAsSingleDimbAsSingleDimcAsSingle①=Val(InputBox("请输入边长a的值："))b=Val(InputBox("请输入边长b的值："))c=Val(InputBox("请输入边长c的值："))q=(a+b+c)/2s=②(q*(q-a)*(q-b)*(q-c))Print③EndSub3、翻开“考生文件夹\60\工程1.vbp〞，完善程序并保存。实现功能：从文本框t1中输入一个圆的半径，计算圆的面积，把结果输出到文本框t2中。'请不要更改源程序的结构，删除原题里的①、②、③。填写正确的代码，使程序完善PrivateSubCommand1_Click()dimt1.textdimt1.texts①r,sasSingler=Val(②)s=pi*r*rT2.Text=③EndSub4、翻开“考生文件夹\32\工程1.vbp〞，完善程序并保存。实现功能：从键盘上输入一个三位数，然后将它反向输出。例如输入“123〞，输出结果为“321〞。'请不要更改源程序的结构，删除原题里的①、②、③。填写正确的代码，使程序完善PrivateSubCommand1_Click()DimaAsInteger,bAsIntegerDimbaiAsInteger,shiAsIntegertext1.textbtext1.textbtext2.texta=Val(①)bai=a\100shi=(a-bai*100)\10g=aMod10②=g*100+shi*10+bai③=CStr(b)EndSub5、翻开“考生文件夹\736〞文件夹中的文件：“工程1.vbp〞进行以下操作后并保存。该题求丢番图年龄问题：丢番图生命的1/6是童年，又过了生命的1/12长胡子，再过了生命的1/7结婚，婚后5年生儿子，儿子活了父亲年龄的一半死亡，之后丢番图又过了4年死亡。求丢番图年龄。完善程序,使之在运行程序后，能在text1中显示丢番图年龄。完成后按“Ctrl+W〞保存程序。〔详见样张〕'该题是求丢番图年龄问题：丢番图生命的1/6是童年，'又过了1/12长胡子，再过了的1/7结婚，婚后5年生儿子，'儿子活了父亲年龄的一半死亡，之后丢番图又过了4年死亡。'求丢番图年龄。'请不要更改源程序的结构，删除原题里的①、②、③。填写正确的代码，使程序完善PrivateSubCommand1_Click()①n①n②while③text1.textn=0Do①=n+1Loop②n<n/6+n/12+n/7+5+n/2+4③=Str(n)EndSubVb专项练习第五套1、翻开“考生文件夹\178\工程1.vbp〞，完善程序并保存。实现功能：用递归法求3!+5!+7!的值。'请不要更改源程序的结构，删除原题里的①、②、③。填写正确的代码，使程序完善PublicFunctionFac(aAsInteger)AsIntegerIfa=1Then1Fac1Fac5ElseFac=a*②(a-1)EndIfEndFunctionPrivateSubCommand1_Click()DimSAsIntegerS=Fac(3)+Fac(③)+Fac(7)Print"S="&CStr(S)EndSub2、翻开“考生文件夹\122\工程1.vbp〞，完善程序并保存。王晓珊家距离学校S1公里，某天她和李明各自同时从家里步行出发上学，王晓珊步行V1公里/小时，李明步行V2公里/小时，结果他们同时到达学校。实现功能：输入S1,V1,V2，输出李明家与学校之间的距离S2。'请不要更改源程序的结构，删除原题里的①、②、③。填写正确的代码，使程序完善s1/v1v2s1/v1v2s2DimS1AsSingle,S2AsSingleDimV1AsSingle,V2AsSingleDimTAsSingleS1=Val(InputBox("请输入王晓珊家离学校的距离："))V1=Val(InputBox("请输入王晓珊步行速度："))V2=Val(InputBox("请输入李明步行速度："))T=①S2=②*TPrint③EndSub3、翻开“考生文件夹\43\工程1.vbp〞，完善程序并保存。实现功能：用递归法求斐波那契数列1，1，2，3，5，8，…第10项的值。'请不要更改源程序的结构，删除原题里的①、②、③。填写正确的代码，使程序完善PublicFunctionFib(nAsInteger)AsInteger1endif1endif10Fib=①ElseFib=Fib(n-1)+Fib(n-2)②EndFunctionPrivateSubCommand1_Click()DimSAsIntegerS=Fib(③)Print"S="&CStr(S)EndSub4、翻开“考生文件夹\175\工程1.vbp〞，完善程序并保存。实现功能：用递归法求1+2+3+…+100的值。'请不要更改源程序的结构，删除原题里的①、②、③。填写正确的代码，使程序完善PublicFunctionS(nAsInteger)AsInteger1n1n100S=①ElseS=②+S(n-1)EndIfEndFunctionPrivateSubCommand1_Click()DimSumAsIntegerSum=S(③)Print"Sum="&CStr(Sum)EndSub5、翻开“考生文件夹\68\工程1.vbp〞，完善程序并保存。实现功能：在文本框Text1和Text2中分别输入两个整数，单击“交换〞按钮后，两个文本框中的数字进行交换。''请不要更改源程序的结构，删除原题里的①、②、③、④。填写正确的代码，使程序完善PrivateSubCommand1_Click()btbtabDimbAsIntegerDimtAsIntegera=Val(Text1.Text)b=Val(Text2.Text)t=aa=①b=②Text1.Text=③Text2.Text=④EndSubVb专项练习第六套1、翻开"考生文件夹\30\工程1.vbp"，完善程序并保存。实现功能：'请不要更改源程序的结构，删除原题里的①、②、③。填写正确的代码，使程序完善xyxyendifDimxAsSingle,yAsSinglea=3:b=-5①=Val(InputBox("请输入x的值"))Ifx<0Then②=x+5*aElsey=x-2*b③Print"y=";CStr(y)EndSub2、翻开“考生文件夹\596\工程1.vbp〞，完善程序并保存。实现功能：当在文本框Text1中输入圆的半径后，单击“计算〞按钮，计算圆的周长，并在文本框Text2中显示出来。'填空完成程序，使得当在Text1中输入圆的半径后，单击"计算"按钮，计算圆的周长，并在Text2中显示出来。'注：请不要更改原程序结构，删除①、②、③，并在对应的位置填写正确代码PrivateSubCommand1_Click()①text1.text①text1.text②r*2③text2.textDimcAsSingle'定义周长c为单精度型DimrAsSingle'定义半径r为单精度型r=Val(①)c=pi*②③=CStr(c)EndSub3、翻开“考生文件夹\611\工程1.vbp〞，完善程序并保存。实现功能：当单击“显示〞按钮后，Text1、Text2分别显示交换后的变量x、y值。'填空完成程序，使得单击"显示"按钮时，Text1、Text2分别显示变量x、y的值。'注：请不要更改原程序结构，删除①、②、③，并在对应位置填写正确的代码PrivateSubCommand1_Click()Dimx,yAsIntegerx=10y=100Ifx<yThenxtx'以下三条语句交换xtxt=①x=yy=②EndIfText1.Text=③Text2.Text=CStr(y)EndSub4、翻开“考生文件夹\41\工程1.vbp〞，完善程序并保存。某超市为了对苹果进行促销，规定购置2公斤以上可以在原价每公斤6.80元的根底上打8折。实现功能：输入购置的苹果公斤数，输出应付款。'请不要更改源程序的结构，删除原题里的①、②、③。填写正确的代码，使程序完善PrivateSubCommand1_Click()DimxAsSingleDimcostAsSinglex*6.8endifcostx=Val(InputBox("x*6.8endifcostIfx<=2Thencost=①Elsecost=x*6.8*0.8②Print③EndSub5、翻开“考生文件夹\20\工程1.vbp〞，完善程序并保存。某超市苹果价格每斤4元，购置10斤以上(包括10斤)将享受8折优惠。实现功能：使得在Text1中输入重量并单击“计算〞按钮后，在Label1中显示对应的价格。'请不要更改源程序的结构，删除原题里的①、②、③。填写正确的代码，使程序完善PrivateSubCommand1_Click()①x>=10②x*0.8①x>=10②x*0.8③sx=Val(Text1.Text)If①Thens=4*②Elses=4*xEndIfLabel1.Caption=CStr(③)EndSubVb专项练习第七套1、翻开“考生文件夹\614\工程1.vbp〞，完善程序并保存。实现功能：当单击“显示〞按钮后，随机产生10个属于区间[0，100)的自然数，并保存于数组a中，然后在窗体上显示这10个数中的最大值。(注：学生运算结果有可能跟样图中数值不一致)'(注：学生运算结果有可能跟样图中数值不一致。)'注：请不要更改原程序结构，删除①、②、③，并在对应位置填写正确的代码PrivateSubCommand1_Click()Dima(9)AsIntegerDimmaxAsIntegerDimiAsInteger9a9a(i)maxPrintRandomizeFori=0To①Step1a(i)=Int(Rnd*100)Printa(i)Nextimax=a(0)Fori=1To9Ifmax<a(i)Thenmax=②EndIfNextiPrint"这10个自然数中的最大值=";CStr(③)EndSub2、翻开“考生文件夹\15\工程1.vbp〞，完善程序并保存。实现功能：单击按钮后打印出下面所示的图案。(第一行的第一个“*〞从第5列开始输出)'请不要更改源程序的结构，删除原题里的①、②、③。填写正确的代码，使程序完善PrivateSubCommand1_Click()①4①4②4③“*〞Fori=1To①PrintTab(6-i);Forj=1To②Print③;NextjPrintNextiEndSub3、翻开“考生文件夹\598\工程1.vbp〞，完善程序并保存。举重比赛中，60公斤级选手体重不能超过60公斤。实现功能：填空完成程序，使得在文本框Text1中输入一个大于60的数时，标签Label1显示“超重！不能参赛！〞；当输入一个小于等于60的数时，标签Label1显示“合格，可以参赛！〞。'举重比赛中，60公斤级选手体重不能超过60公斤。'填空完成程序，使得在文本Text1中输入一个大于60的数时，标签Label1显示"超重！不能参赛！"；'当输入一个小于等于60的数时，标签Label1显示"合格，可以参赛！"。'注：请不要更改原程序结构，删除①、②、③，并在对应位置填写正确的代码PrivateSubCommand1_Click()DimtAsSingle'定义变量t，值由文本框Text1读入text1.textt>60text1.textt>60endifIf②ThenLabel1.Caption="超重！不能参赛！"ElseLabel1.Caption="合格，可以参赛！"③EndSub4、翻开“考生文件夹\108\工程1.vbp〞，完善程序并保存。实现功能：判断从文本框Text1中输入的数据，如果该数据满足条件：除以3余2，除以5余3，除以7余4，那么输出在窗体上。'请不要更改源程序的结构，删除原题里的①、②、③。填写正确的代码，使程序完善PrivateSubCommand1_Click()x=Val(Text1.Text)xmod5xmod7=4xmod5xmod7=4xIf①=3ThenIf②ThenPrint③EndIfEndIfEndIfEndSub5、翻开“考生文件夹\181\工程1.vbp〞，完善程序并保存。实现功能：从键盘输入10个学生的测试成绩，输出最高分和最低分。'请不要更改源程序的结构，删除原题里的①、②、③。填写正确的代码，使程序完善PrivateSubCommand1_Click()Dimcj(10)AsSingleDimiAsIntegerDimmaxAsSingleDimminAsSingleFori=1To10cj(i)=Val(InputBox("请输入10个学生的成绩","成绩输入"))Nextimax=cj(1)min=cj(1)Fori=2To10Ifcj(i)>maxThenmax=①①cj(i)①cj(i)②cj(i)<min③cj(i)If②Thenmin=③EndIfNextiPrintCStr(max),CStr(min)EndSubVb专项练习第八套1、翻开“考生文件夹\117\工程1.vbp〞，完善程序并保存。实现功能：当单击窗体后，计算22＋42＋62＋…＋N<1500的N的最大值。'请不要更改源程序的结构，删除原题里的①、②、③。填写正确的代码，使程序完善PrivateSubForm_Click()DimsAsIntegernn+20nn+20n-20N=22s=0Dos=s+①N=②LoopUntils>1500Print"N="&CStr(③)EndSub2、翻开“考生文件夹\9\工程1.vbp〞，完善程序并保存。实现功能：输入10个数，存放在数组中，并按输入的逆序输出在窗体上。'请不要更改源程序的结构，删除原题里的①、②、③。填写正确的代码，使程序完善PrivateSubCommand1_Click()s(i)-1s(i)-1s(i)Fori=0To9①=Val(InputBox("请输入一个数"))NextiFori=9To0Step②Print③NextiEndSub3、翻开“考生文件夹\87\工程1.vbp〞，完善程序并保存。实现功能：通过键盘输入10个数，统计这10个数的和。'请不要更改源程序的结构，删除原题里的①、②、③。填写正确的代码，使程序完善to10s=s+xto10s=s+xsDimxAsIntegerDimsAsIntegerDimiAsIntegerFori=1①x=Val(InputBox("NO."&i))②PrintCStr(x)NextiPrint"total:"&③4、翻开“考生文件夹\116\工程1.vbp〞，完善程序并保存。实现功能：计算1+3+5+…+99的值。'请不要更改源程序的结构，删除原题里的①、②、③。填写正确的代码，使程序完善PrivateSubCommand1_Click()DimiAsIntegerii+2ii+2si=1s=0DoWhilei<=99s=s+①i=②LoopPrint"s="&③EndSub5、翻开“考生文件夹\80\工程1.vbp〞，完善程序并保存。一群猴子摘了一堆桃子，每天吃掉当天剩余桃子数的一半，每次又忍不住多吃一个，这样到了第十天就剩下一个桃子可以吃了。实现功能：计算猴子最初一共摘了多少个桃子。'请不要更改源程序的结构，删除原题里的①、②、③、④。填写正确的代码，使程序完善PrivateSubCommand1_Click()19(tz+1)19(tz+1)tzDimtsAsInteger'ts是天数tz=①Forts=1To②tz=③*2NexttsPrint"最初共有桃子"&④EndSubVb专项练习第九套1、翻开“考生文件夹\601\工程1.vbp〞，完善程序并保存。实现功能：当单击窗体后，计算出1+2+3+…+N<500的N的最大值，并在文本框Text1中显示出来。'填空完成程序，使得单击窗体后，计算出1+2+3+…+N<500的N的最大值，并在文本框Text1中显示出来。'注：请不要更改源程序结构，删除①、②、③，并在对应位置填写正确的代码PrivateSubForm_Click()DimsAsInteger'变量s存放和DimnAsInteger0000S+nn=①'为s赋初值s=②DoWhiles<500n=n+1s=③LoopText1.Text=CStr(n-1)EndSub2、翻开“考生文件夹\183\工程1.vbp〞，完善程序并保存。实现功能：利用格里高利公式求，直到最后一项的值小于0.0001为止，输出的值。'请不要更改源程序的结构，删除原题里的①、②、③、④。填写正确的代码，使程序完善PrivateSubCommand1_Click()00ts/n4DimnAsInteger,sAsSinglePi=①t=1:n=1:s=1DoWhileAbs(t)>=0.0001Pi=Pi+②n=n+2s=-st=③LoopPi=Pi*④Print"Pi="&CStr(Pi)EndSub3、翻开“考生文件夹\597\工程1.vbp〞，完善程序并保存。实现功能：计算s=1!+2!+3!+…+8!的值并在窗体上打印出结果。'填空完成程序，计算s=1!+2!+3!+…+8!的值并在窗体上打印出结果。'注：请不要更改源程序结构，删除①、②、③，并在对应位置填写正确的代码PrivateSubForm_Click()DimsAsSingle's变量用于存放计算结果DimpAsSingleDimiAsInteger'定义一个循环变量0101s+ps=①'给p赋初值p=②Fori=1To8p=p*is=③NextiPrint"s=";CStr(s)EndSub4、翻开“考生文件夹\119\工程1.vbp〞，完善程序并保存。关于人口问题，如果我国人口年增长率为4％，问多少年后我国人口超过20亿。(假设现在我国人口为14亿)实现功能：当单击窗体后，在窗体上输出问题答案。'请不要更改源程序的结构，删除原题里的①、②、③、④。填写正确的代码，使程序完善PrivateSubForm_Click()DimpAsInteger'变量p保存人口DimnAsLongp=14p<p=14p<＝20(1+0.04)N+1n=0DoWhile②p=p*③n=④LoopPrint"n="&CStr(n)EndSub5、翻开“考生文件夹\599\工程1.vbp〞，完善程序并保存。实现功能：当单击窗体后，计算1+2+3+…+N>500的N的最小值，并在文本框Text1中显示出来。'填空完成程序，使得当单击窗体后，计算1+2+3+…+N>500的N的最小值，并在文本框Text1中显示出来。'注：请不要更改源程序结构，删除①、②、③，并在对应位置填写正确的代码PrivateSubForm_Click()DimsAsInteger'变量s存放和DimnAsInteger'为s赋初值00<=00<='为n赋初值n=②Don=n+1s=s+nLoopWhiles③500Text1.Text=CStr(n)EndSubVb专项练习第十套1、翻开“考生文件夹\612\工程1.vbp〞，完善程序并保存。实现功能：当单击“显示〞按钮后，在窗体上显示如图99乘法表。'填空完成程序，使得单击"显示"按钮后，在窗体上显示如图99乘法表。'注：请不要更改源程序结构，删除①、②、③，并在对应位置填写正确的代码。PrivateSubCommand1_Click()DimiAsInteger9I*j;9I*j;NextiFori=1To①Step1