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

第一套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'定义符号常量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'填空完成程序，使得当单击窗体后，计算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显示"合格，可以参赛！"。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赋初值s=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<60thenLabel1.Caption="不及格"EndIfIfCj>=60AndCj<85ThenLabel1.Caption="良好"EndIfIfCj>=85ThenLabel1.Caption="优秀"EndIfEndSub'某公司2005年的总产值为2000万元，若总产值以每年5%的速度增长，多少年后总产值翻一倍？'填空完成程序，使得当单击窗体后，在窗体上输出问题答案。PrivateSubForm_Click()DimpAsSingle'变量p保存年产值DimnAsInteger'整型变量n为所求年数P=2000n=0DoWhilep<4000p=p*1.05n=n+1LoopPrint"n=";nEndSub第五套'填空完成程序，使得当单击"计算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()DimsAsSingleDimiAsIntegers=0Fori=1To100Step1IfiMod2<>0Thens=s+1/iElses=s-1/iEndIfNextiPrint"s=";sEndSub第六套'填空完成程序，编程计算1+1/2+1/3+1/4...+1/99+1/100，单击窗体后，在窗体上显示结果。PrivateSubForm_Click()DimsAsSingle'定义变量s为单精度型DimiAsInteger'定义循环变量s=0Fori=1To100Step1s=s+1/iNextiPrint"s=";sEndSub'填空完成程序，使得当单击"计算1+2+3+…+100"按钮后，文本框Text1显示1+2+3+…+100的值。PrivateSubCommand1_Click()DimaAsIntegerDimiAsIntegera=0Fori=1To100Step1a=a+iNextiText1.Text=Str((4))EndSub第七套'填空完成程序，使得单击"显示"按钮后，随机产生10个属于区间[0，100)的自然数，并保存于数组a中。'然后在窗体上显示这10个数的平均值。'注：学生运算结果有可能跟样图中数值不一致。PrivateSubCommand1_Click()Dima(9)AsIntegerDimsAsSingleDimiAsIntegerMe.Clss=0RandomizeFori=0To9Step1a(i)=Int(Rnd*100)Printa(i)NextiFori=0To9s=s+a(i)NextiPrint"这10个自然数的平均值=";s/10EndSub'填空完成程序，左键单击窗体时打印下面所示的图案。'****'***'**'*PrivateSubForm_Click()DimiAsIntegerDimjAsIntegerFori=4To1Step-1Forj=1ToiStep1Print"*";NextjprintNextiEndSub第八套'填空完成程序，问：鸡兔同笼，共有100条腿，40个头，问鸡有几只，兔有几只?'单击窗体后，在窗体上显示结果。PrivateSubForm_Click()DimJiAsInteger'Ji变量表示鸡的个数DimTuAsInteger'Tu变量表示兔的个数DimLegAsInteger'Leg变量表示腿数ForJi=1To40Tu=40-ji'计算腿数Leg=ji*2+Tu*4'如果腿正好100只，则打印。IfLeg=100ThenPrint"鸡=";Ji;"只","兔=";Tu;"只"EndIfNextJiEndSub'填空完成程序，使得单击"显示"按钮后，显示下面的图形：'@'@@'@@@'@@@@'@@@@@'@@@@@@PrivateSubCommand1_Click()DimiAsInteger'定义i为整型变量DimjAsInteger'定义j为整型变量Fori=1To6Step1Forj=1ToIStep1Print"@";NextjPrintNextiEndSub第九套'填空完成程序，使得单击"显示"按钮时，Text1、Text2分别显示变量x、y的值。PrivateSubCommand1_Click()Dimx,yAsIntegerx=10y=100Ifx<yThen'以下三条语句交换x,y的值t=xx=yy=tEndIfText1.Text=Str(x)Text2.Text=Str(y)EndSub'填空完成程序，使得单击"显示"按钮后，在窗体上显示如图99乘法表。PrivateSubCommand1_Click()DimiAsIntegerDimjAsIntegerFori=1To9Step1Print"";Forj=1To9Printi*jPrintvbTab;NextjprintNextiEndSub第十套'填空完成程序，使得在Text1中输入一个数，单击"判断"按钮后，判断这个数是奇数还是偶数'并在Label1中显示"奇数"或"偶数"出来。PrivateSubCommand1_Click()DimaAsSingleDimbAsSingle'从Text1中读入这个数,并保存在变量a中a=Val(text1.text)b=aMod2Ifb=0ThenLabel1.Caption="偶数"ElseLabel1.Caption="奇数"endifEndSub'填空完成程序，使得单击"显示"按钮后，随机产生10个属于区间[0，100）的自然数，'并保存于数组a中，然后在窗体上显示这10个数中的最大值。PrivateSubCommand1_Click()Dima(9)AsIntegerDimmaxAsIntegerDimIAsIntegerMe.ClsPrintRandomizeFori=0To9Step1a(i)=Int(Rnd*100)Printa(i)Nextimax=a(0)Fori=1To9Ifmax<a(i)Thenmax=a(i)EndIfNextiPrint"这10个自然数中的最大值=";Str((3))EndSub'填空完成程序:单击"计算5!"按钮后，Text1显示5!的值。PrivateSubCommand1_Click()DimaAsIntegerDimiAsIntegera=1Fori=2To5a=a*iNext__i___Text1.Text=Str(a)EndSub第十四套'某公司每年的销售收入均比前一年增长10个百分点，按此速度，需要多少年可以实现销售收入翻两番（即4倍）的目标。'填空完成程序，使得当单击窗体后，在窗体上输出问题答案。PrivateSubForm_Click()DimiAsSingleDimsAsInteger'设s为所求年数,定义为整型,结果由窗体输出i=1s=0DoWhile___i<=4_____i=_i*1.1_______s=s+1LoopPrint"s=";sEndSub'在横线处添加代码实现单击该按钮，窗体的背景色由原来的默认色变为红色(红：&HFF&)PrivateSubCommand1_Click()backcolor=&HFF&EndSub第十五套'已知一元二次方程的二次项系数、一次项系数、常数项分别为a、b、c，其中a不等于0。'填空完成程序，求方程的根。要求：如果方程无实数根，则输出"无实数根"，否则输出两个实数根。PrivateSubCommand1_Click()Dima,b,c,dAsSingleDimx1,x2AsSinglea=Val(Text1.Text)b=Val(Text2.Text)c=Val(Text3.Text)Ifa<>0Then'判断a是否等于0d=b^2-4*a*cIfd>=0Then'判断是否有实数根x1=(-b+Sqr(d))/(2*a)x2=(-b-Sqr(d))/(2*a)Label1.Caption=Str(x1)Label2.Caption=Str(x2)ElseLabel3.Caption=”无实数根”EndIfEndIfEndSub'填空完成程序，打印如图所示的图案。'*'**'***'**'*PrivateSubForm_Click()DimiAsInteger'定义i为整型变量DimjAsInteger'定义j为整型变量Fori=-2To2Forj=1To3-abs(i)Print“*”;NextjPrint'换行NextiEndSub第十八套'填空完成程序，计算s=1!+2!+3!+…+8!的值并在窗体上打印出结果。PrivateSubForm_Click()DimsAsSingle's变量用于存放计算结果DimpAsSingleDimiAsInteger'定义一个循环变量'给s赋初值s=0'给p赋初值p=1Fori=1To8p=p*is=s+pNextiPrint"s=";sEndSub第十九套'填空完成程序，使得当单击"计算1+2+3+…+100"按钮后，文本框Text1显示1+2+3+…+100的值。PrivateSubCommand1_Click()DimaAsIntegerDimiAsIntegera=0Fori=1To100Step1a=a+iNextiText1.Text=Str(a)EndSub