有如下 VB 程序段：
Private Sub Command1_Click()
Dim i As Integer,s As string
s = ""
For i = 1 To 3 Step 2
s = str(f(i)) + s
Next i
Text1. Text = s
End Sub
Function f(n As Integer) As Integer
If n = 1 Then
f = 2
Else
f = f(n - 1) + n
End If
End Function
则执行该程序段后，s 的值为（   ）

A．247

B．27

C．72

D．742

某算法的部分流程图如图所示，若n输入的值为1，则变量s的值是多少？如将循环体“s=s+n和n=n+2”交换顺序，则s值又是多少？

A．25、26

B．26、25

C．36、36

D．26、36

输出的结果为 。
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

设计算法：香蕉促销：3千克以下（不包括3千克），每千克3.5元，3-6千克（不包括6千克），每千克3元，6千克以上，每千克2.6元。请补全以下代码。
Dim  w  as  double
Dim  p  as  double
W = inputbox(“请输入购买的重量：千克”)
If   （1）__________  then
If （2）__________ then
P =3 *w
Else
P =2.6 *w
End if
Else
P=3.5*w
End if
Print  p

在VB中，可用来实现选择结构的语句是（  ）

A．If…Then

B．For… Next

C．End

D．Print