VB 找出1000以内所有质数的算法,质数的规律

Q1：VB 找出1000以内所有质数的算法

Private Sub Command1_Click()For i = 2 To 1000For j = 2 To iIf i Mod j = 0 Then Exit ForNext jIf j = i Then Print i;Next iEnd Sub

Q2：求1000以内所有素数的算法与vB程序语言对应

你自己用vb改改吧int sushu(){ int i=0,n; bool isFind; for(i=2;i<1000;i++){ isFind=true; for(n=2;n<1000;n++){ if(i!=n && i % n ==0){ isFind=false; break; } } if(isFind) qDebug()<<i; } return 0;}

Q3：用vb求出1-1000中所有的素数

private sub命令1 _ click()hole=2到1000 for j=2ti-1 ifmodj=0 nexiftornxtyjijj=itprintformat(I，" @ @ @ ")；n=n1 if model 10=0 thenprontinudsub

Q4：用VB编写一个程序，找出1~1000范围内的所有素数，并将这些素数显示在窗体上

以下是正确的：private子命令1 _ click()表示n=2到1000表示I=2到int (sqr (n))如果n mod I=0则退出结束如果下一个I如果I int (sqr (n))则打印n；Nendsub描述：11将End if添加到Next i的前一行，形成一个完整的if.end if语句，以便结束if语句并执行下一条语句22.另外，Print n后表面的多余标记可以输出到同一行3

Q5：vb题目：打印输出1000以内所有的质数 求代码答案

Q6：VB求1000以内素数

下一个http://redoufu.com/。循环会自动增加循环变量的值，所以j=j 1 x=x 1是多余的，改正如下：Dim k As Boolean，x As Integer，j As Integer，和As Longsum=0对于x=2到1000k=True对于j=2到Sqr(x)如果x Mod j=0那么k=假如果下一个jIf k=真那么sum=sum xEnd IfNext xPrint sum