下列程序用于在带垂直滚动条的文本框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

Excel2002允许多用户同时编辑工作薄，但不允许工作薄合并。（）