Question

vb编写一个自定义函数,将一个正偶数分解成两个素数之和

Answer 1

Private Sub Command1_Click()

'一个偶数可能有几组满足你的要求的数据

Dim lODD As Long

Dim lE1 As Long

Dim lE2 As Long

Dim l1 As Long

Dim l2 As Long

Dim s1 As String

lODD = Val(Me.Text1.Text)

If lODD