vba编程，求哪位高人帮我指出下列程序的错误，多谢了

2024-12-23 08:27:06

推荐回答（2个）

回答1：

这个不是来骗分的吧？关键是没初始化，读入的数据也没有放到数组里去，而且最关键的是没有定义数组。那个x(i)没有出处啊。改一下也很简单。
Public Sub xx()
Dim y, i, n, max, min, m As Integer
dim x(10)
i = 0
n = 0
x（1）= Val(InputBox("输入数据x"))
Debug.Print x(1)
max = x(1)
min = x(1)

For i = 2 To 10
x（i）= Val(InputBox("输入数据x"))
Debug.Print x(i)
If x(i) > max Then
max = x(i)
End If
If x(i) < min Then
min = x(i)
End If
n = n + x
next
m = (n - max - min) / 8
Debug.Print "max="; max, "min="; min, "m="; m
End Sub

回答2：

你X，输入的格式是怎么样的