[多项选择题] 在考生文件夹下有一个工程文件sjt4. vbp(相应的窗体文件名为sjt4. frm)，其功能是通过调用过程Sort将数组进行降序排序。程序运行后，分别向四个文本框中各输入一个整数(如

[多项选择题] 在考生文件夹下有一个工程文件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：调试并运行程序，关闭程序后按题目要求存盘。

问题解析:

解析无