（n-1)Ⅱ+Ⅰ是单体;（n―1)Ⅱ+Ⅲ是三体;（n―2)Ⅱ+Ⅰ+Ⅰ是双单体。（)

A．3 4

B．4 3

A.i12=n1/n2=z2/z1

B.i12=n2/n1=z2/z1

C.i12=n2/n1=z1/z2

A.N2＞N1

B.N2=N1

C.N2

D.视型号确定

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

A.n1=n2

B.n1＜n2

C.n1＞n2

D.n1/n2