【新手入门】之四：循环语句Do和死循环

msyangyi

好好学习！

34acc

谢谢分享

XWQ2000

顶一个！

微微森林

听得似懂非懂，慢慢来了。

sukunli

顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶

wang1950317

好好学习！谢谢！

roych

smilingkiss 发表于 2013-1-31 23:02
版主：
Sub test()
Dim m As Integer, i As Integer

笔误，不好意思~~已检查并更正过来了。谢谢提醒~~

smilingkiss

版主：
Sub test()
Dim m As Integer, i As Integer
m = InputBox("请输入一个数：", "输入提示")
i = 2
Do Until (m Mod i = 0) Or i = m - 1
    i = i + 1
Loop
If m Mod i = 0 Then
    Debug.Print m; "是素数"
Else
    Debug.Print m; "是合数"
End If
End Sub

这里的素数和合数是不是反过来了？例如输入6，6 mod 2 ＝ 0吧？6是素数哦，不知我是不是哪里理解错了

smilingkiss

学习中

jinzhanxi

谢谢分享