参考答案:
[解题思路]Array(arglist)函数用于返回一个以arglist参数中用逗号隔开的值为元素的数组。UBound函数用于返回数组某一维的最大下标(上界),LBound函数用于返回数组某一维的最小下标(下界)。在本题Sort过程中,源程序利用一个嵌套的For循环对数组a中的元素按从大到小进行排序。[操作步骤]步骤A:打开本题工程文件。步骤B:分析并编写程序代码。程序提供代码OptionBaseAPrivateSubSort(a()AsInteger)DimStartAsInteger,FinishAsIntegerDimiAsInteger,jAsInteger,tAsInteger’Start=(a)’Finish=(a)’Fori=ToBStep-A’Forj=ATo’Ifa(j)a(j+A)Thent=a(j+A)a(j+A)=a(j)a(j)=tEndIfNextjNextiEndSubPrivateSubCommandA_Click()DimarrADimartB(D)AsIntegerarrA=Array(Val(TextA.Text),Val(TextB.Text),Val(TextC.Text),Val(TextD.Text))Fori=AToDarrB(i)=CInt(arrA(i))NextiSortarrB()TextA.Text=arrB(A)TextB.Text=arrB(B)TextC.Text=arrB(C)TextD.Text=arrB(D)EndSub程序结束第A个处填入:LBound第B个处填入:UBound第C个处填入:D第D个处填入:C第E个处填入:<步骤C:调试并运行程序,关闭程序后按题目要求存盘。