素數1.下列VB程序的功能是素數的判斷。程序運行時，在文本框中輸入一個整數，單擊“判斷”按鈕，在標簽Label2中顯示該數是否是素數。DimxAsInteger,iAsInteger,jAsInteger,flagAsBooleanx=Val(Text1.Text)flag=TrueDoWhilei<=x-1Andflag=TrueIfxModi=0ThenElse

EndIfLoopIfThenLabel2.Caption="該數是素數“ElseLabel2.Caption="該數不是素數"EndIfi=2Flag=falsei=i+1Flag=true2.編寫VB程序，界面設計如圖a所示，使其具有下列功能：在文本框中輸入正整數n，單擊“統計”按鈕command1，計算出n以內質數的個數以及質數的和，并在標簽label2中顯示結果。DimiAsInteger,jAsInteger,nAsInteger,masinteger,sAsIntegerDimflagAsBooleann=Val(Text1.Text)m=0Forflag=FalseForj=2Toi/2IfiModj=0Thenflag=TrueExitForEndIfNextjIfThenm=m+1

EndIfNextiLabel2.Caption=Str(n)+"以內質數有"++"個，和為"+Str(s)i=2Tonflag=Falses=s+iStr(m)文本框Text1和Text2中輸入兩個整數，單擊“求最大公約數”Command1按鈕，在文本框Text3中輸出這兩個數的最大公約數。最大公約數Dimx,y,zAsIntegerx=Val(Text1.Text)y=Val(Text2.Text)Ifx>yThenz=yElsez=xDoWhile(xModz<>0)Or（）)z=z-1LoopText3.text=ymodz<>0str(z)3、更相減損之術求最大公約數的基本思想是：用兩數中較大的數減去較小的數，獲得的差與原先較小的數構成新的一對數，再用大的數減去小的數……如此循環，用同樣的方法操作，直至產生一對相等的數，該數即為最大公約數。以求12,16這兩個數的最大公約數為例，具體操作如下（12,16）（12,4）（8,4）（4,4），即4是12和16的最大公約數。具體功能如下，在文本框text1中輸入整數一，在文本框2中輸入整數二，單擊“求最大公約數”按鈕，兩數的最大公約數顯示在text3中，DimmAsLong,nAsLong,rAsLongm=Val(Text1.Text)n=Val(Text2.Text)Ifm<nThenr=m:m=n:n=rr=m-nDoWhileIfr<nThenm=nn=rElse

EndIf

LoopText3.Text=Str(n)

n<>r或r<>0或m<>nm=rr=m-n完全數

4.完全數又稱完美數，是指其所有的真因子（即除了自身以外的約數）之和，恰好等于它本身。例如：6的真因子為1、2、3，相加等于其本身（1+2+3=6），所以6是一個完全數。現編寫VB程序，求完全數。其功能如下：輸入一個正整數n，點擊“查找”按鈕，在列表框List1中輸出小于n的所有完全數。Dimn,r,j,iAsIntegern=Val(Text1.Text)Fori=1Ton-1Forj=1Toi-1

IfThen

r=r+j