VB题目会的来

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

会的来，小学题目 选择题目 会的来～～ 中专里的VB题目,大家来帮帮忙5 VB题目，会的来看下啊。本人QQ464050932 VB编程的题目 vb的几个题目 VB的题目 一个VB的题目 一条VB的题目。 VB的一道题目