VB判断是否为素数.ppt

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、c是否为数值型数据分别在三个文本框的KeyPress事件里编写，参考教材P100. Private Sub text1_KeyPress(KeyAscii As Integer) If KeyAscii=13 Then ‘程序的第一句一定是它，13是回车的Ascii码值 If Not IsNumeric(text1.text) Then Msgbox “数据非法，重输” Text1.text=”” Text1.SetFocus ‘数据错误，第一个文本框得到焦点 Else Text2.SetFocus ‘数据正确，第二个文本框得到焦点 Endif Endif End sub Private Sub Command1_Click() a = Val(Text1) : b = Val(Text2) : c = Val(Text3) If a = 0 And b = 0 Then MsgBox 方程无意义 ElseIf a = 0 And b 0 Then Text4 = Str(-c / b) : Text5 = Str(-c / b) Else If b ^ 2 - 4 * a * c 0 Then 有两个实根 …… ElseIf b ^ 2 - 4 * a * c = 0 Then 有两个相等的根 …… Else b ^ 2 - 4 * a * c 0 有虚根 Text4 = Format(-b / (2 * a), 00.00) + _Format(Sqr(Abs(b ^ 2 -4 * a * c)) / (2 * a), 00.00) i …… End If End If End Sub If cj=90 then score=“A” Elseif cj=80 then score=“B” Elseif cj=70 then score=“C” Elseif cj=60 then score=“D” Else score=“E” Endif text2=score If cj60 then Text2=“E” Elseif cj70 then Text2=“D” Elseif cj80 then Text2=“C” Elseif cj90 then Text2=“B” Else Text2=“A” endif 5-1-1Private Sub Form_Click()Dim i%, j%, k%For i = 1 To 9 ‘控制百位数 百位数从1开始 For j=0 to 9 ‘控制十位数 十位数从0开始 For k=0 to 9 ‘控制个位数 个位数从0开始 If 条件 then Print