求是不是素数的
Private Sub Command1_Click()
Dim n As Integer
Dim m As Integer
n = Val(Text1.Text)
m = Sqr(n)
For i = 2 To m
If n Mod i = 0 Then
Exit For
End If
Next
If i = m + 1 Then
Label1.Caption = "素数"
Else
Label1.Caption = "不是素数"End If
End Sub
一开始不是定义了 m 为整数的吗
后边的开方的话m不又不一定是整数了吗
这怎么解释

Dim m As Integer
m = Sqr(n)
举例：
m=Sqr(2)
m=1