Question

用vb编写模拟学生面试打分的小程序。要求在窗体上建立一个有七个文本框组成的控件数组，并添加一个标签

用vb编写模拟学生面试打分的小程序。要求在窗体上建立一个有七个文本框组成的控件数组，并添加一个标签，当文本框输入七个评委打分后，点击“计算”按钮时，系统会自动去掉一个最高分一个最低分，求出剩下五个评委打分的平均分（第六题）。。只要代码

Answer 1

 Dim str As String = "", temp As Integer = 0, sum As Integer = 0, x As Integer
        Dim a(7) As Integer
        a(1) = 76
        a(2) = 87
        a(3) = 90
        a(4) = 92
        a(5) = 69
        a(6) = 82
        a(7) = 94
        For i = 1 To 7
            For j = 1 To 7 - i
                If a(j) > a(j + 1) Then
                    temp = a(j + 1)
                    a(j + 1) = a(j)
                    a(j) = temp
                End If
            Next j
        Next i
        For i = 2 To 6
            sum = sum + a(i)
        Next
        TextBox6.Text = "平均分数是" & sum / 5

另外，程序中的a(1)到a(7),你要将7个text中的数据赋值到其中去

Answer 2

private sum command_click()
minn=val(text1(0).text)
maxn=val(text1(0).text)
sum=0
for i=0 to 6
sum=sum+val(text1(i).text)
if val(text1(i).text)>maxn then maxn=val(text1(i).text)
if val(text1(i).text)<minn then minn=val(text1(i).text)
next i
avg=(sum-maxn-minn)/5
label1.caption=avg
end sub

Answer 3

加财富 给你编个。