Private Sub Command1_Click()On Error GoTo errbadDim i, j, k As IntegerDim n(), t, aver As Singleer: i = 0DoReDim Preserve n(i)n(i) = InputBox("请输入要比较的数,输入字母x结束!")If n(i)"x" Then aver = aver + n(i)i = i + 1Loop While n(i - 1)"x"aver = aver / (i - 1)For j = 0 To i - 3For k = j + 1 To i - 2If n(j