UC知道求救 用VB 验证 n×n+n+41
来源：百度知道 编辑：UC知道 时间：2024/06/22 21:58:57
求救 用VB 验证 n×n+n+41
只能被1和自身整除的数称为素数。例如3、29、101等都是素数。有人曾列出计算素数的算式：N×N＋N＋41(N是0或正整数)。请验证当N小于某个数时，该算式的计算结果都是素数；输出这个数及之前所求得的所有素数之和。编程序：
只能被1和自身整除的数称为素数。例如3、29、101等都是素数。有人曾列出计算素数的算式：N×N＋N＋41(N是0或正整数)。请验证当N小于某个数时，该算式的计算结果都是素数；输出这个数及之前所求得的所有素数之和。编程序：
'运行结果：N 小于 40，所有素数之和是 22960
Private Sub Command1_Click()
Dim N As Double, SS As Double, S As Double
Do
SS = N * N + N + 41
If Not IsSS(SS) Then
MsgBox "当N小于" & N & "时，计算结果都是素数。" & vbCrLf & "所有素数之和是：" & S
Exit Do
End If
S = S + SS
N = N + 1
Loop
End Sub
Private Function IsSS(N As Double) As Boolean
Dim I As Double
If N < 2 Then Exit Function
For I = 2 To Sqr(N)
If N Mod I = 0 Then Exit Function
Next
IsSS = True
End Function