然后，累加A（2）到A（9），除以9就得平均分。
三个变量，MAX,MIN,PJ，首先赋值MAN=0,MIN=999，反正MIN比你最高分要相当，PJ=0。
然后一个个比较得到MAX,MIN，并且把所有的10个数值相加保存到PJ里面，然后用PJ减去MAX,MIN，最后除以8就得到了，
不需要排序，而且你可以用INPUTBOX即时输入数据，也不一定用到数组。
Vb编程10个评委评分 除去最高.最低分,求他们的平均分
定义一维数组，A（10），10个评分中找出最小的数赋值给 A（1），……同理对其余的最小的数赋值给 A（2）……一直最后一个数赋值给 A（10）。（其实就是排序）然后，累加A（2）到A（9），除以9就得平均分。
用vb编程一个歌手大赛程序,一共10个评委,去掉一个最高分,一个最底分...
你没有说界面设计的具体要求是什么样的？所以就给你设计成用文本控件数组输入10个评委的成绩，找出最高分、最低分，算出平均分。界面如下图：程序代码如下：Dim smax,smin, ssum As Integer Private SubCommand2_Click() '求10个评委中最高分 Dim i AsInteger smax =Text1(0).Text For i = ...
vb歌手大赛评分程序10位评委除去一个最高分和一个最低分计算平均数(设...
Print "平均分："; p
评委打分统计程序:将10个评委打分输入到数组s中,去掉一个最高分和最低...
Print "平均分为：" & k End Sub
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 ...
某选秀比赛,有十个评委参加评分,要求去掉一个最高分去掉一个最低分...
For i = 1 To 10 sum = sum + a(i)If a(i) < min Then min = a(i)If a(i) > max Then max = a(i)Next i ave = (sum - min - max) \/ 8 Print "选手的最终成绩：" & ave End SubPrivate Sub Form_Load()Me.AutoRedraw = True Print "输入十位评委的分数："End Sub...
输入10个数,去掉一个最高分和一个最低分,最后求平均分,这个程序怎么编 ...
void main(){ float mark, i, max = -32768, min = 32767, sum = 0;for (i = 0; i < 10; i++){ scanf ("%f", &mark);if (mark > max) max = mark; \/\/记录最高分 if (mark < min) min = mark; \/\/记录最低分 sum += mark;} printf ("平均分为：%.1f\\n", (...
vb编写一个程序,从键盘输入10个学生成绩,统计最高分,最低分和平均值...
"))sum=x Mymax=x Mymin=x for i=2 to 10 x=val(inputbox("输入第" & i & "个成绩："))sum = sum + x if x>Mymax Then Mymax =x if x<Mymin Then Mymin =x next i MyAvg = sum \/10 print "最高分：";Mymax print "最低分：";Mymin print "平均分：";MyAvg ...
用VB编程输入10名学生某一门课的成绩,求出其中的最高分,最低分和所有...
score(i) = Val(InputBox("请输入第 " & Str(i) & "个学生的成绩", "成绩统计", ""))Text1.Text = Text1.Text & Str(score(i))Next i s = 0: max = score(1): min = score(1)For i = 1 To 10 If score(i) > max Then max = score(i)If score(i) < min Then ...
vb 比赛中10 名裁判去掉一个最高分,去掉一个最低分求最后得分 求...
Dim judge(1 To 10) As IntegerDim max As Integer, min As Integer, s As IntegerDim i As Integermax = 0min = 100For i = 1 To 10 If judge(i) < min Then min = judge(i) If judge(i) > max Then max = judge(i) s = s + judge(i)Next ilabel1 = maxlabe...
