任意一个大于或等于4的偶数，都可以用两个素数之和表示，这就是哥德巴赫猜想。如:4=2+2，6=3+3，8=3+5， 10=5+5，12=5+7，98=19+79。编写一个验证哥德巴赫猜想的VB程序:程序运行时，在文本框Text1中输入一个大于或等于4的偶数，单击“验证”按钮Command1后，如果哥德巴赫猜想验证成功，则在文本框Text2中显示“Yes”，并在列表框List1中显示用两个素数表示该偶数的等式，否则显示“No”。程序运行效果如图所示。
实现上述功能的VB代码如下，但加框处代码有错，请改正。
Function judge(x As Integer)As Boolean
‘函数judge的功能是判断整数x是不是素数，若是素数则返回True，否则返回False
Dim j As Integer
judge=True
j=2
Do While j<=x-1 And judge=True
If x Mod j=0 Then
judge=False
Else
j=j+1
End If
Loop
End Function
Private Sub Command1_Click()
Dim n As Integer, p As Integer, q As Integer, flag As Boolean
n=Val(Text1.Text)
p=1
flag=False
Do While 
And p<n ‘{#blank#}1{#/blank#}
p=p+1
‘{#blank#}2{#/blank#}
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
