填空题
以下程序完成的功能是输入一个数n，并判断它是否为素数，是或不是都通过消息对话框(MsgBox)来给出提示。请将程序补充完整。
Private Sub Cemmand1_Click()
n = InputBox (“请输入一个整数”)
k = Int(Sqr(n))
i = 2
Flag = 0
do while i＜= k And Flag = 0
if{{U}} 【6】 {{/U}} = 0 then
Flag = 1
Else
i= i+ 1
End if
Loop
if{{U}} 【7】 {{/U}}then
MsgBox “这是一个素数!”，vbOKOnly，“提示”
Else
MsgBox “这不是一个素数!”，vbOKOnly，“提示”
End if
End Sub
1、
【正确答案】
1、[6]n Mod i
【答案解析】[7]Flag=0
[解析] 求素数的计算可以从2至终值Sqr(n)，如果条件“n Mod i=0”成立(即余数为0)，“Flag=1”，a不是素数，否则“Flag=0”，a是素数，即可打印“这是一个素数!”。