某VB程序代码如下：
Dim n As Integer
Dim s As String
n = 73
s = ""
Do While n > 0
s = Str(n Mod 8) + s
n = n \ 8
Loop
执行该程序段后，变量s的值是 （ ）

A．"121"

B．121

C．"111"

D．111

有如下VB程序段：
For i=2 To 8
Max=0
For j=1 To i-1
If a(i)>a(j) And f(j)>Max Then Max=f(j)
Next j
f(i)=Max+f(i)
Next i
数组f元素的初始值都为1，数组a的元素值为5,3,47,4,31,39,7,8，程序运行后f(6)的值为（   ）

A．1

B．2

C．3

D．4

《庄子．天下篇》中写道：“一尺之棰，日取其半，万世不竭”意思是：一根一尺的木棍，如果每天截取它的一半，永远也取不完。根据题意，第一天木棍剩下0.5尺，第二天木棍剩下0.25尺……
(1)在VB中处理0.25这样的小数时，应采用哪种数据类型________________ ）
(2)编程求解，到第几天时，木棍长度小于0.01尺，写出VB代码。

某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)

在VB中，下列程序段执行后，语句s=s+i重复执行的次数是  (   ) 
s=1
For  i=1 To 10 Step 3
s=s+i
Next i
Print s

A．3次

B．4次

C．5次

D．10次