VB编程：判断一个数是否为质数

Private Sub Command1_Click() '点击事件
Dim N%, I%, K% '定义N,I,K为整型
N = Val(InputBox("N=?")) '输入信息
K = Int(Sqr(N)) '对N取平方根，并转换为整型
For I = 2 To K '定义循环
    If N Mod I = 0 Then Exit For
Next I
If I > K Then
    Print N; "是质数"
Else
    Print N; "不是质数"
End If
End Sub

运行效果：