（加试题）某算法流程图如下图所示，该流程图对应的程序段为（ ）

A．s = 0 For i = 1 To 20 If i Mod 3 = 0 Then s = s + 2 * i Else i = i + 1 End If Next i

B．i = 1 For s = 0 To 20 If i Mod 3 = 0 Then s = s + 2 * i End If i = i + 1 Next i

C．i = 1: s = 0 Do While s <= 20 If i Mod 3 = 0 Then s = s + 2 * i Else i = i + 1 End If Loop

D．i = 1: s = 0

Do While s <= 20
If i Mod 3 = 0 Then
s = s + 2 * i
End If
i = i + 1
Loop

有如下程序段：
For i =" 1" To 2
For j =" 2" To 7 - i
If a(j) > a(j - 1) Then
k =" a(j):" a(j) =" a(j" - 1): a(j - 1) = k
End If
Next j
Next i
数组元素a(1)到a(6)的值依次为“71，54，58，29，31，78”，经过该程序段“加工”后，下列说法正确的是（ ）

A．数组元素a(1)到a(6)的值依次为54，29，31，58，71，78

B．此过程中数据共需比较次数为8次

C．此过程中数据共需交换次数为5次

D．此过程中数据“54”共被比较5次

任意一个大于等于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

某算法的部分流程图如右图所示，执行该流程图，下列描述正确的是

A．sßs + x 执行了4次

B．s ≤10? 执行了4次

C．s的值为15，x的值为6

D．s的值为10，x的值为5

下列程序在调试时提示错误“块IF没有End If”，要使程序正常运行，则应该在 （填①或②）处添加语句     。
Private Sub Image3_Click(Index As Integer)
Timer1.Enabled = False
Image1.Picture = Image3(Index).Picture
If x =" Index" Then
Label1.Caption = "平手"
Command1.Visible = True
    ①  
Else
If x =" 1" And Index =" 2" Or x =" 2" And Index =" 3" Or x =" 3" And Index =" 1" Then
Label1.Caption = "您输"
Command1.Visible = True:Zxxk.Com
Else
Label1.Caption = "您赢"
Command1.Visible = True
End If
    ②     
End Sub