...求出最高分、最低分且求去掉最高、最低后的平均分
发布网友
发布时间：2025-01-04 23:32
共2个回答
热心网友
时间：2025-01-04 23:25
我想想，给你发过去
Private Sub Command1_Click()
Dim a(1 To 5) As Long
For i = 1 To 5
a(i) = InputBox("")
Print a(i);
s = s + a(i)
Next
Print
Max = a(1): Min = a(1)
For i = 1 To 5
If a(i) > Max Then Max = a(i)
If a(i) < Min Then Min = a(i)
Next
Print Max; Min; Format((s - Max - Min) / 3, 0#)
End Sub
热心网友
时间：2025-01-04 23:25
学的VFP VB的搞不来
