题目

任意一个大于或等于4的偶数，都可以用两个素数之和表示，这就是哥德巴赫猜想。如：4=2+2，6=3+3，8=3+5，12=5+7，98=19+79。 编写一个验证哥德巴赫猜想的VB程序，程序运行时，在文本框Text1中输入一个大于或等于4的偶数，单击“验证”按键Command1后，如果猜想验证成功，则在文本框Text2中显示“Yes”，并在列表框List1中显示用两个素数表示该偶数的等式；否则显示“No”。程序运行界面如图所示。 实现上述功能的VB代码如下，但加框处代码有误，请改正。 Function judge(x As Integer) As Boolean   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   Dim q As Integer, flag As Boolean   n=Val(Text1. Text)   p=1   flag=False   Do While  And p<n           ‘①     p=p+1                                 ‘②     If judge(p) And judge(q) Then         Text2. Text="Yes"         flag=True         List1. Addltem Str(n)+"="+Str(p)+"+"+Str(q)     End If   Loop   If flag=False Then     Text2.Text="No"   End If End Sub 以上程序段运行时，为了实现上述功能，加框处代码应改正为：①；②。 答案：【1】flag =False【2】q=n-p

查看本题答案和解析