[填空題] 下列程序用于在帶垂直滾動(dòng)條的文本框Text1中輸出3到100之間的全部素?cái)?shù)。請(qǐng)?zhí)羁铡?Private Sub Commandl_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 nEnd Sub

k Flag=0

判斷一個(gè)數(shù)是不是素?cái)?shù)，其算法是：從2開始到該數(shù)的平方根的下限(即為題中k的值)去除這個(gè)數(shù)，如果沒有可以整除的數(shù)則說明該數(shù)是個(gè)素?cái)?shù)。本題中設(shè)置了一個(gè)標(biāo)志變量Flag，默認(rèn)值為 0，如果在整除的循環(huán)中，檢查出該數(shù)不是素?cái)?shù)，則設(shè)置Flag為1，也就是循環(huán)后Flag為0的數(shù)表示該數(shù)是素?cái)?shù)，并把它顯示在Textl文本框。