题目

有如下VB程序段   Const n=10   Dim a (1 To n) As Integer, y (1 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.Addltem Str(a(i)) Next i 数组a的各元素的值为“3,4,3,1,4,4,5,5,6,2,0”,在文本框中输入4,执行该段程序后List1中显示的值为(    ) A . 3 B . C . D . 答案:C
信息技术 试题推荐
最近更新