当a="123:" b=StrA.，则(    )
A. a和b均是字符型变量

A．a是字符型变量，b是数值型变量

B．a是数值型变量，b是字符型变量

C．a和b均是数值型变量

有一组数据23、12、56、34、10分别存放在一组变量数组a(1)―a(5)中，以下程序执行后，i的值是（   ）
Dim a(1 To 5) As Integer
Dim f As Boolean
a(1) = 23: a(2) = 12: a(3) = 56: a(4) = 34: a(5) = 10
i = 1: f = True
Do While i <= 5 And f = True
If a(i) = 56 Then f = False
i = i + 1
Loop
Label1.Caption = i

A．6

B．3

C．4

D．5

下列Visual Basic程序用于计算10¹⁰的值：
Private Sub Command1_Click()
Dim n As Integer, s As Integer
n = 10
s =" 10" ^ n
Text1.Text = Str(s)
End Sub
运行程序时，单击命令按钮Command1后弹出如图所示的出错信息提示，引起该错误的原因是（  ）

A. A.变量n的数据类型说明不当

A．变量s的数据类型说明不当 C. C.文本框Text1的宽度不够

B．s值太大，因此不能在文本框Text1中输出

语句(    )用于声明变量，并定义变量的数据类型，给变量分配存储空间。

A．Sub

B．Dim

C．Call

D．End

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