Dim a(l To n) As Integer,y(l To n) As Integer, i As Integer, j As Integer
k=Val(Text1.Text)
For i=1 To n
y(i)=1
Next i
For i=1 To n
For j=1 To n
If a(i) < a(j) Then y(i)=y(i)+1
Next j
If y(i)=k Then List1.AddItem Str(a(i))
Next i
数组 a 的各元素的值为3,4,3,1,4,4,5,5,6,2,0, 在文本框中输入4,执行该段程序后 List1 中显示的值为( )