扔球进袋游戏是一种体现人思维反应能力的游戏，其思想为将数量有限的桶进行编号，分别为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