【案例】 今天还玩点不一样的，判断素数（VBScript 版）？

文章目录

• ​​1. 案例介绍​​
• ​​2. 准备工作​​
• ​​3. 细节设计​​
• ​​4. 代码汇总​​
• ​​5. 运行结果​​
• ​​后记​​

1. 案例介绍

我们使用 VBScript 来编写一个判断素数的程序，基本逻辑很简单，只需要使用该数去除以比它小的所有正整数即可（大于一），如果没有找到这种数字，那么它就是素数。我们需要使用计算机逻辑，用编程语言来实现这个流程。

2. 准备工作

还是和上次一样，有一台 Win 电脑即可，打开我们的记事本，编写程序就好啦。

3. 细节设计

1. 加入了输入框。实现了不停判断数字是否为素数的效果，除非数字为 0，程序终止。
2. 双重循环。外层循环来控制是否输入数字为 0，内层循环来判断数字是否是素数。

4. 代码汇总

Do While True
    num = CInt(Inputbox(" Input Number: "))
    IF num = 0 Then
        Exit DO
    End IF
    
    s = " Prime number! "
    For i = 2 to (num - 1)
        IF num Mod i = 0 Then
            s = " Not Prime number! "
            Exit For
        End IF
    Next
    MsgBox CStr(num) & s
Loop

5. 运行结果

输入数字 0，程序会退出。

后记

以上就是今天我们的小案例了，关于素数的判断程序，其实还有著名的埃拉托斯特尼筛法，我们可以考虑下次使用拿手的 Python 来完成。