VB判断是否为素数.ppt

IfNotIsNumeric(Text1)Then‘判断Text1是否是数值型数据（if块开始）

MsgBox“error1”:Text1.Text=“”:Text1.SetFocus

‘条件满足，出错信息，清空文本框并得到焦点

ElseIfy1000Ory2010Then‘判断text1里的内容是否满足数据要求。这是多分支语句

MsgBox“error1”……

Else‘条件不满足（Text1为数值型数据的情况）

ifNotIsNumeric(text2)then‘判断Text2是否是数值型数据（参考text1的判方法）

……

else

‘下面判断是否为闰年

IfyMod4=0AndyMod1000OryMod400=0Then

Text3.text=”闰年”

Else

……

EndIf

判断季度(用If或用selectcase)

判断天数(用If或用selectcase)28天和29天放在这里判断 endif

Endif’（if块结束）‘注意红色文字的位置。方程三个系数a、b、c是否为数值型数据分别在三个文本框的KeyPress事件里编写，参考教材P100.PrivateSubtext1_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13Then‘程序的第一句一定是它，13是回车的Ascii码值 IfNotIsNumeric(text1.text)Then Msgbox“数据非法，重输” Text1.text=”” Text1.SetFocus‘数据错误，第一个文本框得到焦点 Else Text2.SetFocus‘数据正确，第二个文本框得到焦点 EndifEndifEndsubPrivateSubCommand1_Click()a=Val(Text1):b=Val(Text2):c=Val(Text3)Ifa=0Andb=0ThenMsgBox方程无意义ElseIfa=0Andb0ThenText4=Str(-c/b):Text5=Str(-c/b)ElseIfb^2-4*a*c0Then有两个实根……ElseIfb^2-4*a*c=0Then有两个相等的根……Elseb^2-4*a*c0有虚根Text4=Format(-b/(2*a),00.00)+_Format(Sqr(Abs(b^2-4*a*c))/(2*a),00.00)i……EndIfEndIfEndSubIfcj=90then score=“A”Elseifcj=80then score=“B”Elseifcj=70then score=“C”Elseifcj=60then score=“D”Else score=“E”Endif text2=scoreIfcj60then Text2=“E”Elseifcj70then Text2=“D”Elseifcj80then Text2=“C”Elseifcj90then Text2=“B”Else Text2=“A”endif5-1-1

PrivateSubForm_Click()

Dimi%,j%,k%

Fori=1To9‘控制百位数百位数从1开始

Forj=0to9‘控制十位数十位数从0开始

Fork=0to9‘控制个位数个位数从0开始

If条件then

Print