評(píng)分器打分系統(tǒng)，要好點(diǎn)的給系統(tǒng)打分軟件要詳細(xì)

來(lái)源：整理時(shí)間：2023-02-04 01:53:39 編輯：大上海生活手機(jī)版

1，要好點(diǎn)的給系統(tǒng)打分軟件要詳細(xì)

魯大師，最權(quán)威的，地址： http://40.duote.com/zsetup.exe

要好點(diǎn)的給系統(tǒng)打分軟件要詳細(xì)

2，尋找一個(gè)系統(tǒng)評(píng)分軟件

windows優(yōu)化大師不錯(cuò)啊。也可以試試超級(jí)兔子。都支持硬件測(cè)試的。。

用360啊！360有啊！

尋找一個(gè)系統(tǒng)評(píng)分軟件

3，vb評(píng)分系統(tǒng)源代碼

--------------------------Private Sub Command1_Click()Dim a(9) As Single，最終得分顯示在Label1中.Text)sum = sum + a(i)If a(i) &gt, sum As Single。代碼如下, max As Single, min As Singlemin = Val(Text1(0)設(shè)分?jǐn)?shù)輸入框?yàn)門(mén)ext1(0)～Text1(9)，執(zhí)行按鈕為Command1; min Then min = a(i)Nextave = (sum - max - min) /, ave As Single, i As Integer.Text)For i = 0 To 9a(i) = Val(Text1(i); max Then max = a(i)If a(i) < 8Label1

vb評(píng)分系統(tǒng)源代碼

4，怎么做一個(gè)評(píng)分系統(tǒng)

數(shù)據(jù)庫(kù)結(jié)構(gòu)，一個(gè)節(jié)目存一行數(shù)據(jù)，字段大概有：節(jié)目名稱(chēng)評(píng)委1打分評(píng)委2打分評(píng)委3打分評(píng)委4打分評(píng)委5打分評(píng)委6打分評(píng)委7打分評(píng)委8打分評(píng)委9打分評(píng)委10打分最高分最低分最后得分輸入數(shù)據(jù)的時(shí)候，只需要輸入節(jié)目個(gè)10個(gè)評(píng)委的打分，后面三個(gè)字段用命令計(jì)算，命令如下：replace all 最高分 with max(評(píng)委1打分,評(píng)委2打分,評(píng)委3打分,評(píng)委4打分,評(píng)委5打分,評(píng)委6打分,評(píng)委7打分,評(píng)委8打分,評(píng)委9打分,評(píng)委10打分replace all 最低分 with min(評(píng)委1打分,評(píng)委2打分,評(píng)委3打分,評(píng)委4打分,評(píng)委5打分,評(píng)委6打分,評(píng)委7打分,評(píng)委8打分,評(píng)委9打分,評(píng)委10打分replace all 最后得分 with (評(píng)委1打分+評(píng)委2打分+評(píng)委3打分+評(píng)委4打分+評(píng)委5打分+評(píng)委6打分+評(píng)委7打分+評(píng)委8打分+評(píng)委9打分+評(píng)委10打分-最高分-最低分)/8

第一步總體目標(biāo)第二步具體要求第三步整理出其中要處理的內(nèi)容、表格如你學(xué)過(guò)UML 或 DFD ，就可以用這些寫(xiě)出一個(gè)簡(jiǎn)明的需求分析報(bào)告了下一步是處理過(guò)程和數(shù)據(jù)表、ER圖的設(shè)計(jì)最后是編程，如你喜歡VB 就用VB吧

5，用vb寫(xiě)個(gè)評(píng)分系統(tǒng)

潮 II 落先生代碼寫(xiě)得非常好，100分有水平，學(xué)習(xí)了，我已調(diào)試好，

程序完全按照你的要求除非你不懂VB我把程序修過(guò) 你再試看看程序中數(shù)據(jù)采用隨機(jī)數(shù)取數(shù)請(qǐng)將xxx(i, j) = Int(Rnd * 50 + 50)刪除Dim xxx(), yyy() As IntegerPrivate Sub Command1_Click()Randomizeaaa = Val(InputBox("請(qǐng)輸入評(píng)委人數(shù)", "輸入"))bbb = Val(InputBox("請(qǐng)輸入選手人數(shù)", "輸入"))ReDim xxx(bbb, aaa + 4)ReDim yyy(bbb, 2)For i = 1 To aaaddd = ddd & "評(píng)委" & i & " "Next iPrint " " & ddd & " 最高最低總分"For i = 1 To bbbPrint i & " 號(hào)選手 ";xxx(i, aaa + 1) = 0xxx(i, aaa + 2) = 100xxx(i, aaa + 3) = 0For j = 1 To aaaxxx(i, j) = Val(InputBox("請(qǐng)輸入第 " & i & " 號(hào)選手第 " & j & " 位評(píng)委評(píng)分", "輸入"))If xxx(i, j) > xxx(i, aaa + 1) Then xxx(i, aaa + 1) = xxx(i, j)If xxx(i, j) < xxx(i, aaa + 2) Then xxx(i, aaa + 2) = xxx(i, j)xxx(i, aaa + 3) = xxx(i, aaa + 3) + xxx(i, j)Print Format(xxx(i, j), "#00") & " ";Next jxxx(i, aaa + 3) = xxx(i, aaa + 3) - xxx(i, aaa + 1) - xxx(i, aaa + 2)yyy(i, 1) = xxx(i, aaa + 3)yyy(i, 2) = iPrint Format(xxx(i, aaa + 1), "#00") & " ";Print Format(xxx(i, aaa + 2), "#00") & " ";Print Format(xxx(i, aaa + 3), "#00") & " "Next iPrintPrint "歌曲大獎(jiǎng)賽名次"For i = 1 To bbb - 1For j = i To bbbIf yyy(i, 1) < yyy(j, 1) ThenFor k = 1 To 2temp = yyy(i, k)yyy(i, k) = yyy(j, k)yyy(j, k) = tempNext kEnd IfNext jNext iPrint " " & ddd & " 最高最低總分"For i = 1 To bbbPrint yyy(i, 2) & " 號(hào)選手 ";For j = 1 To aaa + 3Print Format(xxx(yyy(i, 2), j), "#00") & " ";Next jPrintNext iEnd Sub

能簡(jiǎn)單的看一下你的代碼，和界面嗎？