文档介绍:If Not IsNumeric(Text1) Then If Not IsNumeric(Text1) Then ‘‘判断判断 Text1 Text1 是否是数值型数据( 是否是数值型数据( if if 块开始) 块开始) MsgBox MsgBox ““ error1 error1 ”” : = : = “”“” : : ‘‘条件满足,出错信息,清空文本框并得到焦点条件满足,出错信息,清空文本框并得到焦点 ElseIf ElseIf y < 1000 Or y > 2010 Then y < 1000 Or y > 2010 Then ‘‘判断判断 text1 text1 里的内容是否满足数里的内容是否满足数据要求。这是多分支语句据要求。这是多分支语句 MsgBox MsgBox ““ error1 error1 ””………… Else Else ‘‘条件不满足( 条件不满足( Text1 Text1 为数值型数据的情况) 为数值型数据的情况) if Not IsNumeric(text2) then if Not IsNumeric(text2) then ‘‘判断判断 Text2 Text2 是否是数值型数据是否是数值型数据(参考(参考 text1 text1 的判方法) 的判方法) ………… else else ‘‘下面判断是否为闰年下面判断是否为闰年 If y Mod 4 = 0 And y Mod 100 <> 0 Or y Mod 400 = 0 Then If y Mod 4 = 0 And y Mod 100 <> 0 Or y Mod 400 = 0 Then = = ””闰年闰年”” Else Else ………… End If End If 判断季度判断季度( (用用 If If或用或用 select case select case ) )判断天数判断天数( (用用 If If或用或用 select case select case )28 )28 天和天和 29 29天放在这里判断天放在这里判断 endif endif End if End if ’’( ( if if块结束块结束) )‘‘注意红色文字的位置。注意红色文字的位置。方程三个系数方程三个系数 a a、、b b、、c c是否为数值型数据分别在三个文是否为数值型数据分别在三个文本框的本框的 KeyPress KeyPress 事件里编写,参考教材事件里编写,参考教材 P100. P100. Private Sub text1_KeyPress(KeyAscii As Integer) Private Sub text1_KeyPress(KeyAscii As Integer) If KeyAscii=13 If KeyAscii=13 Then Then ‘‘程序的第一句一定是它, 程序的第一句一定是它, 13 13是是回车的回车的 Ascii Ascii 码值码值 If Not IsNumeric() Then If Not IsNumeric() Then Msgbox Msgbox ““数据非法,重输数据非法,重输”” = = ”””” ‘‘数据错误,第一个文本框得到焦点数据错误,第一个文本框得到焦点 Else Else ‘‘数据正确,第二个文本框得到焦点数据正确,第二个文本框得到焦点 Endif Endif Endif Endif End sub End sub Private mand1_Click() Private mand1_Click() a = Val(Text1) : b = Val(Text2) : c = Val(Text3) a = Val(Text1) : b = Val(Text2) : c = Val(Text3) If a = 0 And b = 0 Then If a = 0 And b = 0 Then MsgBox " MsgBox " 方程无意义方程无意义" " ElseIf a = 0 And b <> 0 Then ElseIf a = 0 And b <> 0 Then Text4 = Str(-c / b) : Text5 = Str(-c / b)