編寫一個VB程序，實現如下功能：輸入s位數字構成的數字字符串（第1位數字不為0），移除k （0＜k＜s）個數字后，在保證原數字相對位置不變的情況下，使剩余數字組成的新數為最小（注：新數第1位不能為0）。例如8個數字構成的數字字符串“71803296”，移除3個數字，得到5位數字構成的最小數是“10296”，具體算法如圖a所示。

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

B

B

（單選，填字母：A．Form1.Text=“刪數“\B．Form1.Caption=“刪數“\C．Form1.AddItem“刪數“）
（2）實現上述功能的VB程序代碼如下，請在橫線處填入合適的代碼。
Private Sub CmdRun_ Click （　　）
Dim Num As String,New_num As String'Num為輸入的數字字符串
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為刪除數字個數
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'取第一個非零最小數字
If     Then m=I'加框處程序代碼有誤，請改正
Next i
b（j）=m
Do Whil②

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

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

'取其他最小數字
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'最后直接取的數字
j=j+1：b（j）=i
Next i
For j=1 To s-k'輸出最小數
New_ num③

New_num+a（b（j））

New_num+a（b（j））

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

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

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