有如下 Visual Basic 程序段：
x = 10
For i=1 to 10 step 3

x=x+i

Next  i 该程序段运行后, 变量 x 的值为（）。

A．14

B．20

C．26

D．32

有如下VB程序段：
s="EXPO2019":m=0:n=0
For i=1 To Len(s)
ch= Mid(s, i, 1)
If ch >=A"And ch <="Z" Then t= Asc(ch)-Asc("A")+1 Else t=Asc(ch)-Asc("0")
If t Mod 2=0 Or t Mod 3=0 Then

m=m+1

ElseIf t Mod 5=0 Then

n=n+1

End If
Next i
Labell Caption= Str(m)+ "：" +Str(n)
执行程序段后，标签 Label1显示的内容是（   ）

A．6：2

B．6：1

C．5：2

D．4：3

把学生成绩由高到低排序后，按姓名在前、成绩在后的顺序依次存储在数组a中。例如（“张三”“97” “李四”“92” “王五”“87”，……）。设计一个VB程序，利用对分查找思想实现在数组a中查找成绩为Key的学生姓名。程序段如下：
i=1:j=n  'n代表学生的数量
Key=Val(Text1.Text)
Do While i<=j
m=
If Val(a(m))>Key Then i=m\2+1 Else j=m\2-1
Loop
List1.Clear
j=j+1
Do While i<=n

If Val(a(2*j))=Key Then List1.AddItem a(2*j-1)+""十a(2*j)

Else exit do

j=j+1

Loop
上述程序中方框处可能的语句是（   ）

A．(i+j)\2

B．(i+h)/2

C．((i+j)12)*2

D．((i+j)\2)/2

某Visual Basic程序如下：
Private Sub Command1_Click()
Dim s As String, i As Integer
s = ""
For i = 1 To 10 Step 2
s = Str(i) + s
Next i
Text1.Text = s
End Sub
运行程序，单击命令按钮Command1后，在文本框Text1中显示的内容为（   ）

A．13579

B．1 3 5 7 9

C．9 7 5 3 1

D．97531

用 VB 程序编写了一个找最大值的程序，程序功能：在文本框中输入数字串（数据间用逗号分隔，以数字开头，逗号结尾），单击“寻找”按钮 Command1 后，在 Label3中输出最大的数值。程序运行界面如图所示：

Private Sub Command1_Click()
Dim i As Integer, max As Integer, j As Integer
Dim s As String, c As String, t As String
s = Text1.Text
i = 1 : j = 1
max = 0 : t = ""
Do While j <= Len(s)
c = Mid(s, j, 1)

If c = , Then

t = Mid(s, i, j - i)
If Val(t) > max Then max = Val(t)
①
End If
②     
Loop
Label3.Caption = Str(max)
End Sub
将划线处代码补充完成，正确的是（ ）

A．① i=i+1   ② j=j+1	B．① i=j+1   ② j=j+1
C．① j=j+1   ② i=i+1	D．① j=i+1   ② i=i+1