|
楼主 |
发表于 2023-3-6 10:21
|
显示全部楼层
Private Function fenjieyinzi3(sa As String) As String
Dim x, a, b
x = sa
b = Int(Sqr(Val(x)) / 2)
If x = 3 Or x = 2 Then
a = True
Else
If Right(x, 1) Mod 2 = 0 Then
a = False
Else
For I = 3 To 2 * b + 1 Step 2
If InStr(Val(x) / I, ".") = 0 Then
a = False
Exit For
Else: a = True
End If
Next
End If
End If
If a = True Then
fenjieyinzi3 = "这是个素数"
Else
fenjieyinzi3 = "2*2"
End If
End Function |
|