2.
如果两个质数的差为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
Then ‘①
k=k+1
a(k)=i
End If
i=i+2
Loop
For i=2 To k
If
Then ‘②
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
以上程序段运行时,为了实现上述功能,加框处代码应改正为:①________;②________。