素?cái)?shù)是只能被 1 和它本身整除的數(shù).小明編寫了一個(gè) VB 程序?qū)崿F(xiàn)將某個(gè)偶數(shù)拆成兩個(gè)素?cái)?shù)之和.拆分方法如下:
①先將偶數(shù)拆分成兩個(gè)數(shù)之和,例如將 50 拆分為:3+47,4+46、…47+3.
②再對(duì)每種組合中的兩個(gè)數(shù)分別進(jìn)行素?cái)?shù)判斷.
在文本框 Text1 輸入一個(gè)偶數(shù),單擊“拆分”
按鈕 Command1 后,在列表框 List1 中顯示素?cái)?shù)組合.
程序運(yùn)行界面如圖所示.
實(shí)現(xiàn)上述功能的 VB 程序如下,但加框處代碼有錯(cuò),請(qǐng)改正. Private Sub Command1_Click ( ?。?br />Dim i As Integer,k As Integer i=Val(Text1.Text)
For k=3To i\2
If prime(k) And
Then List1.AddItem Str(k) &“+“& Str(i-k)
End If
Next k End Sub
Function prime(x As Integer) As Boolean
Dim j As Integer
prime=True
For j=2To Sqr(x)
If
=0Then
prime=False
Exit Function
End If
Next j
End Function.