德国数学家哥德巴赫曾猜测：任何大于6的偶数都可以分解成两个素数（素数对）的和。但有些偶数可以分解成多种素数对的和，如：10=3+7，10=5+5，即10可以分解成两种不同的素数对。
小敏编写了一个VB程序，用来求一个偶数（6到100之间）可能存在多少这样的素数对（注：A+B与B+A认为是相同素数对，不重复统计），并把这些结果输出到一个列表框中，通过逻辑推理，小敏发现这些素数对都是奇数，所以她只需要验证奇数的素数对即可。运行界面如图所示，程序代码如下。但加框处代码有错，请改正。
Dim IsPrime（100）As Boolean'用来存储是否素数，True为素数，False为非素数
Private Sub Command1_Click （　　）
Dim x As Integer,y As Integer,i As Integer,num As Integer
Call Init'调用Init函数
x=Val（Text1．Text）
y=x\2
num=0
For i=3To y Step 2
If IsPrime（i） Then'①
num=num+1
List1．AddItem Str（x）+“=“+Str（i）+“+“+Str（x-i）
End If
Next i
Label2．Caption=“偶数“+Str（x）+“共有“+Str（num）+“个素数对。“
End Sub
Sub Init

（　　）

（　　）

'初始化IsPrime数组的值
Dim i As Integer,j As Integer,x As Integer
For i=3To 100Step 2
x=Int（Sqr（i））
For j=2To x Step 2'②
If i Mod j=0Then Exit For
Next j
If j＞x Then IsPrime（i）=True Else IsPrime（i）=False
Next i
End Sub