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

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

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

3、ndSub填空完成程序，使得当单击窗体后，计算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公斤。'填空完成程序，使得在文本Textl中输入一个大于60的数时，标签Labell显示"超重！不能参赛！"；'当输

4、入一个小于等于60的数时，标签Labell显示"合格，可以参赛！”。PrivateSubCommand1_Click()DimtAsSingle'定义变量t,值由文本框Text1读入t=Val(text1.text)If>ThenLabel1.Caption="超重!不能参赛！"ElseLabel1.Caption="合格,可以参赛！"EndifEndSub填空完成程序，使得单击窗体后，计算出1+2+3+N<500的N的最大值，并在文本框Text1中显示出来。PrivateSubForm_Click()DimsAsInteg

5、er'变量s存放和DimnAsInteger'为n赋初值n=0'为s赋初值s=0DoWhiles<500n=n+1s=s+nLoopTextl.Text=Str(n-1)EndSub第四套'这是一个简单的显示评语程序，填空完成程序，在文本框Textl中输入一个数后，单击"评语"按钮，在标签Labell显示评语。'当输入一个小于60的数时，显示"不及格"；当输入一个大于等于60且小于85的数时，显示“良好”；'当输入一个大于等于85的数时，显示“优秀”。PrivateSubCommand1_Click(

6、)DimCjAsSingle'定义变量Cj,值由文本框Textl读入Cj=Val(textl.text)IfCj<60thenLabell.Caption="不及格"EndIfIfCj>=60AndCj<85ThenLabell.Caption="良好"EndIfIfCj>=85ThenLabell.Caption="优秀"EndIfEndSub'某公司2005年的总产值为2000万元，若总产值以每年5%的速度增长，多少年后总产值翻一倍？填空完成程序，使得当单击窗体后，在窗体上输出问题答案。Pr

7、ivateSubForm_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'填空完成程序，编程计

8、算1-1/2+1/3-1/4+.+1/99-1/100,单击窗体后，在窗体上显示结果。PrivateSubForm_Click()DimsAsSingleDimiAsIntegers=0Fori=1To.100Step1IfiMod2<>0Thens=s+1/iElses=s-1/iEndIfNextiPrint"s="sEndSub第六套'填空完成程序，编程计算1+1/2+1/3+1/4+1/99+1/100,单击窗体后，在窗体上显示结果。PrivateSubForm_Click()DimsAsSingle'定义变量s为单精度型DimiAsIn

9、teger'定义循环变量s=0Fori=1To.100Step1s=s+1/iNextiPrint"s="sEndSub填空完成程序，使得当单击“计算1+2+3+100"按钮后，文本框Text1显示1+2+3+100的值。PrivateSubCommand1_Click()DimaAsIntegerDimiAsIntegera=0Fori=1To100Step1a=a+iNextiTextl.Text=Str(4)EndSub第七套'填空完成程序，使得单击“显示"按钮后，随机产生10个属于区间0,100)的自然数，并保存于数组a中。

10、9;然后在窗体上显示这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

11、_Click()DimiAsIntegerDimjAsIntegerFori=4To1Step-1Forj=1ToiStep1Print"*"NextjprintNextiEndSub第八套填空完成程序，问：鸡兔同笼，共有100条腿，40个头，问鸡有几只，兔有几只？单击窗体后，在窗体上显示结果。PrivateSubForm_Click()DimJiAsInteger'Ji变量表示鸡的个数DimTuAsInteger'Tu变量表示兔的个数DimLegAsInteger'Leg变量表示腿数ForJi=1To40Tu=40-ji计算腿数Leg=ji*2+T

12、u*4'如果腿正好100只，则打印。IfLeg=100ThenPrint"鸡寸Ji;"只"，"兔""Tu;"只"EndIfNextJiEndSub'填空完成程序，使得单击“显示"按钮后，显示下面的图形：''''''PrivateSubCommand1_Click()DimiAsInteger'定义i为整型变量DimjAsInteger'定义j为整型变量Fori=1To6Step1Forj=1ToIStep1Print"

13、;"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()DimiAsIntegerD

14、imjAsIntegerFori=1To9Step1Print"一"；Forj=1To9Printi*jPrintvbTab;NextjprintNextiEndSub第十套'填空完成程序，使得在Text1中输入一个数，单击“判断”按钮后，判断这个数是奇数还是偶数'并在Label1中显示"奇数"或"偶数"出来。PrivateSubCommand1_Click()DimaAsSingleDimbAsSingle'从Text1中读入这个数，并保存在变量a中a=Val(text1.text)b=aMod2Ifb=0T

15、henLabel1.Caption="偶数"ElseLabel1.Caption="奇数"endifEndSub'填空完成程序，使得单击“显示"按钮后，随机产生10个属于区间0,100)的自然数，并保存于数组a中，然后在窗体上显示这10个数中的最大值。PrivateSubCommand1_Click()Dima(9)AsIntegerDimmaxAsIntegerDimIAsIntegerMe.ClsPrintRandomizeFori=0To_9_Step1a(i)=Int(Rnd*100)Printa(i)Nextimax=a(0)

16、Fori=1To9Ifmax<a(i)Thenmax=a(i)EndIfNextiPrint"这10个自然数中的最大值="Str(3)EndSub'填空完成程序：单击“计算5!”按钮后,Text1显示5!的值。PrivateSubCommand1_Click()DimaAsIntegerDimiAsIntegera=1Fori=2To5a=a*iNext_iText1.Text=Str(a)EndSub第十四套'某公司每年的销售收入均比前一年增长10个百分点，按此速度，需要多少年可以实现销售收入翻两番(即4倍)的目标。填空完成程序，使得当单击窗体后，在

17、窗体上输出问题答案。PrivateSubForm_Click()DimiAsSingleDimsAsInteger'设s为所求年数，定义为整型，结果由窗体输出i=1s=0DoWhilei<=4i=_i*1.1s=s+1LoopPrint"s="sEndSub在横线处添加代码实现单击该按钮，窗体的背景色由原来的默认色变为红色(红：&HFF&)PrivateSubCommand1_Click()backcolor=&HFF&EndSub第十五套'已知一元二次方程的二次项系数、一次项系数、常数项分别为a、b、c,其中a不等于0

18、o'填空完成程序，求方程的根。要求：",否则输出两个实数根如果方程无实数根，则输出“无实数根PrivateSubCommand1_Click()Dima,b,c,dAsSingleDimx1,x2AsSinglea=Val(Textl.Text)b=Val(Text2.Text)c=Val(Text3.Text)Ifa<>0Then'判断a是否等于0d=bA2-4*a*cIfd>=0Then'判断是否有实数根x1=(-b+Sqr(d)/(2*a)x2=(-b-Sqr(d)/(2*a)Labell.Caption=Str(x1)Label2.Caption=Str(x2)Else