如下图所示，该流程图所表示的算法违背了算法的有穷性特征，下列修改方法中，可以改正该错误的是（）

A．将①处改为 i ← 0	B．将②处改为 s ≥ 0 ?
C．将③处改为 i ← i-2	D．将④处改为 s ← s-i

小王利用VB及ACCESS数据库制作了一个解密程序，具体使用过程如下：
在VB项目文件夹目录中有一个ACCESS数据库文件data.accdb，其中有一张数据表如图1所示ask字段中存放的是密文字符，对应ans字段中存放的是明文字符。

图1
VB程序界面如图2所示，其中一个按钮Command1的Caption属性值设置为“读取密码本”，另一个按钮Command2的Caption属性值设置为“解密”。程序运行后先点击Command1，程序将从ACCESS数据库中读取明文密文对照表并显示在列表框List1中。然后在密文文本框Texe1中输入加密文字，点击Command2解密后的明文将显示在Text2中。

图2
程序代码部分如下，请回答后面的问题：
Dim a() As String
Dim b() As String
Dim length As Integer
Private Sub Command1_Click()
List1.Clear
Dim i As Integer
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
conn.ConnectionString ＝“provider＝microsoft.ace.oledb.12.0；data source＝”& App.Path &
“\____①____”
conn.Open
rs.ActiveConnection ＝ conn
rs.CursorLocation ＝ adUseClient
rs. Open (“select * from code”)
length ＝ rs.RecordCount
ReDim a(1 To length)
ReDim b(1 To length)
rs.MoveFirst
For i ＝ 1 To length
a(i) ＝ rs.Fields(“ask”)
b(i) ＝ rs.Fields(“ans”)
List1.AddItem (a(i)&“____”&b(i))
rs.____②____
Next i
End Sub
Private Sub Command2_Click()
Text2.Text＝“”
Dim s As String
Dim i As Integer
s＝Text1.Text
For i＝1 To Len(s)
Text2.Text＝Text2.Text&translate(Mid(s，____③____))
Next i
End Sub
Function translate(ask As String) As String
Dim i as Integer
Dim flag as Boolean
i＝1
flag＝True
Do While i＜＝length And flag
If a(i)＝ask Then
____④____
End If
i＝i＋1
Loop
If flag＝True Then
translate＝“”
Else
translate＝b(i－1)
End If
End Function
(1)程序代码①处应该填入___________________________________。
(2)程序代码②处应该填入____________________________________。
(3)在程序代码③处补全Mid函数： __________________________。
(4)程序代码④处应该填入____________________________________。
(5)translate函数使用的查找算法是________(填对分查找/顺序查找)。

在VB程序中，如果要在一行内写多条语句时，语句之间应该用 分隔。

任意一个大于等于4 的偶数，都可以用两个素数之和表示，这就是哥德巴赫猜想。如：4=2+2，6=3+3，8=3+5，10=5+5，12=5+7，98=17+79。
编写一个验证哥德巴赫猜想的VB 程序：程序运行时，在文本框Text1 中输入一个大于等于4 的偶数，单击“验证”按钮Command1 后，如果哥德巴赫猜想验证成功，则在文本框Text2 中显示“Yes”，并在列表框List1 中显示用两个素数表示该偶数的等式，否则显示“No”。程序运行结果如图所示。实现上述功能的VB 代码如下，但加框处代码有错，请改正。

函数judge的功能是判断整数x是否为素数，若是素数则返回True，否则返回False
Function judge（x As Integer）As Boolean
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
judge=true    ‘①
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 flag = True And p < n ‘②
p =" p" + 1
q =" q" + 1     ‘③
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

有如下VB程序段：   

该程序段运行后，变量y的值是（   ）。

A．4

B．6

C．9

D．12