【加试题】德国数学家哥德巴赫曾猜测:任何大于6的素数都可以分解成两个素数(素数对)的和。但有些偶数可以分解成多种素数对的和,如:10=3+7,10=5+5,即10可以分解成两种不同的素数对的和。
小敏编写了一个VB程序,用来求一个偶数(6到100之间)可能存在多少这样是素数岁(注:A+B与B+A认为是相同素数对,不重复统计),并把这些结果输出到一个列表框中,通过逻辑推理,小敏发现这些素数对都是奇数,所以她只需要验证奇数的素数对即可,运行界面如图所示,程序代码如下。但加框处代码有错误,请改正。
Dim IsPrime(100)As B00lean ‘用来存储是否素数,True为素数,False为非素数
privatw Suh 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==3 To y Step 2
If 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=3 To 100 Step 2
X=Int(Sqr(i))
For Step 2 ‘②
If i Mod j=0 Then Exit For
Next j
If i>x Then IsPrime(i)-True Else IsPrime(i)=False
Next i
End Sub
①处加框代码应该为。
②处加框代码应该为。