分支结构的参考例题

《分支结构的参考例题》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、PrivateSubCmdCal_Click()DimaAsInteger,bAsInteger,cAsInteger,sAsSingle,areaAsSinglea=Val(Txta.Text)b=Val(Txtb.Text)c=Val(Txtc.Text)Ifa+b>cAnda+c>bAndc+b>aThens=(a+b+c)/2area=Sqr(s*(s-a)*(s-b)*(s-c))Txtarea=CStr(area)ElseTxtarea="输入数据无法构成三角形三边"EndIfCmdClear.Set

2、FocusEndSubPrivateSubCmdClear_Click()Txta.Text=""Txtb.Text=""Txtc.Text=""Txtarea.Text=""Txta.SetFocusEndSubPrivateSubCmdEnd_Click()EndEndSubOptionExplicitPrivateSubCmdOld_Click()DimyAsInteger,mAsInteger,dAsInteger,birthAsDatey=TxtYear9m=TxtMonthd=TxtDaybirth=

3、DateSerial(y,m,d)'调用系统函数DateSerial将年月日数据变成日期型数据返回TxtOld=(Date-birth)365&"岁"EndSubPrivateSubTxtDay_Change()IfVal(TxtDay)>31OrVal(TxtDay)<1ThenMsgBox"出生日输入错误！"&vbCrLf&"请重新输入！"TxtDay.SelStart=0TxtDay.SelLength=Len(TxtDay)ElseSelectCaseVal(TxtMonth)Case4,6,9,11I

4、fVal(TxtDay)=31ThenMsgBox"出生日输入错误！"&vbCrLf&"请重新输入！"TxtDay.SelStart=0TxtDay.SelLength=Len(TxtDay)EndIfCase2IfVal(TxtYear)Mod4=0AndVal(TxtYear)Mod100<>0OrVal(TxtYear)Mod100=0AndVal(TxtYear)Mod400<>0ThenIfVal(TxtDay)>29ThenMsgBox"出生日输入错误！"&vbCrLf&"请重新输入！"TxtDay.

5、SelStart=0TxtDay.SelLength=Len(TxtDay)EndIfElseIfVal(TxtDay)>28ThenMsgBox"出生日输入错误！"&vbCrLf&"请重新输入！"TxtDay.SelStart=0TxtDay.SelLength=Len(TxtDay)EndIfEndIfEndSelectEndIfEndSubPrivateSubTxtDay_KeyPress(KeyAsciiAsInteger)IfKeyAscii<>8ThenIfKeyAscii<48OrKeyAscii>

6、48+9ThenMsgBox"出生月份输入错误！"&vbCrLf&"请重新输入！"KeyAscii=0EndIfEndIfEndSubPrivateSubTxtMonth_Change()IfVal(TxtMonth)>12OrVal(TxtMonth)<1ThenMsgBox"出生月份输入错误！"&vbCrLf&"请重新输入！"TxtMonth.SelStart=0TxtMonth.SelLength=Len(TxtMonth)EndIf9EndSubPrivateSubTxtMonth_KeyPress(Ke

7、yAsciiAsInteger)IfKeyAscii<>8ThenIfKeyAscii<48OrKeyAscii>48+9ThenMsgBox"出生月份输入错误！"&vbCrLf&"请重新输入！"KeyAscii=0EndIfEndIfEndSubPrivateSubTxtYear_Change()IfVal(TxtYear)>Year(Date)ThenMsgBox"出生年份输入错误！"&vbCrLf&"请重新输入！"TxtYear.SelStart=0TxtYear.SelLength=Len(TxtYear

8、)EndIfEndSubPrivateSubTxtYear_KeyPress(KeyAsciiAsInteger)IfKeyAscii<>8ThenIfKeyAscii<48OrKeyAscii>48+9ThenMsgBox"出生年份输入错误！"&vbCrLf&"请重新输入！"KeyAscii=0EndIfEndIfEndSubPrivateSubCmdTax_Click