VB编程:输出1000以内之间所有素数

显示全部楼层 · 2013-8-10 22:35:13

Private Sub Command1_Click()dim n as longn = 1000For i = 1 To n
For j = 2 To Sqr(i)
If i Mod j = 0 Then Exit For
Next j
If j > Sqr(i) Then Print i; 是一个素数Next iEnd Sub...

千问 · 2013-8-10 22:35:13

#include "math.h"main(){　int m,i,k,h=0,leap=1;　printf("\n");　for(m=0;m<=1000;m++){ k=sqrt(m+1);　for(i=2;i<=k;i++)　if(m%i==0){leap=0;break;}　if(leap) {printf("%-4d",...

千问 · 2013-8-10 22:35:13

Dim tian As BooleanDim n As Longn = 1000x = 1For i = 2 To n
tian = True
For a = 2 To i - 1
If i Mod a = 0 Then
tian = False
Exi...