填空题：以下程序用于在带垂直滚动条的文本框Textl中输出3到。l00之间的全部素数。Private Sub Command1_

以下程序用于在带垂直滚动条的文本框Textl中输出3到。l00之间的全部素数。
Private Sub Command1_Click()
Text1.Text＝""
Forn＝3T0 100
k＝tnt(Sqr(n))
i＝2
Flag＝()
Do While i<＝______And Flag。()
IfnModi＝0Then
Flag＝1
Else
i＝i+1
EndIf
Loop
IfThen
Text1.Text＝Text1.Text&Str(n)＆Chr(13)&Chr(10)
End If
Next n
End Sub