下列流程图描述的是计算地铁站售票问题的算法：
1~4站，2元/位 5~9站，3元/位 9站以上，4元/位
用N表示人数，用X表示站数，用Y表示应付的钱。

请按此算法功能，把流程图填写完整。位置①选择的正确答案▁▁▁

A．(X > 9) OR (Y < 5)

B．X >= 9

C．X > 5

D．X <= 9

下列VB的变量定义正确的是(    )

A．Dim a,b As Double

B．Dim a-b as Integer

C．Dim c As True

D．Dim d^2 as Single

小李在设计VB程序时所使用复选框对象的属性窗口如下图所示，他想编制该复选框单击事件的处理过程，则该事件处理过程名是（    ）

A．CheckBox_Click

B．加粗_Click

C．Check1_Click

D．复选框_Click

变量c中存储了一个字符，正确判断该字符为数字字符"0 "~ "9 "的VB表达式是(    )

A．c>= "0 " And c<= "9 "

B．c>= "0 " Or c<= "9 "

C．Asc(c)>="0" And Asc(c)<=9

D．Asc(c)>="0" Or Asc(c)<=9

扔球进袋游戏是一种体现人思维反应能力的游戏，其思想为将数量有限的桶进行编号，分别为1~n，另有乒乓球m个，乒乓球上可写上1~n之间任意随机数，该随机数存储在数据b(1)~b(m)内。参与者则将所有手中的乒乓球扔入相应编号的桶内，完成后，1~n号桶内的乒乓球数量分别为a(1)~a(n)个，用此方法可以得出原先乒乓球的编号，并以有序的形式呈现。实现上述功能的vb程序如下，请回答以下问题。
(1)   某同学随机抽取了两个乒乓球，发现其编号为1和100，那么数组a的数组范围有可能是
(2)   修改划线处处的代码
dim n as integer,m as integer
Dim a(1 to n) as integer, b(1 to m) as integer
Private sub command1_click()
n=val(text1.text)
m=val(text2.text)
For i=1 to m
b(i)=int(rnd*n)+1
List1.additem str(b(i))
Next i
End sub
Private sub command2_click()
For i=1 to n
a(b(i))=  b(i)+1
Next i
For j=1 to m
Do while b(j)<>0
List2.additem str(j)
b(j)=  0
Loop
Next j
End sub