刪數問題．輸入一個數字串s,刪去其中k個數字（k＜數字串中數字的個數），使剩余數字在保持相對位置不變的情況下構成一個值最小的整數．例如，s=“19990608”，k=4，處理結果為：608．
刪數的算法如下：
（1）如果k＞0，則從前往后檢測相鄰字符，否則，轉（3）；
（2）①若所有相鄰字符都已非降序，則將串尾k個字符刪去，k值置0，轉（1）；
②若相鄰兩數存在逆序（即前一個數＞后一個數），則將前一個數刪除，k值變化，然后回到（1）；
（3）去掉串首的0，輸出結果．
按照上述算法思路，編寫了VB程序，功能如下：在文本框Text1中輸入數字串，在文本框Text2中輸入刪數的個數，單擊“處理”按鈕Command1，在文本框Text3中顯示最小的整數．程序運行界面如圖所示．

（1）如果輸入的數字串為“20160125”，刪除個數為4，則結果是

12

12

．
（2）實現上述功能的VB程序如下，請在橫線處填入合適代碼．
delete函數說明：delete（st,x,y）為自定義函數，功能為在字符串st中刪除x位置開始的y長度的子串．
Private Sub Command1_Click （　　）
Dim s As String,k As Integer,i As Integer,j As Integer,n As Integer
s=Text1．Text
k=Val（Text2．Text）
n=Len（s）
Do While k＞0
i=1
Do While i＜n And

①

①

i=i+1
Loop
If i=n Then

②

②

n=n-k
k=0
Else
s=delete（s,i,1）
n=n-1

③

③

End If
Loop

i=1
Do While n＞1And Mid（s,1，1）=“0“
s=delete（s,1，1）
i=i+1
n=n-1
Loop
Text3．Text=s
End Sub

Function delete（st As String,x As Integer,y As Integer） As String
delete=Mid（st,1，x-1）+Mid（st,x+y）'mid函數第3個參數省略，則截取從開始位置向右到字符串結尾的所有字符
End Function.