作业帮 > 综合 > 作业

1到100之间的素数流程图怎么画?

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