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