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

在循环体内可以再改变循环的初值、终值或步长；（   ）

现要求编写VB程序，实现下列功能：计算一个大写字母在26个字母中的位次。程序运行时，在文本框Text1中输入一个大写英文字母，单击“计算”按钮Command1，在标签Label1上输出其在26个字母中的位次。

1图
(1)在进行应用程序界面设计时，需要添加“计算”按钮，可使用如第2图所示的“控件工具箱”中的 (填写相应编号)，并在如第12题－3图所示的“属性窗口”中，将 属性值设置为“计算”。

(2)该程序的源代码如下，请根据题意将代码补充完整，使程序能正常运行。
Private Sub Command1_Click()
Dim ch As String, pos As Integer
 （3） ＝Text1.Text
pos＝Asc(ch) – 64
Label2.   （4）  ＝”第”＋Str(pos)＋”个字母”
End Sub

下列不属于VB常量类型的是(   )

A．数值型

B．字符型

C．布尔型

D．时间型

TEXT1.TEXT=C和C=" TEXT1.TEXT" 都没有语法错误；（   ）