用vba怎么严重哥德巴赫猜想？

mouse711

求高手解决一下用vba验证哥德巴赫猜想的代码，谢谢

northwolves

1. Function Goldbach(ByVal n As Long) As String
   
2. Dim a&, b&
   
3. For a = 3 To n \ 2 Step 2
   
4. b = n - a
   
5. If beprime(a) = 1 And beprime(b) = 1 Then Goldbach = n & "=" & a & "+" & b: Exit Function
   
6. Next
   
7. End Function
   
8. 
   
9. Function beprime(ByVal n As Long) As Byte
   
10. Dim i&
    
11. If n Like "[357]" Then beprime = 1: Exit Function
    
12. For i = 3 To Sqr(n) Step 2
    
13. If n Mod i = 0 Then Exit For
    
14. Next
    
15. If i > Sqr(n) Then beprime = 1
    
16. End Function
    
17. 
    
18. Sub Test()
    
19. Dim n As Long
    
20. Randomize
    
21. n = InputBox("请输入一个大于4的偶数", , Int(Rnd * 2 ^ 30) * 2)
    
22. MsgBox Goldbach(n)
    
23. End Sub
    

复制代码

zxd_little

好东西啊，感觉是

aaa0548

不明觉厉，感觉老牛了