用VB程序设计一个歌手大赛的评分程序

’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

用c语言编程求平均分，共有20位选手参赛，10位评委打分，打分的原则是去掉一个最高分，去掉一个最低分

恩，实在不想打程序，一个一个字母转换麻烦，要是写在纸上倒也罢了，所以只能给点思想。小白的程序哈。

首先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这样的开发语言更快更好些。其实也可以直接买现成的系统，象天纵评委评分系统，支持手工打分、电脑打分、无线评分器评分、手机或平板打分，有在线租用，也可以本地安装版本。能满足各种比赛的评委打分。

网站名称：vb.net评委评分系统 vb评估分数
转载注明：http://myzitong.com/article/dophspg.html