（加试题）某VB程序段如下：
s = ""
For i = 1 To 5
a(i) = 0
Next i
For i = 2 To 5
For j = i To 5
If j Mod i = 0 Then a(j) = 1 - a(j)
Next j
Next i
For i = 1 To 5
If a(i) = 1 Then s = s + Str(i)
Next i
Text1.Text = s
运行该程序段后，Text1中显示的内容为

A．2 3 5

B．1 4

C．2 5

D．2 3 4

下列程序所计算的数学式子是(   ）
PRIVATE  SUB  FORM__CLICK( ）
S=0
FOR   A= 1  TO   5
S=S+（10^A-1）/3
NEXT  A
PRINT  S
END  SUB

A．10+100+1000+10000+100000

B．1+11+111+1111+11111

C．3+33+333+3333+33333

D．9+99+999+9999+99999

（加试题）王老师在使用 VB 程序要实现 n! 的功能。
Private Sub Command1_Click()
Dim p As Integer
Dim sum As Long
　p = Val(Text1.Text)
　sum = fx(p)
　Text2.Text = CStr(sum)
End Sub
Function fx(x As Integer) As Long
　If x = 1 Then
　　  fx = 1
　Else
　　  fx =____________________
　End If
End Function
要该程序实现此功能，横线处的代码为（　　）

A．x(x)*(x-1)

B．fx(x)*x

C．fx(x-1)*x

D．fx(x-1)*(x-1)

有如下VB程序段：
Dim a(1 To 5) As Intger
A(1)=5  :  a(2)=3  :  a(3)=8  :  a(4)=4  :  a(5)=2
For i = 1 To 4
If a（i）> a（i+1） Then
t = a(i): a(i) = a(i + 1): a(i + 1) = t
Endif
Next i
当程序运行结束后，a(5)的值是（   ）。

A．2

B．4

C．5

D．8

当输入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