锐客网

  1. 首页 > 睿知 > it技术 > >

vb.net评委评分系统 vb十个评委打分编程简单

IT技术评委

用c语言编程求平均分，共有20位选手参赛，10位评委打分，打分的原则是去掉一个最高分，去掉一个最低分恩，实在不想打程序，一个一个字母转换麻烦，要是写在纸上倒也罢vb.net评委评分系统了 ， 所以只能给点思想 。小白vb.net评委评分系统的程序哈 。
首先scanf语句，依次输入分数，应该设一个数组a ， 存放10个成绩 ， 然后开始找出最大值和最小值，怎么找呢，思想，单层循环外围设min=max=0 循环里面if a[i]比a[min]小，i重新赋值给min，如果比a[max]大 ， i赋值给max 。此时min和max为最小和最大值的下标，循环结束后，vb.net评委评分系统你可以直接设a[min]和a[max]为0就好了 。
最后单层循环，求总和，最后除以8.0 ， 应该知道了吧 。话说这种程序就是很白的思维啊 ， 你会求最大和最小值就ok了 。
唱歌比赛评委评分系统歌唱比赛评委评分系统这样vb.net评委评分系统的系统没有必要用C语言编写vb.net评委评分系统了吧，用C#或VB.NET这样vb.net评委评分系统的开发语言更快更好些 。其实也可以直接买现成的系统，象天纵评委评分系统，支持手工打分、电脑打分、无线评分器评分、手机或平板打分，有在线租用，也可以本地安装版本 。能满足各种比赛的评委打分 。
用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 s0 Or s10 Then
i = i - 1
Else
arr(i) = s
End If
Else
i = i - 1
End If
Next
For i = 1 To 9
For j = i1 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 = sumarr(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
VB编程：设计一个体操评分程序， 20 位评委，除去一个最高分和一个最低分 ， 计算平均分Dim a(20)'如果不需要显示20个数的话，不需要数组，a(i)用X代替就可以
Dim max!, Min!, i%
Private Sub Command1_Click()'按钮单击
For i = 1 To 20
a(i) = Int(Rnd * 10)1'[1~10]间在随机数
s = sa(i)'求和
If i = 1 Then'最大最小值的初值为第一个数
max = a(1): Min = a(1)
Else
If maxa(i) Then max = a(i)
If Mina(i) Then Min = a(i)
End If
Next i
Print (s - max - Min) / 18'求平均
End Sub
VB编程 编写一个竞赛评分的函数过程 。评委打分为参数（数组参数） ， 选手得分为函数值 。记分规则为Private Sub Form_Click()
Dim a(5) As Single
Dim i As Integer
Dim sum As Single, min As Single, max As Single
Dim st As String
Me.Cls
For i = 1 To 5
a(i) = 9i / 10
st = InputBox("第"i"个评委的打分：", "输入", a(i))
If st = "" Then
MsgBox "请输入分数！"
i = i - 1
Else
a(i) = Val(st)
If a(i) = 0 Then
MsgBox "输入错误！请重新输入 。"
i = i - 1
End If
End If
Next
Print "评委打分为："; a(1);
max = a(1)
min = a(1)
sum = a(1)
For i = 2 To 5
If maxa(i) Then max = a(i)
If mina(i) Then min = a(i)
Print a(i);
sum = suma(i)
Next
sum = (sum - min - max) / 3
Print
Print "去掉一个最高分："; max; "，去掉一个最低分："; min
Print "最后得分为："; Round(sum, 3)
End Sub
【vb.net评委评分系统 vb十个评委打分编程简单】vb.net评委评分系统的介绍就聊到这里吧 ， 感谢你花时间阅读本站内容，更多关于vb十个评委打分编程简单、vb.net评委评分系统的信息别忘了在本站进行查找喔 。

    推荐阅读


    上一篇：如何安装HP服务器？ hp的服务器怎么装

    下一篇：redis判断值是否存在 判断redis的值