下列程序用于判断一个整数是否为质数，试将程序补充完整。
Private Sub Command1_Click()
Dim n As Integer
n = InputBox("请输入")
t = Int(Sqr(n))
i = 2
flag = 0
While i ＜= t And flag = 0
If ______ Then
flag = 1
Else: i = i + 1
End If
Wend
If ______ Then
Print "这是一个质数"
Else
Print "这不是一个质数"
End If
End Sub