作业帮 > 综合 > 作业

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

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/07/09 02:58:04
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  '结束