任意一個大于等于4 的偶數(shù)，都可以用兩個素?cái)?shù)之和表示，這就是哥德巴赫猜想．如：4=2+2，6=3+3，8=3+5，10=5+5，12=5+7，98=17+79．
編寫一個驗(yàn)證哥德巴赫猜想的VB 程序：程序運(yùn)行時，在文本框Text1 中輸入一個大于等于4 的偶數(shù)，單擊“驗(yàn)證”按鈕Command1 后，如果哥德巴赫猜想驗(yàn)證成功，則在文本框Text2 中顯示“Yes”，并在列表框List1 中顯示用兩個素?cái)?shù)表示該偶數(shù)的等式，否則顯示“No”．程序運(yùn)行結(jié)果如圖所示．實(shí)現(xiàn)上述功能的VB 代碼如下，但加框處代碼有錯，請改正．
函數(shù)judge的功能是判斷整數(shù)x是否為素?cái)?shù)，若是素?cái)?shù)則返回True,否則返回False
Function judge（x As Integer）As Boolean

Dim j As Integer
judge=True
j=2
Do While j＜=x-1And judge=True
If  x Mod j=0Then
judge=False
Else
judge=true‘①

j=j+1

j=j+1

End If
Loop
End Function
Private Sub Command1_Click （　?。?br />Dim n As Integer,p As Integer,q As Integer,flag As Boolean
n=Val（Text1．Text）
p=1
flag=False
Do While flag=True And p＜n‘②

flag=False

flag=False

p=p+1
q=q+1‘③

q=n-p

q=n-p

If judge（p）  And  judge（q） Then
Text2．Text=“Yes“
flag=True
List1．AddItem Str（n）+“=“+Str（p）+“+“+Str（q）
End If
Loop
If flag=False Then Text2．Text=“No“
End Sub.