VB程序题,谁帮我看看...

Question

程序功能：（１）20位评委打分（分数在０－10之间），去掉一个最高分，去掉一个最低分，计算其余项的平均分；（２）程序运行后，单击窗体上的命令按钮输出平均分．

Answer 1

......估计你不会VB    要不不会问这样的问题。[email protected]

Answer 2

2楼你TMD不是废话么,我要会我还用问啊,
谁能给写出代码啊?

Answer 3

为了让这个问题能终结我来帮他解决.
   Private Sub Command1_Click()
   Dim average%, a!, s!
        Max = 0
        Min = 20
      For i = 1 To 20
        a = InputBox("请输入得分")
        If Min < a Then Min = a
        If Max > a Then Max = a
          s = s + a
        If a > 20 Or a < 0 Then MsgBox ("请输入0到20之间的整数")
      Next i
        average = (s - Min - Max) / 18
      Print average
End Sub
   不知可不可用,你看着办吧.我也不太懂得VB的,全是自学的.

Answer 4

为了让这个问题能终结我来帮他解决. 
   Private Sub Command1_Click() 
   Dim average%, a!, s! 
        Max = 0 
        Min = 10
      For i = 1 To 20 
        a = InputBox("请输入得分") 
        If Min  < a Then Min = a 
        If Max > a Then Max = a 
          s = s + a 
        If a > 10 Or a  < 0 Then MsgBox ("请输入0到20之间的整数") 
      Next i 
        average = (s - Min - Max) / 18 
      Print average 
End Sub 
   不知可不可用,你看着办吧.我也不太懂得VB的,全是自学的.
    看错题,现在改正一下,

Answer 5

Dim i As Integer
Dim max As Byte
Dim min As Byte
Dim sum As Integer
Dim avg As Single
Private Sub Command1_Click()
sum = 0
max = Text1(0).Text
min = Text1(0).Text
For i = 1 To 4
    If Text1(i).Text > max Then
      max = Text1(i).Text
    ElseIf Text1(i).Text < min Then
       min = Text1(i).Text
    End If
Next i
For i = 0 To 4
sum = sum + Text1(i).Text
Next i
avg = (sum - max - min) / 3
Label1.Caption = "最大值为：" + Str(max)
Label2.Caption = "最小值为：" + Str(min)
Label3.Caption = "平均值为：" + Str(avg)
End Sub