当输入21，输出结果是 。
Dim x as long
x=inputbox(“输入x的值”)
if x mod 10="1" then
if x mod 8="3" then
x=x-12
end if
else
x=x-7
end if
print x

有如下VB程序段：
For i＝1To5
a(i)＝Int(Rnd*20)＋1
Next i
For i＝2 To 5
If i Mod 2＝1 And a(i－1)<a(i)Then
t＝a(i)：a(i)＝a(i－1)：a(i－1)＝t
Else
a(i)＝a(i)－1
End If
Next i
执行该程序段后，a(1)~a(5)各元素不可能的值是(    )

A．7  3  0  19  0	B．18  16  1  9  2
C．20  17  8  19  15	D．19  0  7  8  4

某VB程序功能如下：输入正整数n，单击命令按钮Command1后，则会生成一串有规律的数字序列，形式为“n  n-1  n-2 … 3  2  1  2  3 … n-2  n-1  n”。例如n=8时，生成的数字序列如图所示。代码如下：

Private Sub Command1_Click()
Dim n As Integer, i As Integer, s As String
n = Val(Text1.Text)
s = ""
For i =" 1" To 2 * n - 1
If i <=" n" Then  ① Else  ②  
Next i
Label1.Caption = s
End Sub
为实现以上功能，划线①②处应分别填写

A．①s =" s" & Str(n - i + 1)   ②s =" s" & Str(i - n + 1)

B．①s =" Str(n" - i + 1) ②s =" Str(i" - n + 1)

C．①s =" s" & Str(i - n + 1)   ②s =" s" & Str(n - i + 1)

D．①s =" Str(i" - n + 1) ②s =" Str(n" - i + 1)

现有如下Visual Basic程序段：

s = 0 ：x = 2：y = 49

Do While x <= Sqr(y)

s = s + x
x = x + 2

Loop

该程序段运行后，x的值是（  ）

A．2

B．6

C．8

D．12

有如下VB程序段：
For i = 1 To 3
j = 1
Do While j <= n - i - 1
If a(j) > a(j + 2) Then
t = a(j): a(j) = a(j + 2): a(j + 2) = t
End If
j = j + 1
Loop
Next i
如果n=7，数组元素a(1)到a(7)的值依次是“13，12，10，12，1，0，14”，程序段运行结束后，a(5)、a(6)、a(7)的值依次为

A．10，0，1

B．13，0，14

C．12，13，14

D．13，12，14