’3个label，2个command
作为一家“创意+整合+营销”的成都网站建设机构，我们在业内良好的客户口碑。创新互联公司提供从前期的网站品牌分析策划、网站设计、成都做网站、成都网站制作、创意表现、网页制作、系统开发以及后续网站营销运营等一系列服务，帮助企业打造创新的互联网品牌经营模式与有效的网络营销方法,创造更大的价值。
Private Sub Command1_Click()
Dim s, i, j, arr(1 To 10), t, sum
For i = 1 To 10
s = InputBox("输入评分（0-10分）：", "第" i "个分数")
If IsNumeric(s) Then
s = Val(s)
If s 0 Or s 10 Then
i = i - 1
Else
arr(i) = s
End If
Else
i = i - 1
End If
Next
For i = 1 To 9
For j = i + 1 To 10
If arr(i) arr(j) Then
t = arr(i): arr(i) = arr(j): arr(j) = t
End If
Next
Next
For i = 2 To 9
sum = sum + arr(i)
Next
Label1.Caption = "最高分为：" arr(10)
Label2.Caption = "最低分为：" arr(1)
Label3.Caption = "选手最后得分：" Round(sum / 8, 1)
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub Form_Load()
Command1.Caption = "评分"
Command2.Caption = "结束"
With Label1
.Caption = ""
.AutoSize = True
End With
With Label2
.Caption = ""
.AutoSize = True
End With
With Label3
.Caption = ""
.AutoSize = True
End With
End Sub
恩，实在不想打程序，一个一个字母转换麻烦，要是写在纸上倒也罢了，所以只能给点思想。小白的程序哈。
首先scanf语句，依次输入分数，应该设一个数组a，存放10个成绩，然后开始找出最大值和最小值，怎么找呢，思想，单层循环外围设min=max=0 循环里面if a[i]比a[min]小，i重新赋值给min，如果比a[max]大，i赋值给max。此时min和max为最小和最大值的下标，循环结束后，你可以直接设a[min]和a[max]为0就好了。
最后单层循环，求总和，最后除以8.0，应该知道了吧。话说这种程序就是很白的思维啊，你会求最大和最小值就ok了。
歌唱比赛评委评分系统这样的系统没有必要用C语言编写了吧，用C#或VB.NET这样的开发语言更快更好些。其实也可以直接买现成的系统，象天纵评委评分系统，支持手工打分、电脑打分、无线评分器评分、手机或平板打分，有在线租用，也可以本地安装版本。能满足各种比赛的评委打分。
