如何用VBA写判断101-200之间有多少个素数，并输出所有素数的程序

Question

如何用VBA写判断101-200之间有多少个素数，并输出所有素数的程序

Answer 1

题主要的代码如下

Sub getPrime()
  num = 0
  s = ""
  For i = 101 To 199 Step 2
    half = CInt(i / 2)
    isPrime = True
    For k = 2 To half
      If i Mod k = 0 Then
        isPrime = False
        Exit For
      End If
    Next
    If isPrime Then
      num = num + 1
      s = s & vbNewLine & i
    End If
  Next
  MsgBox "101之间200素数个数：" & num & s
End Sub