要求产生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 程序运行后发现显示的结果不正确,应该进行的修改是______。