[填空题] 下列程序用于在带垂直滚动条的文本框Text1中输出3到100之间的全部素数。请填空。 Private Sub Command1_click() Text1.Text="&qu

[填空题] 下列程序用于在带垂直滚动条的文本框Text1中输出3到100之间的全部素数。请填空。

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

Lf ______Trhen

Text1.Text=Text1.Text & Str(n) & Chr(13) & Chr(10)

End If

Next n

End Sub