要求产生10个随机整数，存放在数组Arr中，从键盘输入要删除的数组元素的下标，将该元素中的数据删除

要求产生10个随机整数，存放在数组Arr中，从键盘输入要删除的数组元素的下标，将该元素中的数据删除，后面元素中的数据依次前移，并显示删除后剩余的数据，现有如下程序：

Option base 1

Private Sub Command1_Click()

Dim arr(10)as integer

For i=1 to 10 ‘循环1

Arr(i)=int(rnd*100)

Print arr(i);

Next

X=inputbox(“输入1-10的一个整数：”)

For i=x+1 to 10 ‘循环2

Arr(i-1)=arr(i)

Next

For i=1 to 10 ‘循环3

Print arr(i);

Next

End Sub

程序运行后发现显示的结果不正确，应该进行的修改是

A)产生随机数时不使用int函数

B)循环2的初始值应为i-x

C)数组定义改为Dim a(11)as integer

D)循环3的循环终值应改为9