vb素数经典编程

《vb素数经典编程》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、PrivateSubCommand1_Click()DimnAsIntegerDimiAsIntegerDimfAsBooleann=Val(Text1.Text)f=TrueFori=2Ton-1IfnModi=0Thenf=FalseEndIfNextIff=TrueThenText2.Text="素数"ElseText2.Text="不是素数"EndIfEndSubPrivateSubCommand1_Click()DimnAsIntegerDimiAsIntegerDimfAsBooleann=Val(Tex

2、t1.Text)f=TrueFori=2Ton-1IfnModi=0Thenf=FalseNextIffThenText2.Text="素数"ElseText2.Text="不是素数"EndIfEndSubPrivateSubCommand1_Click()DimnAsIntegerDimiAsIntegerDimfAsBooleann=Val(Text1.Text)f=TrueFori=2Ton-1IfnModi=0Thenf=FalseExitForEndIfNextIffThenText2.Text="素数"E

3、lseText2.Text="不是素数"EndIfEndSubPrivateSubCommand1_Click()DimnAsIntegerDimiAsIntegern=Val(Text1.Text)Fori=2Ton-1IfnModi=0ThenExitForEndIfNextIfi=nThenText2.Text="素数"ElseText2.Text="不是素数"EndIfEndSubPrivateSubCommand1_Click()DimnAsIntegerDimiAsIntegern=Val(Text1.T

4、ext)Fori=2ToInt(Sqr(n))IfnModi=0ThenExitForEndIfNextIfi>Int(Sqr(n))ThenText2.Text="素数"ElseText2.Text="不是素数"EndIfEndSub