题目

如果两个质数的差为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(Sqr(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是质数

查看本题答案和解析