vb期中测验试卷(1)答案

《vb期中测验试卷(1)答案》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、VisualBasic期中测验试卷(1)一、选择题（1）C（2）A（3）A（4）B（5）C（6）B（7）B（8）A（9）D（10）A二、程序填空（1）8（2）0（3）1（4）sum2*j（5）sum1+sum2（6）x

2、SubCommand1_Click()Dims1!,s2!s1=Val(Text1.Text)s2=Val(Text2.Text)Text3.Text=s1+s2EndSubPrivateSubCommand2_Click()Dims1!,s2!s1=Val(Text1.Text)s2=Val(Text2.Text)Text3.Text=s1-s2EndSub（2）DimiAsIntegerFori=1To200IfiMod4=0ThenPrintiNextI（3）Dima%,b%,c%,s%s=0Fora=1To60Forb=1To60F

3、orc=1To60Ifa^2+b^2=c^2Thens=s+1Printa,b,cEndIfNextcNextbNextaPrints（4）DimiAsIntegerFori=1To5PrintTab(6-i);String(2*i-1,"*")Nexti（5）Dimx!,y!x=InputBox("x=")SelectCasexCaseIs>0y=Cos(x)-2Case0y=x^3CaseIs<0y=Sin(x)+8EndSelectPrintyDimx!,y!x=InputBox("x=")Ifx>0Theny=Cos(x)-2Els

4、eIfx=0Theny=x^3ElseIfx<0Theny=Sin(x)+8EndIfPrinty