问题
单项选择题
要求产生10个随机整数，存放在数组arr中，从键盘输入要删除的数组元素的下标，将该元素中的数组删除，后面元素中的数据依次前移，并显示删除后剩余的数据，现有如下程序：
Option Base 1
Private Sub Command1_Click()
Dim arr(10) AS Integer
For i=1 to 10
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
答案
参考答案：D
解析：
【解析】删除一个数据后，数组中实际有效的值只剩下九个，因此最后输出的时候就只能输出前九个，最后一个数据是重复的，不能要，因此循环3应该把终值改为9. 因此D)项是正确答案。