资源描述：
《vb等级考试复习资料—2009年10(有参考答案)》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。
1、上机复习题第一套一、编写下图所示的四则运算程序，输入第一个数和第二个数之后，单击图中任意一个单选按钮，就能按单选按钮的指示完成计算，并在“计算结果”文本框中输岀结果（当第二个数为0,并且选择除法运算时，则在“计算结果”文本框中显示“除数为0,计算无效”）。（注：存盘吋工程文件名为Exllnnnn.Vbp,窗体文件名为Exllnnnn.Frm,其中nnnn为考生准考证号的右4位）二、利用下述由多项式组成的近似公式，编程计算指数函数幺"的值，直到最后一项小于10"为止（x的值由InputBox函数输入）（注：存盘吋匚程文件名
2、为Exl2nnnn.Vbp,窗体文件名为Exl2nnnr）.Erm,其中nnnn为考生准考证号的右4位）x.Xx2x3xne=1+—+—+—+…+——1!2!3!参考答案:一、PrivateSubOptionl_Click()二、PrivateSubForm_Click()Tcxt3.Text=Vai(Tcxtl.Text)+Vai(Text2.Text)X=Vai（InputBoxCiW输入一个接近于1的小数","输入"））EndSubs=1：n=0：si=1PrivateSub0ption2_Click()DoWhi
3、lesi>0.000001Text3.Text=Vai(Text1.Text)-Vai(Text2.Text)n=n+1：si=si*x/n：s二s+slEndSubLoopPrivateSub0ption3_Click()Print"计算结果孑;sText3.Text=Vai(Text1.Text)*Vai(Text2.Text)EndSubEndSubPrivateSubOption4_Click()IfVai(Text2.Text)<>0ThenText3.Text=Vai(Tcxtl.Text)/Vai(Tcxt
4、2.Text)ElseText3.Text="除数为0,计算无效"EndIfEndSub第二套二、编程计算级数1+2+苛+•••+卷的值，直到最后-个级数项的值小丁“为止。三、本程序用于计算Army函数中提供的所有奇数元素Z和（元素个数不确定）PrivateSubForm_Click()DimsAsLong,xAsIntcger：DimaAsIntcger：DimkAsIntegcrrs=0：num=1a=Array(37,92,5&63,21,73,77,84,55,49)Fork=LBound(a)ToUBound(
5、a)Ifa(k)Mod2=0Thens=s+a(k)：num=num+kEndIfNextkx=s/num：x=Round(x):Print所有奇数的平均值二"；xEndSub参考答案二、参考答案三、参考答案PrivateSubForm_Click()PrivateSubForm一Click0s=1：n=1：si=1DimsAsLong:DimxAsSingle:DimaAsVariant:DimkAsIntegerDoWhilesi>0.000001s=0:num=0n=n+2:sl=si/n/(n-1):s=s+si
6、a=Array(37,92,5&63,21,73,77,84,55,49)LoopFork=LBound(a)ToUBound(a)Print"计算结果sIfa(k)Mod200ThenEndSubs=s+a(k)：num=num+1EndIfNextkx=s/num：x=Round(x,2)：Print"所冇奇数的平均值xEndSub第三套XXX一.编写程序计算并输出"=1+/+二+二+…+二，x=1.2,要求计算到末项小于10咗为止。2!3!/?!PrivateSubForm_Click()DimmyexpAsInt
7、eger,termAsSingle,iAsIntegermyexp=0:X=1.2:term=X:i=0DoUntil(term>=0.000001)myexp=myexp*term：i=i+1：term=X/iNextIPrintmyexp,iEndSub三.模拟打字机打字过程。单击窗体，程序按每秒2个字符的速度，逐个地将“VB程序设计考试”显示在标签中。当所有字符全部显示以后，将其清除，重复以上过程。(注：所有控件的属性均在程序代码中设置，打字速度由定时器控制)。参考答案：一.调试程序题PrivateSubI?orm
8、_Click()DimmyexpAsSingle,termAsSingle,myexp二1:X二1.2:term二XDoWhile(term>=0.000001)myexp=myexp+termiAsInteger'myexp数据类型错'myexp的初值应该为1'变量i的初值应该为1*Until改为While(或〉二
