在考生文件夹下有一个工程文件sjt4. vbp(相应的窗体文件名为sjt4. frm)，其功能是通过调用过程Sort将数组进行降序排序。程序运行后，分别向四个文本框中各输入一个整数(如图1所示)，然后单击命令按钮，即可使数组按降序排序，并显示在文本框中(如图2所示)。这个程序不完整，请把它补充完整，并能正确运行。
要求：去掉程序中的注释符，把程序中的改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后将修改后的文件按原文件名存盘。
参考答案：[解题思路] Array(arglist)函数用于返回一个以arglist参数中用逗号隔开的值为元素的数组。UBound函数用于返回数组某一维的最大下标(上界)，LBound函数用于返回数组某一维的最小下标(下界)。
在本题Sort过程中，源程序利用一个嵌套的For循环对数组a中的元素按从大到小进行排序。
[操作步骤]
步骤A：打开本题工程文件。
步骤B：分析并编写程序代码。
程序提供代码
Option Base A
Private Sub Sort(a() As Integer)
Dim Start As Integer, Finish As Integer
Dim i As Integer, j As Integer, t As Integer
’Start = (a)
’Finish = (a)
’For i = To B Step - A
’For j = A To
’If a(j) a(j+A) Then
t=a(j+A)
a(j+A)=a(j)
a(j)=t
End If
Next j
Next i
End Sub
Private Sub CommandA_Click()
Dim arrA
Dim artB(D) As Integer
arrA = Array( Val(TextA. Text), Val(TextB. Text), Val(TextC. Text), Val(TextD. Text) )
For i = A To D
arrB(i) = CInt( arrA(i) )
Next i
Sort arrB()
TextA. Text = arrB (A)
TextB. Text = arrB (B)
TextC. Text = arrB (C)
TextD. Text = arrB (D)
End Sub
程序结束
参考答案：
第A个处填入：LBound
第B个处填入：UBound
第C个处填入：D
第D个处填入：C
第E个处填入：＜
步骤C：调试并运行程序，关闭程序后按题目要求存盘。
