题目

数组a中存放着1到20间的正整数，要求对其中的元素进行分段排序，在文本框Text2中输入每段元素的个数，在文本框Text3中显示每段降序排序后的数据，其中多余的元素不做处理。具体界面如下图所示： 实现该功能的VB程序如下，请在划线处填入合适的代码： Dim a (0 To 100) As Integer Const high=16 Private Sub Form_Load()'产生high个随机数，并显示在文本框Text1，代码略 End Sub Private Sub Command1_Click()Dim p As Integer, q As Integer, t As IntegerDim m As Integer, n As Integer, k As Integerm=1个十和6个一合起来是（    ）。