当前位置:IT认证>BASIC题库

问题:[多项选择题]

[多项选择题] 在考生文件夹下有一个工程文件sjt4. vbp(相应的窗体文件名为sjt4. frm),其功能是通过调用过程Sort将数组进行降序排序。程序运行后,分别向四个文本框中各输入一个整数(如图1所示),然后单击命令按钮,即可使数组按降序排序,并显示在文本框中(如图2所示)。这个程序不完整,请把它补充完整,并能正确运行。 要求:去掉程序中的注释符,把程序中的改为正确的内容,使其实现上述功能,但不能修改程序中的其他部分。最后将修改后的文件按原文件名存盘。

  

参考答案: [解题思路]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:调试并运行程序,关闭程序后按题目要求存盘。

  参考解析

微信端