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

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

6532

6532

．
（2）實(shí)現(xiàn)上述功能的VB代碼如下，請?jiān)跈M線處填入合適代碼．
Private Sub Command1_Click （　?。?br />Dim a（1To 20）As String
Dim ys As String,xs As String'xs記錄最大的新數(shù)
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=“輸入的原數(shù)或保留位數(shù)不符，請重輸！“
F=False
End If
For i=1To n
       ①
If a（i）＜“0“Or a（i）＞“9“Then
Label4．Caption=“輸入的原數(shù)不是數(shù)字，請重輸！“
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.