用VB程序設計一個歌手大賽的評分程序

’3個label，2個command

作為一家“創(chuàng)意+整合+營銷”的成都網(wǎng)站建設機構(gòu)，我們在業(yè)內(nèi)良好的客戶口碑。創(chuàng)新互聯(lián)公司提供從前期的網(wǎng)站品牌分析策劃、網(wǎng)站設計、成都做網(wǎng)站、成都網(wǎng)站制作、創(chuàng)意表現(xiàn)、網(wǎng)頁制作、系統(tǒng)開發(fā)以及后續(xù)網(wǎng)站營銷運營等一系列服務，幫助企業(yè)打造創(chuàng)新的互聯(lián)網(wǎng)品牌經(jīng)營模式與有效的網(wǎng)絡營銷方法,創(chuàng)造更大的價值。

Private Sub Command1_Click()

Dim s, i, j, arr(1 To 10), t, sum

For i = 1 To 10

s = InputBox("輸入評分（0-10分）：", "第" i "個分數(shù)")

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 = "結(jié)束"

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位評委打分，打分的原則是去掉一個最高分，去掉一個最低分

恩，實在不想打程序，一個一個字母轉(zhuǎn)換麻煩，要是寫在紙上倒也罷了，所以只能給點思想。小白的程序哈。

首先scanf語句，依次輸入分數(shù)，應該設一個數(shù)組a，存放10個成績，然后開始找出最大值和最小值，怎么找呢，思想，單層循環(huán)外圍設min=max=0 循環(huán)里面if a[i]比a[min]小，i重新賦值給min，如果比a[max]大，i賦值給max。此時min和max為最小和最大值的下標，循環(huán)結(jié)束后，你可以直接設a[min]和a[max]為0就好了。

最后單層循環(huán)，求總和，最后除以8.0，應該知道了吧。話說這種程序就是很白的思維啊，你會求最大和最小值就ok了。

唱歌比賽評委評分系統(tǒng)

歌唱比賽評委評分系統(tǒng)這樣的系統(tǒng)沒有必要用C語言編寫了吧，用C#或VB.NET這樣的開發(fā)語言更快更好些。其實也可以直接買現(xiàn)成的系統(tǒng)，象天縱評委評分系統(tǒng)，支持手工打分、電腦打分、無線評分器評分、手機或平板打分，有在線租用，也可以本地安裝版本。能滿足各種比賽的評委打分。