K1解析算法、枚举算法与递归算法 以内质数 实现功能 值应为

（2020•温州3月选考模拟考试，16，4分）【加试题】如果两个质数的差为2，则这两个质数称为孪生质数对。编写VB程序，实现如下功能：单击“显示孪生质数对”按钮Command1，在列表框list1中显示100以内的所有孪生质数对（运行效果如图所示）。
实现上述功能的VB代码如下，但加框处【】代码有错，请改正。
Dim a（l To 50）As Integer
Private Sub Command1_Click（）
Dim i As Integer
k=0；i=3
Do While i<=100
If 【prime（i）】 Then ’__（1）__
k=k+1
a（k）=i
End If
i=i+2
Loop
For i=2 To k
If 【a（i）=a（i+1）+2】 Then ’__（2）__
List1.Addltem 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 )Nol prime(i)或prime(i)=False
(2) a(i)=a（i-1）+2


此题考查vb的综合应用。
（1）分析程序段可得函数prime是对质数的检验，且该数是质数，那么该函数的值应为False，而此时的循环中是要记录质数，故答案为：Not prime(i)或prime(i)=False。
（2）分析此空之上的for循环可得该循环的初值为2，因此答案应为：a(i)=a(i-1）+2。（数组a(i)存储着100以内的所有质数）