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 运行效果: