input_print_素数.bp

来自「编译原理课程设计用vb编写」· BP 代码 · 共 12 行

Print "---------求素数程序---------"
Print "输入范围(不得大于100)";
While num < 1 Or num > 100
    Input num
Wend
Print "1到"; num; "之间的素数：";
For n = 1 To num
    For i = 2 To n - 1
        If (n Mod i) = 0 Then Exit For
    Next
    If i = n Then Print n; " ";
Next