Function CombinePrime(Num)
Dim a As Long,b As Long,c As Long
a = 1
Do While a = 2
b = b + 1
c = Num - a - b
If IsPrimeNum(a) And IsPrimeNum(b) And IsPrimeNum(c) Then
MsgBox Str(Num) & "由素?cái)?shù)" & Str(a) & Str(b) & Str(c) & "組成"
Exit Function
End If
Loop
Loop
End Function
Function IsPrimeNum(Num) As Boolean
Dim i As Long,j As Long
j = Int(Sqr(Num))
If Num >= 2 Then IsPrimeNum = True
For i = 2 To j
If Num Mod i = 0 Then
IsPrimeNum = False
Exit For
End If
Next
End Function
Private Sub Command1_Click()
Dim a As Integer
If Text1.Text "" Then
a = Text1.Text
If a Mod 2 0 And a >= 7 Then
Call CombinePrime(a)
Else
MsgBox "輸入錯(cuò)誤,請(qǐng)輸入大于5的奇數(shù)!"
End If
Else
MsgBox "輸入錯(cuò)誤,請(qǐng)輸入大于5的奇數(shù)!"
End If
End Sub