输入任意正整数,验证这个正整数是否可以分解为两个素数之和。 Private Sub Form_Click() Dim n As Long, a As Long, b As Long, i As Long, j As Long n = Val(InputBox("请输入一个正整数", "验证素数")) If n <= 2 Then MsgBox n & "不可以分解为2个素数之和" Else For a = 3 To n la = 1 ’假设分解的第一个数是素数 For i = 2 To Sqr(a) If a Mod i = 0 Then ‘分解的第一个数如果能够被1和本身之外的数整除,则假设不成立,即分解的第一个数不是素数 la = 0 Exit For End If Next i If i > Sqr(a) Then b = n - a lab = 1 ’假设分解的第二个数是素数 For j = 2 To Sqr(b) If __________________Then '分解的第二个数如果能够被1和本身之外的数整除,则假设不成立,即分解的第二个数不是素数 lab = 0 Exit For End If lab = 1 Next j If la = 1 And lab = 1 And b <> 0 Then ' 当分解后两个数都被判定为素数且b<>0时,则说明这个数可以分解为两个素数 Print n & "可以分解为2个素数之和" & ":" Print n; "="; a; "+"; b Print a & "和" & b & "都是素数" Else Print n & "不可以分解两个素数之和" End If End If Next a End If End Sub