要求生产10个随机整致,存放在数组arr中。从键盘输入要删除的数组元素的下标,将该元素中的数据删除,后面元素中的数据依次前移,并显示删除后剩余的数据。现有如下程序: Option Base 1 Privare Sub Command1 Click( ) Dim arr(10)As Integer For i=1To 10循环1 Arr(i),=Int(Rnd*100) Print arr(i); Next i x=InputBox("输入1—10的一个整数:") For i=X+1 To 10循环2 arr(i-1)=arr(i) Next i For i=x-1 To 10 循环3 Print arr(i) Next i End Sub 程序运行后发现显示的结果不正确,应该进行的修改是( )。