小劉在玩一個數字游戲，給定一個n位正整數（n＜=20），根據設定的保留位數，舍去一部分數字，剩下的數字按原次序組成一個最大的新數．例如原數34625803，保留4位，最大數為6803．算法是：先確定最高位的數字，在第1位至最后3位數字前的34625中找到最大的數6，從而確定最高位是6，再確定次高位的數字，從6后面的數開始到最后2位數字前的258中找到最大數8，確定次高位是8，依次找下去得到最大新數．他設計了一個VB程序來進行驗證，在文本框Text1中輸入一個n位正整數，在文本框Text2中輸入保留的位數，點擊“確定”按鈕，在文本框Text3中輸出保留的最大新數．程序運行界面如圖所示．

（1）如果輸入的原數是3635132，保留4位數字，則輸出的新數是

6532

6532

．
（2）實現上述功能的VB代碼如下，請在橫線處填入合適代碼．
Private Sub Command1_Click （　?。?br />Dim a（1To 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＞20Or k=0Or k＞n Then
Label4．Caption=“輸入的原數或保留位數不符，請重輸！“
F=False
End If
For i=1To n
       ①
If a（i）＜“0“Or a（i）＞“9“Then
Label4．Caption=“輸入的原數不是數字，請重輸！“
Text1．Text=““
F=False
End If
Next i
If F=True Then
h=1
For i=1To k
For j=h To     ②
If a（j）＞a（h） Then h=j
Next j
xs=xs+a（h）
h=h+1
Next i
Text3．Text=xs
End If
End Sub.