一个关于评委打分的VB程序.创建一个VB程序,程序应该完成如下功能,定义一个可实现为大奖赛打分的名为dafen的Sub过程.设大奖赛有七个评委打分,对一名参赛者,输入七个评委的打分分数,去掉一
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/03 09:18:22
一个关于评委打分的VB程序.创建一个VB程序,程序应该完成如下功能,定义一个可实现为大奖赛打分的名为dafen的Sub过程.设大奖赛有七个评委打分,对一名参赛者,输入七个评委的打分分数,去掉一
一个关于评委打分的VB程序.
创建一个VB程序,程序应该完成如下功能,定义一个可实现为大奖赛打分的名为dafen的Sub过程.设大奖赛有七个评委打分,对一名参赛者,输入七个评委的打分分数,去掉一个最高分和一个最低分后,求出的平均分为该参赛者的得分,建立主程序输入七个评委的打分,通过调用SUB过程dafen来实现参赛者得分的计算,输出显示在标签框label上.
一个关于评委打分的VB程序.创建一个VB程序,程序应该完成如下功能,定义一个可实现为大奖赛打分的名为dafen的Sub过程.设大奖赛有七个评委打分,对一名参赛者,输入七个评委的打分分数,去掉一
楼主您好!
代码如下:
在窗体上画一个按钮,一个标签,然后复制粘贴代码就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设计一个简单的程序:计算正方形的面积(详细点)