删数问题软件测试项目,【加试题】删数问题。输入一个数字串s，删去其中k个数字(k<数字串中数字的个数)，使剩余数字在保持相对位置不变的情况下构成一个值最小的整数。例如，s=“19990608”，k=4...

(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 > 1 And 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