学进去

编写一个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事件处理过程中添加语句为_________（单选，填字母：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=①_________
For i=m+l To n      '取第一个非零最小数字
If    Then m=I     '加框处程序代码有误,请改正
Next i
b(j)= m
Do While②________      '取其他最小数字
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 =③________
Next j
Labell． Caption = New_num
End Sub
（3）加框处程序代码有误，请改正。
____________________________