一个关于评委打分的VB程序.

来源：学生作业帮编辑：拍题作业网作业帮分类：综合作业时间：2024/05/29 11:12:21

一个关于评委打分的VB程序.
创建一个VB程序,程序应该完成如下功能,定义一个可实现为大奖赛打分的名为dafen的Sub过程.设大奖赛有七个评委打分,对一名参赛者,输入七个评委的打分分数,去掉一个最高分和一个最低分后,求出的平均分为该参赛者的得分,建立主程序输入七个评委的打分,通过调用SUB过程dafen来实现参赛者得分的计算,输出显示在标签框label上.

楼主您好!代码如下：在窗体上画一个按钮,一个标签,然后复制粘贴代码就OK了Public Sub DaFen()
    Dim PingWei(1 To 7) As Single
    Dim i As Integer, n As Integer

    For i = 1 To 7
        PingWei(i) = Val(InputBox("请输入第" & CStr(i) & "位评委的打分!", "提示窗口"))
    Next i

    For n = 1 To 10
        For i = 1 To 6
            If PingWei(i) > PingWei(i + 1) Then
                Max PingWei(i), PingWei(i + 1)
            End If
        Next i
    Next n

    Me.Label1.Caption = "去掉一个最高分：" & PingWei(7) & vbCrLf & _
                        "去掉一个最低分：" & PingWei(1) & vbCrLf & _
                        "最后的成绩为：" & (PingWei(2) + PingWei(3) + PingWei(4) + PingWei(5) + PingWei(6)) / 5
End Sub
Private Function Max(ByRef X As Single, ByRef Y As Single) As Single
    Dim Z As Single
    Z = X
    X = Y
    Y = Z
End Function
Private Sub Command1_Click()
    Call DaFen
End Su

一个关于评委打分的VB程序. VB编程设计一个歌曲大奖评分程序,有12为评委打分,根据比赛规则,去掉一个最高分,计算选手的平均得分 VB编程输入七个评委的打分,计算出7个评委的平均成绩 VB程序设计大奖赛评分程序设计编写程序实现在歌手大奖赛中,有10个评委为参赛的选手打分,分数为1到100 C语言程序评委打分在歌星大奖赛中,有十个评委为参赛的选手打分,分数为1到100分.选手最后得分为:去掉一个最高分和最低 vb编程十位评委给歌手打分,要求去掉一个最高分一个最低分.然后再求出选手的平均分用二维数组编程序：歌曲大赛,有M个评委给N个选手打分,求每个选手的平均得分（去掉一个最高分和一个最... 关于C程序,就是青年歌手参加歌曲大奖赛,有10个评委进行打分,试编程求这位选手的平均得分. 求一个vb程序,关于产生随机数排序的. 求这道题c语言程序的代码青年歌手参加歌曲大奖赛,有10个评委进行打分,试编程求某位选手的平均得分（去掉一个最高分和一个 VB编程：设计一个体操评分程序,20 位评委,除去一个最高分和一个最低分,计算平均分歌手大奖赛有10名评委打分,去掉一个最高分、去掉一个最低分,求选手的平均分.