用vb编程一个歌手大赛程序，一共10个评委，去掉一个最高分，一个最底分，去平均值。 用smax

你没有说界面设计的具体要求是什么样的？所以就给你设计成用文本控件数组输入10个评委的成绩，找出最高分、最低分，算出平均分。

界面如下图：

程序代码如下：

Dim smax,smin, ssum As Integer

Private SubCommand2_Click() '求10个评委中最高分

Dim i AsInteger

smax =Text1(0).Text

For i = 1 To9

  Ifsmax < Text1(i).Text Then

  smax = Text1(i).Text

  End If

Next i

max.Text =smax

End Sub

Private SubCommand3_Click() '求10个评委中最低分

Dim i AsInteger

smin =Text1(0).Text

For i = 1 To9

  Ifsmin > Text1(i).Text Then

  smin = Text1(i).Text

  End If

Next i

min.Text =smin

End Sub

Private SubCommand1_Click()  '求歌手的最后得分

Dim i AsInteger

ssum = 0

For i = 0 To9

ssum = ssum +Text1(i).Text

Next i

score.Text =(ssum - smax - smin) / 8

End Sub

好简单的，自己想一下吧，去查一下你说的这几个函数的API文档。