学进去

数组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 Integer
Dim m As Integer, n As Integer, k As Integer
m=Val(Text2.Text)
For i=1 To _________
c=“”
For j=1 To m-1
________
q=i*m
k=sort(p,q)
If a(k)<>a(q) Then
t=a(p):a(p)=a(k):a(k)=t
End If
________
Next j
Text3.Text=Text3.Text+ “”+c
Next i
End Sub
Function sort(f As Integer, g As Integer) As Integer
s=f
For i=f+1 To g
If a(i)>a(s) Then
_________
End If
Next i
sort=s
End Function