评分器打分系统，要好点的给系统打分软件要详细

1，要好点的给系统打分软件要详细

鲁大师，最权威的，地址： http://40.duote.com/zsetup.exe

要好点的给系统打分软件要详细

2，寻找一个系统评分软件

windows优化大师不错啊。也可以试试超级兔子。都支持硬件测试的。。

用360啊！360有啊！

寻找一个系统评分软件

3，vb评分系统源代码

--------------------------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)设分数输入框为Text1(0)～Text1(9)，执行按钮为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评分系统源代码

4，怎么做一个评分系统

数据库结构，一个节目存一行数据，字段大概有：节目名称评委1打分评委2打分评委3打分评委4打分评委5打分评委6打分评委7打分评委8打分评委9打分评委10打分最高分最低分最后得分输入数据的时候，只需要输入节目个10个评委的打分，后面三个字段用命令计算，命令如下：replace all 最高分 with max(评委1打分,评委2打分,评委3打分,评委4打分,评委5打分,评委6打分,评委7打分,评委8打分,评委9打分,评委10打分replace all 最低分 with min(评委1打分,评委2打分,评委3打分,评委4打分,评委5打分,评委6打分,评委7打分,评委8打分,评委9打分,评委10打分replace all 最后得分 with (评委1打分+评委2打分+评委3打分+评委4打分+评委5打分+评委6打分+评委7打分+评委8打分+评委9打分+评委10打分-最高分-最低分)/8

第一步总体目标第二步具体要求第三步整理出其中要处理的内容、表格如你学过UML 或 DFD ，就可以用这些写出一个简明的需求分析报告了下一步是处理过程和数据表、ER图的设计最后是编程，如你喜欢VB 就用VB吧

5，用vb写个评分系统

潮 II 落先生代码写得非常好，100分有水平，学习了，我已调试好，

程序完全按照你的要求除非你不懂VB我把程序修过你再试看看程序中数据采用随机数取数请将xxx(i, j) = Int(Rnd * 50 + 50)删除Dim xxx(), yyy() As IntegerPrivate Sub Command1_Click()Randomizeaaa = Val(InputBox("请输入评委人数", "输入"))bbb = Val(InputBox("请输入选手人数", "输入"))ReDim xxx(bbb, aaa + 4)ReDim yyy(bbb, 2)For i = 1 To aaaddd = ddd & "评委" & i & " "Next iPrint " " & ddd & " 最高最低总分"For i = 1 To bbbPrint i & " 号选手 ";xxx(i, aaa + 1) = 0xxx(i, aaa + 2) = 100xxx(i, aaa + 3) = 0For j = 1 To aaaxxx(i, j) = Val(InputBox("请输入第 " & i & " 号选手第 " & j & " 位评委评分", "输入"))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 "歌曲大奖赛名次"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) & " 号选手 ";For j = 1 To aaa + 3Print Format(xxx(yyy(i, 2), j), "#00") & " ";Next jPrintNext iEnd Sub

能简单的看一下你的代码，和界面吗？