翟傲:
质数的判断中 老师打的代码中 if flag后面没有then 我的vb程序显示的错误,但是当我打上then 后 即使其他一样 无论什么数字都是质数 我有些不明白
Private Sub Command1_Click()
n = CInt(Text1)
flag = True
For i = 2 To Sqr(n)
If n Mod i = 0 Then
falg = False
Exit For
End If
Next
If flag Then
Print "质数"
Else
Print "非质数"