求100以内的所有质数(素数) 要求:用VB的for语句写

Posted 2023-04-04

参考技术A Private Sub Command1_Click()
For n = 2 To 100 '2到100循环
For i = 2 To Int(Sqr(n)) 'sqrt(n)求开方用int取整
If n Mod i = 0 Then Exit For '如果2到100中的有数字满足不能被2到该数字开方的自然数除尽,它就是你要的素数!
Next i
If i > Int(Sqr(n)) Then '从2到int(sqrt(n))没有找到可以除尽的数字,[循环到i=int(sqrt(n))+1,不满足范围,推出循环]n就是素数!
textbox1.text+=n.tostring+" "
End If
Next n
End Sub 参考技术B Private Sub Command1_Click()
For n = 2 To 100 '2~100
For i = 2 To Int(Sqr(n))
If n Mod i = 0 Then Exit For
Next i
If i > Int(Sqr(n)) Then
Print n & "是素数"
End If
Next n '2~100

End Sub本回答被提问者采纳

c语言使用循环找出100之内的所有质数

c语言使用循环找出100之内的所有质数c语言使用循环找出100之内的所有质数

#include "stdio.h"
#define N 100
int main()

    int i,j;
    int flag;
    printf("100 以内的质数有：\\n");
    for(i=2;i<101;i++)
    
        flag = 1;
        for(j=2;j<=i/2;j++)
            if(i%j==0)
            
                flag = 0;
                break;
            
       if(flag)
           printf("%d ",i);
    
    printf("\\n打印完毕\\n");
    return 0;

追问

没有1呢？

质数还有1

参考技术A 什么追问

就是使用二重循环或者一重循环找出100以内的质数

老师布置的作业

不会弄