2015高中信息技术考试vb程序题及答案

《2015高中信息技术考试vb程序题及答案》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。

1、第一套1、'填空完成程序，使得当单击窗体后，Label1上显示100以内（含100）偶数之和。PrivateSubForm_Click()DimiAsInteger'定义变量iDimsAsInteger'定义变量s，用于存放100以内（含100）偶数的和s=0Fori=2To100Step2s=s+iNextiLabel1.Caption=Str(s)EndSub2、'填空完成程序，使得当在Text1中输入圆的半径后，单击"计算"按钮，计算圆的周长，并在Text2中显示出来。PrivateSubCommand1_Click()Constpi=3.14'定

2、义符号常量DimcAsSingle'定义周长c为单精度型DimrAsSingle'定义半径r为单精度型r=Val(text1.text)c=pi*2*rtext2.text=cEndSub第二套'填空完成程序，计算s=1!+2!+3!+…+8!的值并在窗体上打印出结果。PrivateSubForm_Click()DimsAsSingle's变量用于存放计算结果DimpAsSingleDimiAsInteger'定义一个循环变量'给s赋初值s=0'给p赋初值p=1Fori=1To8p=p*is=s+pNextiPrint"s=";sEndSub'10填空完

3、成程序，使得当单击窗体后，计算1+2+3+…+N>500的N的最小值，并在文本框Text1中显示出来。PrivateSubForm_Click()DimsAsInteger'变量s存放和DimnAsInteger'为s赋初值s=0'为n赋初值n=0Don=n+1s=s+nLoopWhiles<=500Text1.Text=Str(n)EndSub第三套'举重比赛中，60公斤级选手体重不能超过60公斤。'填空完成程序，使得在文本Text1中输入一个大于60的数时，标签Label1显示"超重！不能参赛！"；'当输入一个小于等于60的数时，标签Label1显示

4、"合格，可以参赛！"。PrivateSubCommand1_Click()DimtAsSingle'定义变量t，值由文本框Text1读入t=Val(text1.text)If>ThenLabel1.Caption="超重！不能参赛！"ElseLabel1.Caption="合格，可以参赛！"EndifEndSub'填空完成程序，使得单击窗体后，计算出1+2+3+…+N<500的N的最大值，并在文本框Text1中显示出来。PrivateSubForm_Click()DimsAsInteger'变量s存放和DimnAsInteger'为n赋初值n=0'为s赋

5、初值10s=0DoWhiles<500n=n+1s=s+nLoopText1.Text=Str(n-1)EndSub第四套'这是一个简单的显示评语程序，填空完成程序，在文本框Text1中输入一个数后，单击"评语"按钮，在标签Label1显示评语。'当输入一个小于60的数时，显示"不及格"；'当输入一个大于等于60且小于85的数时，显示"良好"；'当输入一个大于等于85的数时，显示"优秀"。PrivateSubCommand1_Click()DimCjAsSingle'定义变量Cj，值由文本框Text1读入Cj=Val(text1.text)IfCj<60

6、thenLabel1.Caption="不及格"EndIfIfCj>=60AndCj<85ThenLabel1.Caption="良好"EndIfIfCj>=85ThenLabel1.Caption="优秀"EndIfEndSub'某公司2005年的总产值为2000万元，若总产值以每年5%的速度增长，多少年后总产值翻一倍？'填空完成程序，使得当单击窗体后，在窗体上输出问题答案。PrivateSubForm_Click()DimpAsSingle'变量p保存年产值DimnAsInteger'整型变量n为所求年数P=2000n=0DoWhilep<4000p

7、=p*1.05n=n+1LoopPrint"n=";nEndSub10第五套'填空完成程序，使得当单击"计算7！"按钮后，Text1显示7！的值。PrivateSubCommand1_Click()DimaAsIntegerDimiAsIntegera=1Fori=1To7Step1a=a*iNextiText1.Text=Str((3))EndSub'填空完成程序，编程计算1-1/2+1/3-1/4+...+1/99-1/100，单击窗体后，在窗体上显示结果。PrivateSubForm_Click()DimsAsSingleDimiAsInteger

8、s=0Fori=1To100Step1IfiMod2<>0Thens=s+1/i