VisualBasic程序设计参考答案

《VisualBasic程序设计参考答案》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。

1、习题参考答案习题一一．判断题1．√2．√3．√4．√5．×6．√7．×8．√9．√10．√二．选择题1．C2．D3．C4．B5．A6．D7．A8．B9．C10．D三．程序设计题1．（略）2．界面设计（略）代码设计如下：PrivateSubCommand1_Click()Text2.Text=Text1.TextEndSubPrivateSubCommand2_Click()EndEndSub3．界面设计（略）PrivateSubCommand1_Click()Label1.Visible=FalseEndSubPrivateSubCommand2_Click(

2、)Label1.Visible=TrueEndSub习题二一、判断题1.√2.×3.×4.√5.×6.√二、单选题1.B2.D3.B4.A5.B6.D7.B8.B9.C10.B11.C12.C13.C14.B15.C16.A17.C18.C19.B20.D三、程序设计题1．参考程序代码如下：PrivateSubForm_click()DimaAsInteger,bAsInteger,cAsIntegerDimtAsInteger,sAsIntegera=Val(InputBox("a=","输入三角形的三条边"))b=InputBox("b=","输入三角形的

3、三条边")c=InputBox("c=","输入三角形的三条边")t=(a+b+c)/2s=Sqr(t*(t-a)*(t-b)*(t-c))MsgBox"三角形的面积："+Str(s)EndSub2．参考程序代码如下：PrivateSubForm_click()DimrAsInteger,sAsIntegerConstpi=3.14159r=Val(InputBox("r=","请输入圆的半径"))l=2*pi*rs=pi*r^2Print"r=";r,"l=";l,"s=";sEndSub习题三一、选择题1．C2．A3．D4．C5．C6．D二、程序阅读题（写

4、出下列程序的运行结果）程序1.-33程序2.Bcddef程序3.1504程序455程序5.s=24程序6AAA三、程序填空题1．（1）q*i（2）s+p*i/q（3）Nexti2．（1）t+m（2）m=m+2（3）m<=393．（1）Len(Text1.Text)（2）d&c（3）Text2.Text=d四、程序设计题1．界面设计略，过程设计如下：PrivateSubForm_Click()DimxAsInteger,yAsInteger,zAsIntegerDimtAsIntegerx=InputBox("请输入x的值：")y=InputBox("请输入y的

5、值：")z=InputBox("请输入z的值：")Ifx5Theny=x-5ElseIfx>=1Theny=x*xElseIfx>0Theny=Sqr(x)Elsey=0EndIfPrintyEndSub3．界面设计略，过程设计如下：PrivateSu

6、bForm_Click()DimxAsSingle,nAsInteger,dAsSingleDimyAsSingle,sAsSingle,tAsSinglex=InputBox("输入x的值")n=InputBox("输入多项式的项数")s=1y=xFori=2Tond=1t=1Fork=1To2*i-1'求多项式中一项的值d=d*k'一项的分母t=t*x'一项的分子Nextks=(-1)*s'改变多项式的符号y=y+s*t/d'求多项式之和NextiPrint"sinx=";yEndSub4．界面设计略，过程设计如下：PrivateSubForm_Click

7、()DimxAsSingle,sAsSingle,tAsSingleDimiAsInteger,nAsIntegerx=InputBox("请输入x的值：")n=InputBox("请输入n的值：")t=x/2:s=tFori=3Tont=t*x/is=s+tNextiPrintsEndSub习题四一、选择题1．A2．B3．C4．CGACDE二、程序阅读题（写出下列程序的运行结果）程序118程序213程序31491625程序4三、程序填空题1．（1）10+Int(Rnd*90)（2）i+1To30（3）a(i)=a(j)（4）a(i)Mod2=12．（1）In

8、t(Rnd*90)+10（2）arr(