Private Sub Form_Click()
Dim N%, N1%, N2%, I%, K1%, K2%
N = Val(InputBox("输入大于6的偶数"))
For N1 = 3 To N / 2 Step 2
K1 = ----1---
For I = 2 To K1 '判断N1是否是素数
If N1 Mod I = 0 Then ----2----
Next I
If I > K1 Then
N2 = ----3----
K2 = Int(Sqr(N2))
For I = 2 To K2
If N2 Mod I = 0 Then Exit For
Next I
If I > K2 Then Print N & "=" & N1 & "+" & N2
End If
End If
Next N1
End Sub
对于已设定的三个连续偶数,可以确定他们的和为18。
(1)这三个连续偶数中,每两个数之积相加等于104
(2)这三个连续偶数中的最小的数等于其他两数之和的1/3
A.条件(1)充分,但条件(2)不充分。
B.条件(2)充分,但条件(1)不充分。
C.条件(1)和(2)单独都不充分,但条件(1)和条件(2)联合起来充分。
D.条件(1)充分,条件(2)也充分。
E.条件(1)和(2)单独都不充分,条件(1)和条件(2)联合起来也不充分。