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.4个
B.3个
C.2个
D.1个
A.有效使一种口语有用,冗长使一种口语可信。
B.如果人类的听觉系统不是一个完善的声音接受器,那么口语就不可能非常地有效。
C.如果一种口语非常地冗长,那么它就不可能有用。
D.如果人类的听觉系统是一个完善的声音接受器,那么语言音素的每一个排列都可产生一个能被理解的单词。