一个关于评委打分的VB程序.创建一个VB程序,程序应该完成如下功能,定义一个可实现为大奖赛打分的名为dafen的Sub过程.设大奖赛有七个评委打分,对一名参赛者,输入七个评委的打分分数,去掉一

来源：学生作业帮助网编辑：作业帮时间：2024/04/30 10:52:11

一个关于评委打分的VB程序.创建一个VB程序,程序应该完成如下功能,定义一个可实现为大奖赛打分的名为dafen的Sub过程.设大奖赛有七个评委打分,对一名参赛者,输入七个评委的打分分数,去掉一
一个关于评委打分的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 Sub

一个关于评委打分的VB程序.创建一个VB程序,程序应该完成如下功能,定义一个可实现为大奖赛打分的名为dafen的Sub过程.设大奖赛有七个评委打分,对一名参赛者,输入七个评委的打分分数,去掉一 VB编程设计一个歌曲大奖评分程序,有12为评委打分,根据比赛规则,去掉一个最高分,计算选手的平均得分(要求：选手得分由用户在程序运行时输入,程序界面由同学自己设计） vb编程十位评委给歌手打分,要求去掉一个最高分一个最低分.然后再求出选手的平均分 VB编程输入七个评委的打分,计算出7个评委的平均成绩 VB程序设计大奖赛评分程序设计编写程序实现在歌手大奖赛中,有10个评委为参赛的选手打分,分数为1到100 VB编程：设计一个体操评分程序,20 位评委,除去一个最高分和一个最低分,计算平均分 vb 完成一个计算两数相加的小程序用VB编写一个至少30句的程序用VB程序编写：问题;创建一个工程来计算一元二次方程的根.要求输入一元二次方程的系数,求出方程的根二、设计简单的VB程序计算函数的值自己设计一个简单的VB程序,计算下列VB函数的值.提示：为简单起见,可二、设计简单的VB程序计算函数的值自己设计一个简单的VB程序,计算下列VB函数的值. 关于C程序,就是青年歌手参加歌曲大奖赛,有10个评委进行打分,试编程求这位选手的平均得分.青年歌手参加歌曲大奖赛,有10个评委进行打分,试编程求这位选手的平均得分（去掉一个最高分和用VB设计一个程序,实现一个圆绕椭圆轨迹运动的动画效果 VB程序的fix是什么意思用vb做一个斐波那契数列程序 VB随机产生一个英文字母程序怎么编啊? 编写一个程序,用于对参与比赛的选手打分.具体规则是：输入10个评委的打分分数后,去掉一个最高分和一个低分,求出平均分作为该选手的最终得分. 用VB编一个程序,求从1至100的自然数的和谁能帮我用VB设计一个简单的程序：计算正方形的面积（详细点）