请各位大哥帮我啊,救命啊.
Private Sub Command11_Click()
s = Text5
a = Text6
b = Text7
c = Text8
i = b * 1.15
j = b * 0.85
If c < i And a > j Then
e = (a + b + c) / 3
Text9 = e
g = e
f = (g * 1000) / 22500
Text10 = f
Text11 = f
ElseIf c > i And a < j Then
Text9 = "作廢"
Else
Text9 = b
g = Text9
f = (g * 1000) / 22500
Text10 = f
Text11 = f
End If
End Sub
是这样的,a是最小值b中间值,c是最大值,当a与c不大于b的15%时则最中间值,如果都大于则舍去,如果有一个不大于则取三个值的平均值,可是我弄完怎么不好使呢,请各位大哥指点一二,谢谢.
