vb课后习题答案.docx

《vb课后习题答案.docx》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、习题3—4（P126）PrivateSubCommand1_Click()Image1.Width=Image1.Width*1.2Image1.Height=Image1.Height*1.2EndSubPrivateSubCommand2_Click()Image1.Width=Image1.Width/1.2Image1.Height=Image1.Height/1.2EndSubPrivateSubCommand3_Click()Image1.Width=Form1.WidthImage1.Height=Form1.HeightEndSubPrivateSubForm_Load(

2、)Image1.Left=0Image1.Top=0Image1.Picture=LoadPicture(App.Path&"back.jpg")EndSub习题3—5（P126）DimmleftAsLongPrivateSubCommand1_Click()Timer1.Enabled=TrueEndSubPrivateSubCommand2_Click()Timer1.Enabled=FalseEndSubPrivateSubTimer1_Timer()mleft=Label1.Left+100Ifmleft+Label1.Width>Picture1.WidthThenmleft

3、=0EndIfLabel1.Left=mleftEndSub习题4—1（P170）PrivateSubForm_Load()Form1.ShowSum=0Fori=1To4a=InputBox("请输入数值型数据")Sum=Sum+aave=Sum/4NextPrintSum;aveEndSub习题4—3（P170）PrivateSubCommand1_Click()a=5b=2.5c=7.8pi=3.14159265y=pi*a*b/a+b*cPrintyEndSub习题4—4PrivateSubCommand1_Click()a=Val(Text1.Text)tian=a86399

4、xiaoshi=(a-tian*86400)1439fenzhong=(a-tian*86400-xiaoshi*1440)59miao=a-tian*86400-xiaoshi*1440-fenzhong*60Text2.Text=tian&"天"&xiaoshi&"小时"&fenzhong&"分钟"&miao&"秒"EndSub习题4—5PrivateSubCommand1_Click()ConstgAsSingle=9.81t=InputBox("请输入t的值")v0=InputBox("请输入v0的值")s=1/2*g*t*t+v0*tPrintFormat(s,"0.##"

5、)EndSub习题4—6PrivateSubCommand1_Click()Sum=0Fori=2To100Step2Sum=Sum+iNextLabel1.FontSize=20Label1.Caption="2+4+6+……+100="&SumEndSub习题4—7PrivateSubCommand1_Click()Doa=InputBox("请输入三角形的第一条边长")a1=Val(a)Ifa1=-1ThenEndEndIfb=InputBox("请输入三角形的第二条边长")b1=Val(b)Ifb1=-1ThenEndEndIfc=InputBox("请输入三角形的第三条边长")

6、c1=Val(c)Ifc1=-1ThenEndEndIfIf(a1+b1>c1)And(a1+c1>b1)And(b1+c1>a1)Thens=a1+b1+c1ExitDoElseError1=MsgBox("您输入的数据不能组成三角形")EndIfLoopLabel4.Caption="您输入的边长分别为："&a1&","&b1&","&c1&""&"面积为："&sEndSub习题4—8PrivateSubCommand1_Click()IfText1.Text<>""Thena=Text1.TextSelectCaseaCaseIs<=200s=0CaseIs<=400s=(a-20

7、0)*0.03CaseIs<5000s=200*0.03+(a-400)*0.04CaseIs>=5000s=(400-200)*0.03+(5000-400)*0.04+(a-5000)*0.05EndSelectText2.Text=sElseerror1=MsgBox("请输入您的收入！")EndIfEndSubPrivateSubForm_Load()Text2.Locked=TrueEndSubPrivateSubText