編寫一個(gè)VB程序，實(shí)現(xiàn)如下功能：輸入s位數(shù)字構(gòu)成的數(shù)字字符串（第1位數(shù)字不為0），移除k （0＜k＜s）個(gè)數(shù)字后，在保證原數(shù)字相對(duì)位置不變的情況下，使剩余數(shù)字組成的新數(shù)為最?。ㄗⅲ盒聰?shù)第1位不能為0）。例如8個(gè)數(shù)字構(gòu)成的數(shù)字字符串“71803296”，移除3個(gè)數(shù)字，得到5位數(shù)字構(gòu)成的最小數(shù)是“10296”，具體算法如圖a所示。

算法分析：要使得到的5位數(shù)字最小，首先需保證能取到5個(gè)數(shù)字，且首位應(yīng)盡量小，那么取首位數(shù)的范圍應(yīng)保證余下有4個(gè)數(shù)字，即在前4位中選最小非0的數(shù)字。
程序運(yùn)行時(shí)，在文本框Text1中輸入一個(gè)數(shù)字字符串，在文本框Text2中輸入要移除的數(shù)字個(gè)數(shù)，單擊“運(yùn)行”按鈕CmdRun后，在標(biāo)簽Labell顯示得到的最小新數(shù)，程序運(yùn)行界面如圖b所示。
（1）程序運(yùn)行時(shí)，若要在名為Form1的窗體標(biāo)題上顯示“刪數(shù)”，可以在Form  Load事件處理過程中添加語句為

B

B

（單選，填字母：A．Form1.Text=“刪數(shù)“\B．Form1.Caption=“刪數(shù)“\C．Form1.AddItem“刪數(shù)“）
（2）實(shí)現(xiàn)上述功能的VB程序代碼如下，請(qǐng)?jiān)跈M線處填入合適的代碼。
Private Sub CmdRun_ Click （　?。?br />Dim Num As String,New_num As String'Num為輸入的數(shù)字字符串
Dim i As Integer,j As Integer,m As Integer,
Dim As Integer,s As Integer,k As Integer
Dim a（30）As String,b（30）As Integer
Num=Text1.Text：s=Len（Num）
k=Val （Text2.Text）'k為刪除數(shù)字個(gè)數(shù)
For  i=1  To  s
a（i）=Mid（Num,i,1）
Nexti
j=1
m=1
n=①

k+1

k+1

For i=m+l To n'取第一個(gè)非零最小數(shù)字
If     Then m=I'加框處程序代碼有誤，請(qǐng)改正
Next i
b（j）=m
Do Whil②

j＜k 或 j＜＞k 或 m＜n 或 m＜＞n

j＜k 或 j＜＞k 或 m＜n 或 m＜＞n

'取其他最小數(shù)字
m=m+1
n=n+1
For i=m+1 To  n
If  a（i）＜a（m） Then m=i
Next i
j=j+1：b（j）=m
Loop
For i=m+1 To  s'最后直接取的數(shù)字
j=j+1：b（j）=i
Next i
For j=1 To s-k'輸出最小數(shù)
New_ num③

New_num+a（b（j））

New_num+a（b（j））

Next j
Labell.Caption=New_num
End Sub
（3）加框處程序代碼有誤，請(qǐng)改正。

a（i）＜a（m） And a（i）＜＞“0“

a（i）＜a（m） And a（i）＜＞“0“