Question

倒序输出100到200之间的素数

Answer 1

Public Function IsSushu(ByVal pa As Integer) As Boolean
        Dim pb As Integer
        pb = pa - 1
        Dim res As Boolean
        res = True
        For i = 2 To pb
            If pa Mod i = 0 Then
                res = False
                Exit For
            End If
        Next i
        IsSushu = res
End Function
Private Sub Command1_Click()
For i = 200 To 100 Step -1
    If IsSushu(i) = True Then
        Print i
    End If
Next i
End Sub

Answer 2

#include <stdio.h>

int main(void)
{
int i,j;

for (i = 100; i <= 200; i++)
{
for(j = 2; j <= i/2; j++)
{
if (i%j == 0)
{
break;
}
}
if(j > i/2)
{
printf("%d \n", i);//输入素数
}
}
while(1){};//全部素数输出完成，进入死循环
return 0;
}

Answer 3

提供一个C的作参考……

#include "stdio.h"
int prime(int n){
    int i;
    for(i=3; i*i<=n;i+=2)
        if(!(n%i))
            return 0;
    return 1;
}
int main(void){
    int i;
    for(i=199;i>100;i-=2)
        if(prime(i))
            printf("%4d",i);
    printf("\n");
    return 0;
}