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

来源:学生作业帮助网 编辑:六六作业网 时间:2024/11/22 07:42:08
1到100之间的素数流程图怎么画?1到100之间的素数流程图怎么画?1到100之间的素数流程图怎么画?Rem语言:VisualBasic6.0SubMain() '开始 i

1到100之间的素数流程图怎么画?
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  '结束