某商品团购优惠策略的流程图如图所示

当n为100、p为10时，实付金额s的值是(    )。

A．1000

B．950

C．850

D．750

某排序算法的 VB 程序段如下：
K=1
For i = 1 To 2
For j = 1 To 6 - 2 ∗i
If K∗a(j) < K∗a(j + 2) Then
t = a(j): a(j) = a(j + 2): a(j + 2) = t
End If
K=-K
Next j
Next i
数组元素 a(1) ~a(6)的初始值依次为“10，15，8，35，26，17”，执行该程序段后，数组 a 元素的值分别为（   ）

A．8，10，15，17，26，35	B．35，26，17，15，10，8
C．26，35，10，17，8，15	D．26，15，10，17，8，35

S=0: M=0:N=0
FOR  I=1  TO   20
IF   I   MOD  2=0    THEN
S=S+1
ELSEIF  I   MOD  3  =0  THEN
M=M+1
ELSEIF   I   MOD  5 =0  THEN
N=N+1
END  IF
NEXT  I
PRINT  S,M,N
这段程序的执行结果是( )

A．10   4    1

B．10   3   1

C．10   5    2

D．10   3   3

编写VB程序，实现如下功能：单击“输出”按钮Command1，在列表框List1中输出100，999之间能被9整除且至少有一位数字为9的所有整数。界面如图1所示。

(1)在设计应用程序界面时，应使用图2所示“控件工具箱”中的________(填写相应编号)添加“List1”框。
(2)为实现上述功能，请在划线处填入合适的代码或选项。
Dim s As Integer
Dim a As Integer，b As Integer，c AsInteger
s＝____①____’(填程序代码)
List1.Clear
Do While s＜＝999
a＝s\100
b＝____②____’填字母：从下面A、B、C三个选项中选取一项
c＝s Mod 10
If(a＝9 Or b＝9 Or c＝9) And ____③____ Then ’(填程序代码)
List1.AddItem Str(s)
End If
s＝s＋1
Loop
划线②的选项：(  )
A．s\10 Mod 10  B．s mod 100\10
C．s－a*100－c

将以下程序段补充完整。
问题：计算旅客的行李费，收费标准为：20千克以下（包括20千克）不收费，超过20千克的部分每千克收20元。X表示行李重量，Y表示行李费。
程序段：
Dim X As Single
Dim Y As Single
X=InputBox("输入行李重量")
If ①_________Then
    Y=0
Else
    Y= ②_______
End If
Print "行李费= "; ③___________