vb.net評委評分系統(tǒng) vb評估分數(shù)

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

’3個label，2個command

作為一家“創(chuàng)意+整合+營銷”的成都網(wǎng)站建設機構，我們在業(yè)內良好的客戶口碑。創(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 = "結束"

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語句，依次輸入分數(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)結束后，你可以直接設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)，支持手工打分、電腦打分、無線評分器評分、手機或平板打分，有在線租用，也可以本地安裝版本。能滿足各種比賽的評委打分。

網(wǎng)站名稱：vb.net評委評分系統(tǒng) vb評估分數(shù)
本文網(wǎng)址：http://muchs.cn/article36/dophspg.html

成都網(wǎng)站建設公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)站排名、營銷型網(wǎng)站建設、企業(yè)網(wǎng)站制作、網(wǎng)頁設計公司、App開發(fā)、網(wǎng)站導航

廣告

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