Question

设计一个裁判打分系统，是个裁判，去掉一个最高分最低分。。 急求啊嗷嗷！！！VB的！！！

（2）程序界面需要有“最后结果”、“清除”、“退出”等功能。（3）程序运行时由用户输入每个裁判的分数，单击“最后结果”按钮时显示最高分、最低分及最后得分，显示结果要求保留2位小数（应用format函数）。（4）“清除”按钮可以将所有裁判分数、最高分、最低分及最后得分清除。（5）“退出”按钮可以退出程序。3．实验分析与设计 内容要求：系统功能实现的主要方法和设计思路的说明。（约200字）

Answer 1

'先在框体上绘制一个含有10个文本框的文本框组，然后在Form_Load()定义数组，用于记录文本：
Dim fen(12)
'其中fen(0)~fen(9)是输入，fen(10)~fen(12)是显示结果
'======================

'中间省略
'======================

'在“最后结果”按钮加上：
'赋值
Dim i As Integer
For i = 0 To 9
fen(i) = Text1(i).Text
Next i
'运算
For i = 0 To 9
If fen(i + 1) >= fen(i) then
fen(10) = fen(i + 1)
Else
fen(10) = fen(i)
End If
If fen(i + 1) <= fen(i) then
fen(11) = fen(j + 1)
Else

fen(11) = fen(i)
End If
Next i
For i = 0 To 9
fen(12) = fen(12) + fen(i)
Next i
'转换格式&输出
For i = 10 To 12
fen(i) = Format(fen(i), "##0.00")
Next i
Label1.Text = fen(10)
Label2.Text = fen(11)
Label3.Text = fen(12)
'=========================
'在“清除”按钮加上：
Dim i As Integer
For i = 0 To 9
Text1(i).Text = ""
Next i
Label1.Text = ""
Label2.Text = ""
Label3.Text = ""
'=========================
'在“退出”按钮加上：
End
'=========================
'完毕

追问

万分感谢！！但我们没学过fen ...QWQ这个是程序语言么还是啥。。能改一下么。。大神麻烦了！！

追答

我定义的fen(12)是一个含有13（即：0~12）个变量的数组，在后面加一个 As Integer也行，就是：

'先在框体上绘制一个含有10个文本框的文本框组，然后在Form_Load()定义数组，用于记录文本：
Dim fen(12) As Integer
    '其中fen(0)~fen(9)是输入，fen(10)~fen(12)是显示结果
'======================
    '中间省略
'======================
    '在“最后结果”按钮加上：
    '赋值
Dim i As Integer
For i = 0 To 9
   fen(i) = Text1(i).Text
Next i
    '运算
For i = 0 To 9
   If fen(i + 1) >= fen(i) then
      fen(10) = fen(i + 1)
   Else 
      fen(10) = fen(i)
   End If
   If fen(i + 1) <= fen(i) then
      fen(11) = fen(j + 1)
   Else 
      fen(11) = fen(i)
   End If
Next i
For i = 0 To 9
   fen(12) = fen(12) + fen(i)
Next i
    '转换格式&输出
For i = 10 To 12
   fen(i) = Format(fen(i), "##0.00")
Next i
Label1.Text = fen(10)
Label2.Text = fen(11)
Label3.Text = fen(12)
'=========================
    '在“清除”按钮加上：
Dim i As Integer
For i = 0 To 9
   Text1(i).Text = ""
Next i
Label1.Text = ""
Label2.Text = ""
Label3.Text = ""
'=========================
    '在“退出”按钮加上：
End
'=========================
'完毕