某 VB 程序段如下：

Dim a(1 To 3) As Single，i As Integer

Randomize

a(1) = 1

For i =2 To 3

    a(i) = (Int(Rnd() * 3)) *2- 2

    a(i) = Abs(a(i - 1)) / Sqr(a(i))

Next i

List1.AddItem Str(a(i))

运行该程序段，下列错误提示不可能会出现的是（   ）

A、下标越界

B、无效的过程调用或参数

C、类型不匹配

D、除数为零