来源:学生作业帮 编辑:灵鹊做题网作业帮 分类:综合作业 时间:2024/04/29 15:08:00
1到100之间的素数流程图怎么画?
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 '结束