VB判断是否为素数.pptVIP

下载本文档

92
0
约5.62千字
约 14页
2017-02-12 发布于河南
举报
版权申诉

VB判断是否为素数.ppt

1、本文档共14页，可阅读全部内容。
2、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击这里二次下载。
4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
5、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
6、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
7、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
8、VIP文档为合作方或网友上传，每下载1次，网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档

VB判断是否为素数

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