如果兩個(gè)質(zhì)數(shù)的差為2，則這兩個(gè)質(zhì)數(shù)稱為孿生質(zhì)數(shù)對(duì)；編寫VB程序，實(shí)現(xiàn)如下功能：單擊“顯示孿生質(zhì)數(shù)對(duì)”按鈕Command1，在列表框list1中顯示100以內(nèi)的所有孿生質(zhì)數(shù)對(duì)（運(yùn)行效果如圖所示）。
實(shí)現(xiàn)上述功能的VB代碼如下，但加框處代碼有錯(cuò)，請(qǐng)改正。
Dim a（1To 50）As Integer
Private Sub Command1_Click （　　）
Dim i As Integer
k=0：i=3
Do While i＜=100
If Then‘（1）
k=k+1
a（k）=i
End If
i=i+2
Loop
For i=2To k
If Then‘（2）
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=2To Int（Sqr（x））
If x Mod i=0Then
prime=True
Exit For
End If
Next i
End Function。