初学者，VB看看这段验证歌德巴赫猜想的代码是怎么了

Dim i, k, n, x As Long

Private Sub Command1_Click()
Function fx(x)
Dim sq, ii As Long
sq = Sqr(x)
For ii = 2 To sq
If x Mod ii = o Then Exit For
Next
If ii > sq Then
fx = 1
Else
fx = 0
End If
End Function

n = Val(Trim(Text1.Text))
For i = 6 To n Step 2
For k = 6 To n Step 2
If fx(i) + fx(k) = 2 And i + k = n Then
Print i; k; n
End If
Next
Next

End Sub

Private Sub Form_Load()
Text1.Text = ""
End Sub

我是VB初学者 不知道这段代码是什么意思 谁来帮我看看这段vb程序 请高人近来看看这段VB 求VB高手看看这段代码 帮忙看看这段VB代码. 用VB验证歌德巴赫猜想：一个大偶数可以分解为两个素数之和。 请帮我看看这段vb的程序 请VB高手给看看这段代码! 请帮我看看这段vb代码 那位大哥帮忙看看这段vb代码