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

（1）如果輸入的數(shù)字串為“20160125”，刪除個數(shù)為4，則結(jié)果是

12

12

．
（2）實現(xiàn)上述功能的VB程序如下，請在橫線處填入合適代碼．
delete函數(shù)說明：delete（st,x,y）為自定義函數(shù)，功能為在字符串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函數(shù)第3個參數(shù)省略，則截取從開始位置向右到字符串結(jié)尾的所有字符
End Function.