资源描述：
《VB程序设计-素数判断并统计》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。
1、VB程序设计－素数判断并统计（作者：草原飞狼2014年5月25日）声明：仅供学习与交流使用，高手请飘过，谢谢！所有代码都是个人亲自编写并调试成功。布局6运行界面（1）运行界面（2）源代码如下：PrivateSubCommand1_Click()Rem判断素数并进行统计，固定范围2-100Dimn,kAsIntegerDimiAsIntegeri=0'i用于控制换行Forn=2To100Rem以下是素数判断算法，认真理解Fork=2ToInt(Sqr(n))IfnModk=0ThenExitFor'退出for循环，减少不必要的循环
2、EndIfNextk6Ifk>Sqr(n)ThenForm1.Picture1.Printn;'如果是素数，则输出i=i+1IfiMod10=0Then'控制输出，每行10个数据Form1.Picture1.Print'换行EndIfEndIfNextnEndSubPrivateSubCommand2_Click()Rem退出Dimint_msgAsIntegerint_msg=MsgBox("单击“是”退出程序，单击“否”程序将继续进行！",vbYesNo+vbQuestion+vbDefaultButton1,"退出提示")
3、Ifint_msg=vbYesThenUnloadMeEndIfEndSubPrivateSubCommand3_Click()Rem判断素数并进行统计，指定范围n1-n2Dimn,kAsIntegerDimiAsInteger'行输出控制变量Dimn1,n2AsInteger'n1,n2是指定范围的最小值和最大值i=0Rem判断第一个数据是否合法n1=Val(InputBox("请输入第一个整数","输入数据一","2"))DoWhilen1<=1MsgBox"请输入大于1的整数",vbOKOnly+vbExclamation
4、,"输入错误"n1=Val(InputBox("请输入第一个整数","输入数据一","2"))LoopRem判断第二个数据是否合法n2=Val(InputBox("请输入第二个整数","输入数据二","1000"))DoWhilen2<=1MsgBox"请输入大于1的整数",vbOKOnly+vbExclamation,"输入错误"n2=Val(InputBox("请输入第二个整数","输入数据二","1000"))LoopRem以下选择结构确保n1n2Thentemp=n1n1=n2n2=tempEndIf6F
5、orn=n1Ton2Fork=2ToInt(Sqr(n))IfnModk=0ThenExitForEndIfNextkIfk>Int(Sqr(n))ThenForm1.Picture1.Printn;i=i+1IfiMod10=0Then'控制换行，每10个换行Form1.Picture1.PrintEndIfEndIfNextnEndSubPrivateSubCommand4_Click()Rem固定范围内素数求和Dimn,k,iAsIntegerDimsumAsSinglei=0sum=0Forn=2To100Fork=2T
6、oInt(Sqr(n))IfnModk=0Then'注意理解：nmodk=0ExitForEndIfNextkIfk>Int(Sqr(n))ThenForm1.Picture1.Printn;sum=sum+n'累加求和i=i+1IfiMod10=0Then'控制换行，每10个换行Form1.Picture1.PrintEndIfEndIfNextnLabel1.Caption="所有素数的和是："&Str(sum)EndSubPrivateSubCommand5_Click()Rem判断素数并进行统计，指定范围，并进行求和Di
7、mn,kAsIntegerDimiAsInteger6DimsumAsSingleDimn1,n2AsInteger'n1,n2是指定范围的最小值和最大值i=0sum=0Rem判断第一个数据是否合法n1=Val(InputBox("请输入第一个整数","输入数据一","2"))DoWhilen1<=1MsgBox"请输入大于1的整数",vbOKOnly+vbQuestion,"输入错误"n1=Val(InputBox("请输入第一个整数","输入数据一","2"))LoopRem判断第二个数据是否合法n2=Val(InputBo
8、x("请输入第二个整数","输入数据二","1000"))DoWhilen2<=1MsgBox"请输入大于1的整数",vbOKOnly+vbQuestion,"输入错误"n2=Val(InputBox("请输入第二个整数","输入数据二","1000"))Loo
