学进去

在一个整数序列中找第 k 大数，若有相同的整数，则位置靠前的整数的名次靠前。如有整数分别为10，13，12，13，15，则第1大的数为15，第2大的数为13，位于第2位置，第3大的数还是13，位于第4个位置，第4大数是12，第5大的数是10。
编写一个VB程序，实现如下功能：程序启动时产生n个1~20之间的随机整数，在文本框Text2中输入整数k（k≤n），单击“查找”按钮Command1后，在标签Label1上显示第k大的数及位置。程序运行界面如图所示。

（1）下列对象不具有Caption属性的是          （单选，填字母：

A．Command1 /

B．Form1 /

C．Text1 /

D．Label1）

（2）实现上述功能的VB程序如下，请在划线处填入合适代码。
（3）程序代码中的加框处代码有误，请改正。
Const n = 10
Dim a(1 To n) As Integer
Private Sub Form_Load()
'本过程产生n个1~20之间的随机整数存数组a中，并在文本框Text1中显示，代码略
End Sub
Private Sub Command1_Click()
Dim i As Integer, sum As Integer, key As Integer,c As Integer,k As Integer
Dim b(1 To 20) As Integer
    ①    
For i = 1 To n
b(a(i)) = b(a(i)) + 1
Next i
i = 20
sum = 0
Do While i >= 1 And sum < k
     ②    
i = i – 1
Loop
    ③    
Label3.Caption = "第" + Str(k) + "大的数是" + Str(key)
c = 0
For i = 1 To n
If a(i) = key Then c = c + 1
If c = Then Exit For
Next i
Label3.Caption = Label3.Caption + ",在第" + Str(i) + "位置"
End Sub