vb上机实践答案 实验4顺序结构和选择结构程序设计

《vb上机实践答案 实验4顺序结构和选择结构程序设计》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、实验4-1金额汇总PrivateSubCommand1_Click()DimcpAsSingle,kpAsSingle,spAsSingleDimcnAsInteger,knAsInteger,snAsIntegercp=Val(Text1.Text)cn=Val(Text2.Text)kp=Val(Text3.Text)kn=Val(Text4.Text)sp=Val(Text5.Text)sn=Val(Text6.Text)Label7.Caption=cp*cn+kp*kn+sp*snEndSubPri

2、vateSubCommand2_Click()EndEndSub实验4-2交互函数的使用PrivateSubCommand1_Click()DimstrAsStringstr=InputBox("请输入文本信息","输入",_"欢迎使用VB6")Label1.Caption="欢迎使用VB6"EndSubPrivateSubCommand2_Click()DimiAsIntegeri=MsgBox("你确实要退出吗?",_vbYesNo+vbExclamation,"退出警告")Ifi=6ThenEndEnd

3、Sub实验4-3增加工资OptionExplicitPrivateSubCommand1_Click()DimgzAsSingle,zgzAsSinglegz=Val(txtGz)Ifgz>=1600Thenzgz=gz*(1+0.1)ElseIfgz>=1400Thenzgz=gz*(1+0.15)Elsezgz=gz*(1+0.2)EndIftxtZGz=CStr(zgz)EndSubPrivateSubCommand2_Click()txtGz=""txtZGz=""txtGz.SetFocusEndS

4、ub实验4-4上网费用OptionExplicitPrivateSubCommand1_Click()DimtAsInteger,yAsSinglet=Val(txtTime)Ift<10Theny=30ElseIft<50Theny=30+(t-10)*3Elsey=30+(t-10)*2.5EndIfIfy<=150ThentxtCost=CStr(y)ElsetxtCost=CStr(150)EndIfEndSubPrivateSubCommand2_Click()txtTime=""txtCost="

5、"txtTime.SetFocusEndSub例4-5判断成绩等级OptionExplicitPrivateSubCommand1_Click()DimcjAsSingle,str1AsStringcj=Val(Text1.Text)Ifcj>=90ThenText2.Text="A"ElseIfcj>=80ThenText2.Text="B"ElseIfcj>=70ThenText2.Text="C"ElseIfcj>=60ThenText2.Text="D"ElseIfcj>=0ThenText2.Tex

6、t="E"EndIfEndSubPrivateSubCommand2_Click()Text1.Text=""Text2.Text=""EndSubPrivateSubCommand3_Click()EndEndSubPrivateSubText1_LostFocus()IfNotIsNumeric(Text1.Text)OrVal(Text1.Text)<0ThenMsgBox"数据输入错误,重输"Text1.Text=""Text1.SetFocusEndIfEndSub实验4-6求日期OptionExp

7、licitPrivateSubForm_Load()DimYAsInteger,mAsIntegerDimdAsInteger,w1AsIntegerDimRqAsDateDimw2AsStringRq=DateY=Year(Rq)m=Month(Rq)d=Day(Rq)w1=Weekday(Rq)SelectCasew1Case1w2="日"Case2w2="一"Case3w2="二"Case4w2="三"Case5w2="四"Case6w2="五"Case7w2="六"EndSelectLabel1.Ca

8、ption="今天是"&Y&"年"&m&"月"&d&"日"&"星期"&w2EndSub实验4-7闰年月天数PrivateSubCommand1_Click()DimY1AsInteger,M1AsIntegerDimflagAsBoolean,D1AsInteger,S1AsStringY1=Val(txtYear)M1=Val(txtMonth)flag=(Y1Mod4=0AndY1Mod100<