急用,每个FOUND后面一行都有错误,请指出怎么改.'------------------------------------------------'【程序改错】'------------------------------------------------下面的程序段用于删除数组中指定位置的数字,'

急用,每个FOUND后面一行都有错误,请指出怎么改.'------------------------------------------------'【程序改错】'------------------------------------------------下面的程序段用于删除数组中指定位置的数字,'
急用,每个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

急用,每个FOUND后面一行都有错误,请指出怎么改.'------------------------------------------------'【程序改错】'------------------------------------------------下面的程序段用于删除数组中指定位置的数字,'
a(k) = a(k - 1) 错误
你的数组是从1开始的,而你这个最小为0,会出现溢出错误.况且逻辑也不对,应该是：
'
End
很明显应该是end if