vb编写编写一个歌唱比赛统计选手得分的程序.要求（1）单击“评委给分”按钮,则利用键盘输入10个0～vb编写编写一个歌唱比赛统计选手得分的程序.要求（1）单击“评委给分”按钮

Question

vb编写编写一个歌唱比赛统计选手得分的程序.【要求】 （1）单击“评委给分”按钮,则利用键盘输入10个0～
vb编写编写一个歌唱比赛统计选手得分的程序.【要求】
（1）单击“评委给分”按钮,则利用键盘输入10个0～100分之间的整数,同时显示在文本框中（每行显示5个）.
（2）单击“最后得分”按钮,则计算选手的最后得分.选手的最后得分计算方法为：在评委的给分中,去掉一个最高分和一个最低分,最后计算平均分.
【分析】
（1）要找出10个数的最大值和最小值,可以先假设第一个输入的数据为最大和最小,将其分别赋给变量maxValue和minValue,然后依次与以后输入的其他9个数据逐一进行比较,如果比maxValue大,则将之赋给maxValue,如果比minValue小,则将之赋给minValue,输入数据完毕时,即可得到10个数中的最大值和最小值.
（2）在文本框中显示多项数据,需要先把各数据逐个连接在一起.如果将变量a中的内容连接到文本框Textbox1现有内容的后面,可使用Textbox1.Text = Textbox1.Text & a实现.
有时为了使显示效果美观,经常需要进行换行处理.如果每显示一项换行,可使用Textbox1.Text = Text1box.Text & a & vbCrlf.如果每显示5项后换行,可以使用如下程序段：
n = 0
For a = k To w
Textbox1.Text = Textbox1.Text & a
n = n + 1
If n Mod 5 = 0 Then
Textbox1.Text = Textbox1.Text & vbCrlf
End If
Next a

Answer 1

dim sum as double
dim max as double
dim min as double
for i=1 to 20
s(i)=inputbox("输入评委分数!")
next i
sum=0
max=s(1)
min=s(1)
for i=1 to 20
sum=sum+s(i)
if s(i)>max then max=s(i)
if s(i)next i
sum=(sum-max-min)/18
print sum