用VB程序設(shè)計(jì)一個(gè)歌手大賽的評分程序

’3個(gè)label，2個(gè)command

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

Private Sub Command1_Click()

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

For i = 1 To 10

s = InputBox("輸入評分（0-10分）：", "第" i "個(gè)分?jǐn)?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位評委打分，打分的原則是去掉一個(gè)最高分，去掉一個(gè)最低分

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

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

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

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

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

網(wǎng)站名稱：vb.net評委評分系統(tǒng) vb評估分?jǐn)?shù)
本文網(wǎng)址：http://jinyejixie.com/article36/dophspg.html

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

廣告

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