VB判断是否为素数.pptVIP

If Not IsNumeric(Text1) Then ‘判断Text1是否是数值型数据（if块开始）MsgBox “error1” : Text1.Text = “” : Text1.SetFocus‘条件满足，出错信息，清空文本框并得到焦点ElseIf y 1000 Or y 2010 Then ‘判断text1里的内容是否满足数据要求。这是多分支语句MsgBox “error1” ……Else ‘条件不满足（Text1为数值型数据的情况） if Not IsNumeric(text2) then ‘判断Text2是否是数值型数据（参考text1的判方法）  …… else ‘下面判断是否为闰年 If y Mod 4 = 0 And y Mod 100 0 Or y Mod 400 = 0 Then  Text3.text=”闰年” Else …… End If 判断季度(用If或用select case) 判断天数(用If或用select case)28天和29天放在这里判断 endif End if ’（if块结束）‘注意红色文字的位置。 方程三个系数a、b