Question

请VB高手帮我解答一下这个题目。急用，答的好我给分！每个FOUND后面一行都有错误，请指出怎么改。

'------------------------------------------------
'【程序改错】
'------------------------------------------------

'题目：下面的程序段用于删除数组中指定位置的数字，
'　　　如果位置错误给出提示，否则分别显示删除前后
'　　　的数组元素

'------------------------------------------------
Option Explicit

Private Sub Form_Click()
Dim a(10) As Integer, x As Integer, i As Integer, k As Integer
For i = 1 To 10
a(i) = Int(Rnd * 90) + 10
Print a(i);
Next i
Print
x = InputBox("请输入要删除第几位数字")
If x > 0 And x <= 10 Then
'**********FOUND**********
For k = x To 10
'**********FOUND**********
a(k) = a(k - 1)
Next k
Print "删除后的数组:"
For i = 1 To 9
Print a(i);
Next i
Else
Print "删除位置错误"
'**********FOUND**********
End
End Sub

Answer 1

a(k) = a(k - 1) 错误
你的数组是从1开始的，而你这个最小为0，会出现溢出错误。况且逻辑也不对，应该是：

'**********FOUND**********

For k = x To 9
'**********FOUND**********
a(k) = a(k + 1)
Next k

这段：
**********FOUND**********
End

很明显应该是end if