16.任意一個大于等于4 的偶數(shù),都可以用兩個素數(shù)之和表示,這就是哥德巴赫猜想.如:4=2+2,6=3+3,8=3+5,10=5+5,12=5+7,98=17+79.
編寫一個驗證哥德巴赫猜想的VB 程序:程序運行時,在文本框Text1 中輸入一個大于等于4 的偶數(shù),單擊“驗證”按鈕Command1 后,如果哥德巴赫猜想驗證成功,則在文本框Text2 中顯示“Yes”,并在列表框List1 中顯示用兩個素數(shù)表示該偶數(shù)的等式,否則顯示“No”.程序運行結(jié)果如圖所示.實現(xiàn)上述功能的VB 代碼如下,但加框處代碼有錯,請改正.
函數(shù)judge的功能是判斷整數(shù)x是否為素數(shù),若是素數(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‘①
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 flag=True And p<n‘②
p=p+1
q=q+1‘③
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.