(11)下列程序用于在帶垂直滾動條的文本框Text1中輸出3到100之間的全部素數(shù)。請?zhí)羁铡?Private Sub
（11）下列程序用于在帶垂直滾動條的文本框Text1中輸出3到100之間的全部素數(shù)。請?zhí)羁铡?Private Sub Command1_Click() Text1.Text="" For n=3 To 100 k=Int(Sqr(n)) i=2 Flag=0 Do While i<= And Flag=0 If n Mod i=0 Then Flag=1 Else i=i+1 End If Loop If Then Text1.Text=Text1.Text&Str(n)&Chr(13)&Chr(10) End If Next n End Sub
正確答案：k、Flag=0【解析】判斷一個數(shù)是不是素數(shù)，其算法是：從2開始到該數(shù)的平方根的下限（即為題中k的值）去除這個數(shù)，如果沒有可以整除的數(shù)則說明該數(shù)是個素數(shù)。本題中設(shè)置了一個標(biāo)志變量Flag，默認(rèn)值為0，如果在整除的循環(huán)中，檢查出該數(shù)不是素數(shù)，則設(shè)置Flag為1，也就是循環(huán)后Flag為0的數(shù)表示該數(shù)是素數(shù)，并把它顯示在Text1文本框。
詞條內(nèi)容僅供參考，如果您需要解決具體問題
（尤其在法律、醫(yī)學(xué)等領(lǐng)域），建議您咨詢相關(guān)領(lǐng)域?qū)I(yè)人士。