如果兩個質(zhì)數(shù)的差為2，則這兩個質(zhì)數(shù)稱為孿生質(zhì)數(shù)對；編寫VB程序，實現(xiàn)如下功能：單擊“顯示孿生質(zhì)數(shù)對”按鈕Command1，在列表框list1中顯示100以內(nèi)的所有孿生質(zhì)數(shù)對（運行效果如圖所示）。
實現(xiàn)上述功能的VB代碼如下，但加框處代碼有錯，請改正。
Dim a（1To 50）As Integer
Private Sub Command1_Click （　?。?br />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。