下列程序在调试时提示错误“块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

小明编写一个模拟qq登录的VB程序。当输入用户名、密码和验证码，点击登录按钮后，会跳出信息框提示是否验证成功。部分程序与流程图如下所示：

uname = Text1.Text '输入用户名
psd = Text2.Text    '输入密码
vcode = Val(Text3.Text) '输入验证码
If vcode <> Val(Label3.Caption) Then
MsgBox “”  ①   ' Label3显示的是随机验证码
ElseIf uname <> "admin" Or psd <> "123456" Then
MsgBox “ ②  ”
Else
MsgBox “ ③  ”
方框中正确的语句是（ ）。

A．①中“验证成功”

B．②中“输出用户名或密码有误”

C．②中“验证成功”

D．③中“输出验证码错误”

某算法的流程图如图所示：

执行该算法后，“a←a＋1”共被执行的次数是(  )

A．0	B．1
C．4	D．5

小庄编写了一个统计数组元素a(l)到a(n)中的“升序段”个数s(如图所示的数据序列，其 “升序段”的个数等于3)的VB程序。部分程序如下：

k = 0 ： s = 0
For i =" 2" To n
If a(i) > a(i - 1) Then

Else
If k =" 1" then
s=s+1
k=0
end if
End If
Next i
Textl.Text = Str(s)
方框中的正确语句是(    )

A．k =" k" - 1	B．k =___1___
C．k = -1	D．k =" k" + 1

输出的结果为 。
Dim n as integer
Dim s as long
n=9
s=0
do while n>=1
s=s+n
n=n-2
loop
print s