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

阳城

坚持学习！！！

renyucai1963

学习

ycxchen

版主，能否结合ACCESS例子讲解循环语句Do和死循环等语句的运用？

roych

ycxchen 发表于 2012-3-6 09:27
版主，能否结合ACCESS例子讲解循环语句Do和死循环等语句的运用？

死循环是禁用的，因为这跟病毒类似。
讲到算法时将会对这些语句进行进一步的使用。

weizhuzhu

学习的

zhylee

抓紧 学习呀

yori2007

jinzhanxi

谢谢分享

smilingkiss

学习中

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是素数哦，不知我是不是哪里理解错了