急用,每个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
答
a(k) = a(k - 1)错误
你的数组是从1开始的,而你这个最小为0,会出现溢出错误.况且逻辑也不对,应该是：
'
End
很明显应该是end if