速求VB编程,题目:编写判断一个整数是否为素数的过程,并调用该过程输出100-200的所有素数

Answer 1

Private Function IsPrimeNum( num As Integer) As Boolean
Dim I As Integer
For I = 2 To CInt(Sqrt(num)) If (num Mod I =0) Return False End If

Next

Return True
End Function 主函数调用：Dim I As IntegerFor I = 100 To 200 If IsPrimeNum(I)
Print(I) End If
Next

Answer 2

//===#include <stdio.h>#include <math.h>//--int fun(int a) //判断是否是素数{ int i; for(i=2;i<=(int)sqrt(a);i++) { if(a%i==0) break; } if(i>(int)sqrt(a)) //是素数 return 1; else return 0;}//--void main(){ int i; printf("1000以内的素数有：\n"); for(i=2;i<=1000;i++) if(fun(i)) printf("%4d",i);}//===