再求解一道VB题

(2) 程序填空题
tk315.frm的功能是：通过调用过程Sort将数组按降序排序。程序运行后，在四个文本框各输入一个整数，然后单击命令按钮，即可使数组按降序排序，并在文本框中显示出来。该程序不完整，请补充空白(1)、(2)处，以便得到正确答案，但不得增删原语句。

代码:
Option Base 1
Private Sub Sort(a() As Integer)
Dim Start As Integer, Finish As Integer
Dim i As Integer, j As Integer, t As Integer
'求出数组上下界
Start = LBound(a)
Finish = UBound(a)
'采用冒泡法排序
For i = Start To Finish - 1
'第一空：不得填具体数值
For j = i + 1 To (1)
'第二空
If a(i) (2) a(j) Then
t = a(j)
a(j) = a(i)
a(i) = t
End If
Next j
Next i
End Sub

Private Sub Command1_Click()
Dim arr1
Dim arr2(4) As Integer
arr1 = Array(Val(Text1.Text), Val(Text2.Text), Val(Text3.Text), Val(Text4.Text))

For i = 1 To 4
arr2(i) = CInt(arr1(i))<

再求解一道VB题 求解一道VB题 高分求解一道简单VB题！！！！！！ 一道简单VB程序题求解 求解一道VB选择题！！！ vb一道选择题求解 求解一道VB题目 求解VB的一道编程题目 求解VB题1 笔试VB题求解