VBA出现“子过程或函数未定义”，应该如何改？

去掉一个最高分、去掉一个最低分，求最后得分
Public Sub 得分()
Dim a(1 To 10), i, max, min, s As Double
s = 0
For i = 1 To 10
a(i) = Val(InputBox("请输入评委给分" & "A(" & i & ")", "数组输入", "1"))
s = s + a(i)
Next
For i = 1 To 10
Debug.Print a(i);
Next i
Debug.Print
max = x(1)
min = x(1)
For i = 2 To 10
If x(i) > max Then
max = x(i)
End If
If x(i) < min Then
min = x(i)
End If
Next
Debug.Print "最后得分"; (s - max - min) / 8
End Sub

你那个X(i)是从哪里来的？应该是写错了吧。

要学会用VBA编辑器的调试功能来查找问题。

你的数组arr是全局数组吗? 如果不是,要在过程内先声明数组及维数和大小. 大概看了一下,没发现其它过程调用,错误提示指向哪一行呢? 满意请采纳。

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息