VMware Workstation下标越界怎么解？

  Option Explicit

Function Prime(n As Integer) As Boolean

Dim i As Integer

If n B(j) Then

t = B(i): B(i) = B(j): B(j) = t

End If

Next

Next

Print: Print "奇数"

For i = 1 To UBound(B)

Print B(i);

If i Mod 10 = 0 Then Print

Next

Print: Print "素数"

n = 0

For i = 1 To 80

If Prime(X(i)) Then

Print X(i);

s = s + X(i)

n = n + 1

If n Mod 10 = 0 Then Print

End If

Next

End Subvmware workstation 12 。