该同学绘制了该程序的流程图，如下图所示：

s = 0

For a =      To 8 Step 2

  s = s + a

Next a 

若要使语句s = s + a执行3次，则循环变量a初值为（   ）

Private Sub Cnd1_Click( )

   Dim W As Integer，T As String

   W = Val（Txt1.Text）

   T = ”Y”

   If  W < > 100 and W > 80 Then T = ”N”

   Txt2.Text = T

End Sub

For i = 1 To Len(Text1.Text)

  c = Mid(Text1.Text, i, 1)

  If c >= "0" And c <= "9" Then c = Chr(Asc(c) + 1)

  If c >= "A" And c <= "Z" Then c = Chr(Asc(c) + 32)

  s =s + c

Next i

若文本框Text1的内容为“Number 2468！”执行程序后，变量s的值为（   ）

   a（1）=1：a（2）=1

   b（1）=1：b（2）=2

   for i=3 to 5

       a(i)=a(i-1)+a(i-2)

       b(i)=b(i-1)+a(i)

   next i

执行该段程序后，数组元素b（5）的值为（  ）

编写一个验证哥德巴赫猜想的VB程序:程序运行时，在文本框Text1中输入一个大于或等于4的偶数，单击“验证”按钮Command1后，如果哥德巴赫猜想验证成功，则在文本框Text2中显示“Yes”，并在列表框List1中显示用两个素数表示该偶数的等式，否则显示“No”。程序运行效果如图所示。

实现上述功能的VB代码如下，但加框处代码有错，请改正。

Function judge(x As Integer)As Boolean

 ‘函数judge的功能是判断整数x是不是素数，若是素数则返回True，否则返回False

 Dim j As Integer

 judge=True

 j=2

 Do While j<=x-1 And judge=True

If x Mod j=0 Then

judge=False

Else

j=j+1

End If

 Loop

End Function

Private Sub Command1_Click()

 Dim n As Integer, p As Integer, q As Integer, flag As Boolean

 n=Val(Text1.Text)

 p=1

 flag=False

 Do While  And p<n    ‘{#blank#}1{#/blank#}

 p=p+1

      ‘{#blank#}2{#/blank#}

If judge(p)And judge(q)Then

Text2.Text=“Yes”

flag=True

List1.AddItem Str(n)+“=”+Str(p)+“+”+Str(q)

  End If

 Loop

 If flag=False Then

Text2.Text=“No”

End Sub