vb.net输出数组

Question

Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim i As Integer
Dim sum As Integer
Dim avg As Double
Dim score(9) As Integer
For i = 0 To 9
score(i) = InputBox("请输入成绩", "输入框")
sum = sum + score(i)
TextBox1.Text = TextBox1.Text & score(i) & " "
Next
avg = sum / 10
TextBox2.Text = avg
For i = 0 To 9
If score(i) > avg Then
TextBox3.Text = TextBox3.Text & score(i) & " "
End If
Next
End Sub
End Class，
怎么在输出大于平均成绩的时候，不输出相同的数，例如，7 8 9 9，只输出，7 8 9

Answer 1

1.你说的这个有点问题,是要只输出一次,也可做,
2.但问题是如果你数组还有就看不到了!这个做法有点问题

1.解决方法:
循环前面加入一个变量 dim Temp as Double=0

For i = 0 To 9
If score(i) > avg and score(i)<>temp Then
TextBox3.Text = TextBox3.Text & score(i) & " "
if score(i)=avg then
temp=score(i)
end if
End If
Next

追问

还是会输出相同的，例如那个24，想输出一遍

追答

等下我帮你改,我理解错了

追问

恩谢谢啊

追答