Rem 语言:Visual Basic 6.0
Sub Main() 开始
i = 2
Do
j = 2
Do Until i mod j = 0 Or j * j > i
j = j + 1
Loop
If j * j > i Then
MsgBox i,vbInformation,"输出"
End If
If Not (i < 100) Then Exit Do
i = i + 1
Loop
End Sub 结束
1到100之间的素数流程图如下所示:
质数又称素数,有无限个。一个大于1的自然数,除了1和它本身外,不能被其他自然数整除,换句话说就是该数除了1和它本身以外不再有其他的因数;否则称为合数。根据算术基本定理,每一个比1大的整数,要么本身是一个质数,要么可以写成一系列质数的乘积;而且如果不考虑这些质数在乘积中的顺序,那么写出来的形式是唯一的。最小的质数是2。
Rem 语言:Visual Basic 6.0
Sub Main() 开始
i = 2
Do
j = 2
Do Until i mod j = 0 Or j * j > i
j = j + 1
Loop
If j * j > i Then
MsgBox i, vbInformation, "输出"
End If
If Not (i < 100) Then Exit Do
i = i + 1
Loop
End Sub 结束这个的话我帮你画好发到你的QQ邮箱里。