利用随机函数产生100个10～99之间的随机整数，找出其中的素数，并将这些素数求和。

Private Sub Command1_Click()

Dim lngSum As Long
Dim lngTemp As Long

lngSum = 0

For i = 0 To 100
Randomize
'Int((upperbound - lowerbound + 1) * Rnd + lowerbound)
lngTemp = Int((99 - 10 + 1) * Rnd + 10)
If checkNum(lngTemp) Then
lngSum = lngSum + lngTemp
End If
Print "随机数" & i & "数值" & lngTemp & " " & IIf(checkNum(lngTemp), "", "不") & "是素数"
Next

Print "素数和为：" & lngSum

End Sub

Function checkNum(ByVal lngNum As Long) As Boolean
Dim blnRet As Boolean

blnRet = True

For i = 2 To Sqr(lngNum)
If lngNum Mod i = 0 Then
blnRet = False
End If
Next i

checkNum = blnRet
End Function