用VB编一种验证素数的程序,最好多用几种循环

n 为要验证的数

For i = 2 To Int(Sqr(n))
I f n Mod i = 0 Then Exit For
Next i

If i > Int(Sqr(n)) Then
Print n & 不是素数;

End If

求素数
void prime ()
{
const int N = 100;
int a[101] = {0};
for (int i = 2; i <= N / 2; i++)
for (int j = 2 * i; j <= N; j += i)
a[j] = 1;
for (i = 1; i <= N; i++)
if (a[i] == 0)
cout << i << '\t';
}