学进去

小刘在玩一个数字游戏，给定一个n位正整数（n<=20），根据设定的保留位数，舍去一部分数字，剩下的数字按原次序组成一个最大的新数。例如原数38265083，保留4位，最大数为8683。算法如下：
（1）在左边第1位至最后第n个数（从右向左的第n个数）之间，找出最大值，确定新数的最高位；
（2）从最大值的下个位置到第n-1个数之间查找最大值，确定新数的第二位。
（3）依次类推，确定最终的最大数。
设计了一个VB程序，在文本框Text1中输入一个n位正整数，在文本框Text2中输入保留的位数，点击“确定”按钮，在文本框Text3中输出保留的最大新数。程序运行界面如图所示。

（1）如果输入的原数是3635132，保留4位数字，则输出的新数是________。
（2）实现上述功能的VB代码如下，请在划线处填入合适代码。
Private Sub Command1_Click()
Dim a(1 To 20)As String
Dim ys As String,xs As String 'xs 记录最大的新数
Dim k As Integer,h As Integer,n As Integer
Dim i As Integer,j As Integer
Dim F as Boolean
xs="  "
ys=Text1. Text
n=Len(ys)
k=Val(Text2. Text)
F=True
If ys="  " Or n>20 Or k=0 Or k>n Then
Label4. Caption="输入的原数或保留位数不符,请重输!"
F=False
End If
For i=1 To n
①___
If a(i)<0" Or a(i>9"Then
Label4. Caption="输人的原数不是数字,请重输!"
Textl. Text="  "
F= False
End If
Next i
If F= True Then
h=1
For i= 1 To k

For j= h To②___

If a(j)>a(h)Then h=j

Next j

③___

h=h+1

Next i
Text3. Text=xs
End If
End Sub