质数的判断中 老师打的代码中 if flag后面没有then 我的vb程序显示的错误,但是当我打上then 后 即使其他一样 无论什么数字都是质数 我有些不明白
Its_dingxr 正式会员 2015-08-23 10:54:20
1400 2 0

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 "非质数"

 End If


问题来自: 质数

共 2 个回答

您还没有登录,所以不能回复该问题
我要回复

  • 0

    点赞

  • 扫一扫分享朋友圈

    二维码

  • 分享

相关问题