来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/07/09 02:58:04
1到100之间的素数流程图怎么画?
![](http://img.wesiedu.com/upload/1/a0/1a0d183cb41a429d526a61f5d38a39f2.jpg)
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 '结束