vb歌手大赛评分程序10位评委除去一个最高分和一个最低分计算平均数(设满分为10)

Private Sub Form_Click()
Dim max As Single min As Single, s As Single, p As Single, x As Single
Dim i As Integer
Mas=0
Min=0
For I =1 To 10
x=Val(InputBox("请输入分数"))把接下来的步骤补全!

Dim Sc(10) As Single
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个评委的分数!", "输入错误!请重新输入!"))
Loop
max = Sc(1)
min = Sc(1)
s = s + Sc(1)
For i = 2 To 10
Sc(i) = Val(InputBox("请输入第" & i & "个评委的分数!"))
Do While Sc(i) < 0 Or Sc(i) > 10
Sc(i) = Val(InputBox("请输入第" & i & "个评委的分数!", "输入错误!请重新输入!"))
Loop
s = s + Sc(i)
If Sc(i) > max Then max = Sc(i)
If Sc(i) < min Then min = Sc(i)
Next i

s = s - max - min
p = s / 8

Print "评委给分:"
Print "序号:";
For i = 1 To 10
Print Left(CStr(i) & " ", 4);
Next i
Print

Print "得分:";
For i = 1 To 10
Print Left(CStr(Sc(i)) & " ", 4);
Next i
Print

Print "平均分:"; p
温馨提示:内容为网友见解,仅供参考
第1个回答  2015-03-31
前面的可以改吗?很明显需要声明一个数组。

vb歌手大赛评分程序10位评委除去一个最高分和一个最低分计算平均数(设...
Print "平均分:"; p

...一共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编程十位评委给歌手打分,要求去掉一个最高分一个最低分。然后再求出...
Dim arr(1 To 10) As DoubleConst N = 10Private Sub Command1_Click() Record Dim temp As Double For i = 1 To N - 1 For j = 1 To N - 1 If arr(j) > arr(j + 1) Then t = arr(j): arr(j) = arr(j + 1): arr(j + 1) = t End If ...

编程,某歌手大赛有10位选手10位评委要求评委给10位选手打分去掉一个最...
1、首先,定义一个整型变量num,保存评委的人数。2、接着,定义5个实型变量,保存所打的分数、最低分、最高分、总分和平均分。3、初始化最低分和最高分,最低分为1000分,最高分为0分。4、接着,设置总分分数,值为0。5、输入评委的人数,保存在变量num中。6、然后,提示输入评委的打分。7、...

用C语言编程:歌手大奖赛有10名评委打分,去掉一个最高分、去掉一个最低...
float a[10],min,max,s=0;\/\/定义一个数组用来存放10个评委的分数。定义的min,max,是用来超查找最高分和最低分的。int i;printf("请输入10个评委的分数:\\n");for(i=0;i<10;i++)scanf("%f",&a[i]);min=s_min(a);max=s_max(a);\/\/调用函数找出低分和最高分。printf("去掉一...

...一个最高分和最低分,显示最后平均得分(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) Then min = s(2)If ...

歌手大奖赛有10名评委打分,去掉一个最高分、去掉一个最低分,求选手的...
printf("\\n去掉一个最低分%4.3f, 去掉一个最高分%4.3f, 选手最终得分为%4.3f\\n",max, min, sum \/ 8.0f);system("pause");return 0;} \/ 请输入十位评委打分:9.8 9.875 9.6 9.9 9.9 9.83 9.89 9.81 9.7 9.75 去掉一个最低分9.900, 去掉一个最高分9.600, 选手...

10位评委打分,最终得分是去掉一个最高分、去掉一个最低分后的平均分...
n;i++) { printf("Input score %d = ",i + 1);scanf("%d",&score);sum += score;if(score>max) max = score;if(score<min) min = score;} printf("去掉最高分:%d\\n去掉最低分:%d\\n",max,min);printf("Average score:%.2f\\n",(double)(sum-max-min)\/8);return 0;} ...

Vb编程10个评委评分 除去最高.最低分,求他们的平均分
定义一维数组,A(10),10个评分中找出最小的数赋值给 A(1),……同理对其余的最小的数赋值给 A(2)……一直最后一个数赋值给 A(10)。(其实就是排序)然后,累加A(2)到A(9),除以9就得平均分。

...有十个评委打分,要去掉一个最高分和一个最低分,算出平均分,怎么做呢...
A B C D E F G H I J K L M O P Q 抽签序号姓名 1 2 3 4 5 6 7 8 9 10 合计得分 面试得分 最高分 最低分 公式一 公式二 公式三 公式四 公式一=C3+D3+E3+F3+G3+H3+I3+J3+K3+L3 公式二=(...

相似回答