Private Sub Command1_Click()
Dim mark As Single, n As Integer, a() As Single
n = InputBox("请输入几个选手：")
Print "有"; n; "个选手！"
Print n; "个选手的分数分别为："
ReDim a(n)
For i = 1 To n
a(i) = InputBox("请输入" & i & "选手分数：")
Print a(i);
Next i
max = a(1): min = a(1)
For i = 1 To n
mark = mark + a(i)
If a(i) > max Then max = a(i)
If a(i) < min Then min = a(i)
Next i
Print (mark - max - min) / n
End Sub
mmin=a(0)
mall=a(0)
for i=1 to count-1
if mmin>a(i) then
mmin=a(i)
endif
if mmax<a(i) then
mmax=a(i)
endif
mall=mall+a(i)
next i
mavg=(mall-mmin-mmax)/(count-2)
'其中count是数组个数，a是分数数组
VB去掉一个最高分和一个最低分,然后求平均分
Private Sub Combo1_Click()Dim T As Single,MyMax As Single,MyMin As Single Dim i As IntegerMyMax=-9999MyMin=9999T = T + Val(Text1.Text)if Val(Text1.Text) > MyMax Then MyMax = Val(Text1.Text)if Val(Text1.Text) < MyMin Then MyMin = Val(Text1.Text)T = T + ...
...一共10个评委,去掉一个最高分,一个最底分,去平均值。 用smax_百度...
Private SubCommand2_Click() '求10个评委中最高分 Dim i AsInteger smax =Text1(0).Text For i = 1 To9 Ifsmax < Text1(i).Text Then smax = Text1(i).Text End If Next i max.Text =smax End Sub Private SubCommand3_Click() '求10个评委中最低分 Dim i AsInteger smin =Te...
vb程序 去掉一个最高分一个最低分求平均分
定义a(10) 是让数组a 有足够个数的元素变量存储分数。a(i)中的i值变量 从1-10 当i=1 时 a(i）=a（1）=inputbox("请输入第" & i & "个数") 第一个元素赋值 10是指明数组空间大小 i是指明具体哪一个元素
这是一个用Vb设计的五个评委打分去掉一个最高分和一个最低分求平均值...
"0.00")End SubPrivate Sub Form_Load() Command2.Enabled = FalseEnd Sub
...键盘输入,去除一个最高分一个最低分以后,求平均分。用VB代码怎么写...
'加个文本框,输入分数用,分开 Private Sub Command1_Click()Dim FF() As String Dim ZG As Double '最高 Dim ZD As Double '最低 Dim ZF As DoubleFF = Split(Text1.Text, ",")ZD = FF(0)For i = 0 To UBound(FF)'找最高 If ZG < Val(FF(i)) Then ZG = FF(i)End...
...s中,去掉一个最高分和最低分,显示最后平均得分(VB程序)
窗体上放个按纽，代码如下 Private Sub Command1_Click()Dim s(9) As Double, i As Integer, k As Double, max As Double, min As Double For i = 0 To 9 s(i) = InputBox("请打出一个分数")Next i If s(0) < s(1) Then min = s(0) Else min = s(1)If min > s(2)...
vb编程 声乐比赛评分程序 很着急,请高手帮忙
1、五个评委对三个项目(声乐、理论、舞蹈)进行打分(各项分数在4-10之间,保留一位小数)。当按下亮分按钮由计算机自动给出选手的得分。选手姓名必须由 、平均舞蹈成绩自己输入。2、当按下计算按钮时,去掉一个最高分,去掉一个最低分,求得一个考生的平均理论成绩,平均声乐成绩、平均舞蹈成绩,以及三个科目的总成绩...
VB编程:一比赛七评委打分,输入分数后去掉最高最低,显示平均得分
long;max=min=a[0];for i=1 To 9 Step 1 if a[i]>max Then max=a[i];End If if a[i]<min Then min=a[i];End If sum=a[i]+sum;Next i Text1.Text=CInt(sum-max-min)\/8 这个是算法的问题，输入和输出你自己设置，数据放在数组a[]中，关键是算法的问题，这个算法很经典 ...
vb歌手大赛评分程序10位评委除去一个最高分和一个最低分计算平均数(设...
Dim max As Single, min As Single, s As Single, p As Single, x As Single Dim i As Integer s = 0 Sc(1) = Val(InputBox("请输入第1个评委的分数！"))Do While Sc(1) < 0 Or Sc(1) > 10 Sc(1) = Val(InputBox("请输入第1个评委的分数！", "输入错误！请重新输入！"...
vb中求得分:去掉一个最高分和一个最低分后求平均分为选手的的最终得分...
1、以读模式打开些TXT文件；2、LineInput一行一行读取值（循环）；3、用Split函数以“,”分解该行的值，并存储在临时数组中；4、从临时的数组中读取下标从1开始到10（下标为0的是选手姓名），并去掉最高和最低分其它八个数取平均值；5、将平均分和选手姓名存储在一个集合中；6、一行一行的读取...
