Private Sub Command1_Click()
x = InputBox("请输入任意大于6的偶数","输入")
If Not IsNumeric(x) Then MsgBox "输入错误":Exit Sub
If x Mod 2 0 Or x < 6 Then MsgBox "请输入大于6的偶数":Exit Sub
Dim i As Integer,z As Integer
For i = 1 To x \ 2
z = x - i
If IsPrime(i) And IsPrime(z) Then Print x & "=" & i & "+" & z
Next
End Sub
Private Function IsPrime(n As Integer) As Boolean '判断一个数是否是素数
IsPrime = True
For j = 2 To n - 1
If n Mod j = 0 Then IsPrime = False:Exit For
Next
End Function