问答题
在考生文件夹下有一个工程文件sjt4.vbp(相应的窗体文件名为sjt4.frm)，其功能是通过调用过程Sort将数组进行降序排序。程序运行后，分别向四个文本框中各输入一个整数(如图1所示)，然后单击命令按钮，即可使数组按降序排序，并显示在文本框中(如图2所示)。这个程序不完整，请把它补充完整，并能正确运行。
要求：去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后将修改后的文件按原文件名存盘。
图1
要求：去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后将修改后的文件按原文件名存盘。
图1
【正确答案】
【答案解析】[操作步骤]
步骤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=?(a)
"Finish=?(a)
"For i=? To 2 Step-1
"For j=1 To?
"If a(j)?a(j+1) Then
t=a(j+1)
a(j+1)=a(j)
a(j)=t
End If
Next j
Next i
End Sub
Private Sub Command1_Click()
Dim arr1
Dim arr2(4) AsInteger
arr1=Array(Val(Text1. Text), Val(Text2. Text), Val
(Text3. Text), Val(Text4. Text))
For i=1 To 4
art2(i)=CInt(ard(i))
Next i
Sort art2()
Text1. Text=art2(1)
Text2. Text=art2(2)
Text3. Text=art2(3)
Text4. Text=art2(4)
End Sub
程序结束
第1个?处填入：LBound
第2个?处填入：UBound
第3个?处填入：4
第4个?处填入：3
第5个?处填入：＜
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
答案考生文件夹 [解析] Array(arglist)函数用于返回一个以arglist参数中用逗号隔开的值为元素的数组。UBound函数用于返回数组某一维的最大下标(上界)，LBound函数用于返回数组某一维的最小下标(下界)。
在本题Sort过程中，源程序利用一个嵌套的For循环对数组a中的元素按从大到小进行排序。
步骤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=?(a)
"Finish=?(a)
"For i=? To 2 Step-1
"For j=1 To?
"If a(j)?a(j+1) Then
t=a(j+1)
a(j+1)=a(j)
a(j)=t
End If
Next j
Next i
End Sub
Private Sub Command1_Click()
Dim arr1
Dim arr2(4) AsInteger
arr1=Array(Val(Text1. Text), Val(Text2. Text), Val
(Text3. Text), Val(Text4. Text))
For i=1 To 4
art2(i)=CInt(ard(i))
Next i
Sort art2()
Text1. Text=art2(1)
Text2. Text=art2(2)
Text3. Text=art2(3)
Text4. Text=art2(4)
End Sub
程序结束
第1个?处填入：LBound
第2个?处填入：UBound
第3个?处填入：4
第4个?处填入：3
第5个?处填入：＜
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
答案考生文件夹 [解析] Array(arglist)函数用于返回一个以arglist参数中用逗号隔开的值为元素的数组。UBound函数用于返回数组某一维的最大下标(上界)，LBound函数用于返回数组某一维的最小下标(下界)。
在本题Sort过程中，源程序利用一个嵌套的For循环对数组a中的元素按从大到小进行排序。