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

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

1到100之间的素数流程图如下所示：





质数又称素数，有无限个。一个大于1的自然数，除了1和它本身外，不能被其他自然数整除，换句话说就是该数除了1和它本身以外不再有其他的因数；否则称为合数。根据算术基本定理，每一个比1大的整数，要么本身是一个质数，要么可以写成一系列质数的乘积；而且如果不考虑这些质数在乘积中的顺序，那么写出来的形式是唯一的。最小的质数是2。

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  '结束