求100到300之间的所有素数，以及它们的和，vb程序

VB求100~300之间的素数之和。~

不用控件，程序如下：
Private Sub From_Click()
Dim I As Integer
Dim J As Integer
Dim T As Boolean
Dim S As Integer
S=0
for I = 100 To 300
T=False
For J=2 To Sqr(I)
if I Mod J=0 Then
T=True
Exit For
End If
Next
if T Then S=S+I
Next
Print “素数之和是”;S
End Sub
有什么问题请留言。

vb 编程 找出100到200之间的所有素数
个很简单，如果你要代码就hi我吧
马上就好

2.打开的是吉祥，看到的是鸿运，愿所有祝福涌向您，祈望您心情舒畅万事顺意，愿这美好心愿化为最真挚的问候传给您！

本程序为VB6.0，新建一工程，拖入一个命令按钮，转到代码窗口，删除所有代码，再粘贴以下代码，运行即可。

Option Explicit
Dim I As Integer
Dim J As Integer
Dim S As Integer
Dim K As Integer
Private Sub Command1_Click()
S = 0
Cls
Print "100-300之间的素数有："
For I = 100 To 300 '用循环对100-300之间（含）的数进行逐一判断
  K = Sqr(I) '取要判断数的平方根
  For J = 2 To K
     If I Mod J = 0 Then GoTo aa '如何该数能被一个大于2的数整除，则不是素数,跳出循环，判断下一个数。
  Next J
  Print I; '在屏幕显示这个素数。
  S = S + I '对素数进行累加
aa: If I = 200 Then Print '满200时换行。
Next I
Print
Print "它们的和是：";
Print S

End Sub

运行结果如下：

Private Sub Command1_Click()
    Cls
    Dim Sum As Integer
    Sum = 0
    Dim n As Integer
    n = 0
    For i = 100 To 300
        If IsPrime(i) Then
            Print i;
            n = n + 1
            Sum = Sum + i
            If n Mod 5 = 0 Then Print
        End If
    Next i
    Print
    Print Sum
End Sub
Private Function IsPrime(ByVal n As Integer) As Boolean
        Dim pb As Integer
        pb = n - 1
        IsPrime = True
        For i = 2 To pb
            If n Mod i = 0 Then
                IsPrime = False
                Exit For
            End If
        Next i
End Function

---

鸡泽县19755255561： 求100至300之间的所有素数 - ？
诸葛点氨苄： 100--300之间所有素数的个数是＂ 0 Thenp = TrueElsep = FalseExit ForEnd IfNext aIf p = True ThenIf k Mod 5 = 0 Then PrintPrint n,k = k + 1End If '这里少了End IfNext nPrintPrint ＂&gt, 已在代码中用注释标出 Private Sub Form_...

鸡泽县19755255561： 将100 - 300之间的所有素数找出来, - ？
诸葛点氨苄： 第二次输出时c【n++】应该重新让n=0;因为你地一次循环式也是用的n,第二次用n的时候n并不是0;

鸡泽县19755255561： 编程求100到300之间的全部素数的和 - ？
诸葛点氨苄： #include<stdio.h> void main() {int n,i,k;k=0; for(n=100;n<=300;n++) {for(i=2;i<=n-1;i++) {if(n%i==0)break; } if(i>n-1) k+=i; }printf(＂100到300的素数和是%d\n＂,k); }

鸡泽县19755255561： 求100到300间的素数和 - ？
诸葛点氨苄： 求100到300间的素数和 ncludestdio.h>#includemath.h> main() { int i,j,flag,sum=0; for(i=100;i=300;i++)//此处多了一个分号...以修改 { for(flag=0,j=2;j=i-1;j++) if(i%j==0) { flag=1; break; } if(flag==0) sum+=i; } printf(＂the sum is%d\n＂,sum); }

鸡泽县19755255561： c语言编程题:求100到300之间的所有素数? - ？
诸葛点氨苄： 上面那个可能通不过编译,下面的可以.#include#include ＂math.h＂ main() { int m,i,k,h=0,leap=1; printf(＂\n＂); for(m=100;m<=300;m++) {k=sqrt(m+1); //素数m是不能被1~根号m整除的 for(i=2;i<=k;i++) if(m%i==0) {leap=0;break;} //被整除说明...

鸡泽县19755255561： 求100到300的素数 - ？
诸葛点氨苄： #include void main() {int n,i,k;k=0; for(n=100;nn-1) k+=i; }printf(＂100到300的素数和是%d\n＂,k); }

鸡泽县19755255561： c语言问题:求100 - 300之间的素数?谁知道? - ？
诸葛点氨苄： 素数就是质数,你要求的是求100-300之间包含的所有素数?代码的话,在这里:#include ＂stdio.h＂ main() { int i; printf(＂100 - 300之间的质数有:\n＂); for(i=100;i<300;i++) { if(i%2!=0 && i%3!=0 && i%5!=0) { printf(＂%d\t＂,i); } } } 复制去运行一下,没问题的话请采纳!

鸡泽县19755255561： C语言 求100到300之间的素数 - ？
诸葛点氨苄： 代码如下: #include <stdio.h> #include <stdlib.h>/** * 判断 n 是否是素数,如果是返回 1,否则返回 0 */ int IsPrime(int n) {int i = 0; if (n < 2) {return 0;} for (i = 2; i < n - 1; i++) {if (n % i == 0) {return 0;}} return 1; }int main() {int i; for (i = ...

鸡泽县19755255561： 求100~300的所有素数. - ？
诸葛点氨苄： 运行通过: #include<stdio.h> #include<math.h> main() { int m,k,i=0; for (m=101;m<300;m+=2) {k=(int)sqrt(m); for (i=2;i<=k;i++)if (m%i==0) break;if (i>k) printf(＂%5d＂,m); } printf(＂\n＂); } 结果:101 103 107 109 113 127 131 137 139 149 ...

鸡泽县19755255561： 编写程序找出100~300之间的素数. - ？
诸葛点氨苄： #include ＂stdio.h＂#include ＂math.h＂ void main() { int prime[401]={0}; int d; int k; int i; for(d=2;d<=sqrt(300);d++) if(prime[d]==0) for(k=2*d;k<=300;k=k+d) prime[k]=1; k=0; for(i=2;i<=300;i++) if(prime[i]==0) { if(i<=100) continue; else { printf(＂%d\t...