用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://m.newbst.com/article36/dophspg.html

成都網站建設公司_創新互聯，為您提供網站排名、營銷型網站建設、企業網站制作、網頁設計公司、App開發、網站導航

廣告

聲明：本網站發布的內容（圖片、視頻和文字）以用戶投稿、用戶轉載內容為主，如果涉及侵權請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網站立場，如需處理請聯系客服。電話：028-86922220；郵箱：631063699@qq.com。內容未經允許不得轉載，或轉載時需注明來源： 創新互聯