vb求素?cái)?shù)程序

《vb求素?cái)?shù)程序》由會(huì)員上傳分享，免費(fèi)在線閱讀，更多相關(guān)內(nèi)容在行業(yè)資料-天天文庫。

1、需要在窗體放置4個(gè)控件，不用設(shè)置控件任何屬性：Command1，Command2，List1，Label1DimctExitAsBoolean,ctStopAsBooleanDimctCiFindAsLong,ctCiAddAsLongPrivateSubForm_Load()????Me.Caption="查找N以內(nèi)的所有素?cái)?shù)"???Label1.Caption=Me.Caption:Label1.AutoSize=True???Command1.Caption="查找":Command2.Caption="取消"EndSubPrivateSubForm_Resize()??DimSAs

2、Long??OnErrorResumeNext??S=Me.TextWidth("A")??Command1.MoveS,S,S*8,S*3??Command2.MoveS*10,S,S*8,S*3??Label1.MoveS,Me.ScaleHeight-S*4,Label1.Width,S*4??List1.Move0,S*5,Me.ScaleWidth,Label1.Top-S*5EndSubPrivateSubForm_Unload(CancelAsInteger)???ctExit=True:ctStop=True'保證在查找未結(jié)束時(shí)能順利結(jié)束程序EndSubPrivateSub

3、Command2_Click()??ctStop=True'取消查找EndSubPrivateSubCommand1_Click()??StaticNAsLong??DimSu()AsLong,SAsLong,GenAsLong,IAsLong,JAsLong??DimnStrAsString,TAsSingle,CiAsLong????'查找N以內(nèi)的所有素?cái)?shù)，存入數(shù)組Su()，素?cái)?shù)的總個(gè)數(shù)為S??IfN<2ThenN=10000??nStr=InputBox("請輸入一個(gè)大于1的整數(shù)：","查找素?cái)?shù)",N)??IfnStr=""ThenExitSub??N=Val(nStr)?????S

4、=0:ReDimSu(1)??IfN>1thenS=1:Su(1)=2'■■根據(jù)冰麟輕武的建議，添加了本行???ctStop=False:Command1.Enabled=False??List1.Clear:Label1.Caption="正在查找"&N&"以內(nèi)的素?cái)?shù)..."??DoEvents?????T=Timer??IfctCiFind<10000ThenctCiFind=10000???'ForI=2ToN??ForI=3ToNStep2'■■根據(jù)冰麟輕武的建議，將上一行語句改成了本行?????Gen=Sqr(I)??'記憶I的平方根?????ForJ=1ToS????????'

5、進(jìn)度顯示????????Ci=Ci+1????????IfCi>ctCiFindThen???????????Ci=0:DoEvents???????????IfctStopThenGoToShow1???????????Label1.Caption=N&"以內(nèi)的素?cái)?shù)："&S&"個(gè)，"&Format(I/N*100,"0.0")&"%"????????EndIf????????'用I除以已經(jīng)找到的素?cái)?shù)■■交換下面兩行代碼，似乎能減少一次Mod運(yùn)算????????IfIModSu(J)=0ThenGoToNextI'能整除，不是素?cái)?shù)，檢查下一個(gè)????????IfSu(J)>GenThenE

6、xitFor??????'檢測到大于I的平方根就不用查了。刪除此語句，結(jié)果一樣，但速度慢得多?????Next?????S=S+1:ReDimPreserveSu(S):Su(S)=INextI:??Next??I=N??'將找到的素?cái)?shù)顯示到列表框中Show1:??IfctExitThenExitSub????T=Timer-T??Ci=I/T*0.3'調(diào)整為查找過程中每0.3秒刷新一次進(jìn)度??IfctCiFind

7、ption="添加到到文本框0%"??ctStop=False????IfS>65535ThenI=65534ElseI=S??List1.Visible=False??IfctCiAdd<1000ThenctCiAdd=1000??T=Timer??Ci=0??ForJ=1ToI?????List1.AddItemSu(J)?????Ci=Ci+1?????IfCi>ctCiAddThen????????Ci=0:Do