题目

如果两个质数的差为2，则这两个质数称为孪生质数对；编写VB程序，实现如下功能：单击“显示孪生质数对”按钮Command1，在列表框List1中显示100以内的所有孪生质数对（运行效果如图所示）。 实现上述功能的VB代码如下。 Dim a(1 To 50) As Integer Private sub Command1_Click()     Dim i As Integer     k=0: i=3     Do While i<= 100         If Not prime(i) Then             k=k+1                     End If         i=i+2     Loop     For i=2 To k         If         Then             List1 AddItem Str(a(i-1))+"和"+ Str(a(i))         End if     Next i End Sub Function prime (x As Integer)As Boolean     prime=False     For i=2 To Int(sar(x))         If x Mod i=0 Then             prime=True             Exit for         End If     Next i End Function （1） 语句“List1. AddItem Str(a(i-1))+"和"+Str(a(i))”中的AddItem是（单选，填字母：A ．对象名/B ．属性名/C ．事件名/D ．方法名）。 （2） 程序代码中，加框处有错，请改正。 （3） 程序代码中，将横线处语句补充完整。 （4） 在自定义函数中，函数返回值prime=Flase表示的含义是。 答案： 【1】D a(k)=i a(i)=a(i-1)+2 【1】数x是质数

查看本题答案和解析