题目

【加试题】删数问题。输入一个数字串s，删去其中k个数字(k<数字串中数字的个数)，使剩余数字在保持相对位置不变的情况下构成一个值最小的整数。例如，s=“19990608”，k=4，处理结果为：608。 删数的算法如下： ⑴如果k>0，则从前往后检测相邻字符，否则，转⑶； ⑵①若所有相邻字符都已非降序，则将串尾k个字符删去，k值置0，转⑴； ②若相邻两数存在逆序（即前一个数>后一个数），则将前一个数删除，k值变化，然后回到⑴； ⑶去掉串首的0，输出结果。按照上述算法思路，编写了VB程序，功能如下：在文本框Text1中输入数字串，在文本框Text2中输入删数的个数，单击“处理”按钮Command1，在文本框Text3中显示最小的整数。程序运行界面如图所示。 （1） 如果输入的数字串为“20160125”，删除个数为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 'mid 函数第3个参数省略，则截取从开始位置向右到字符串结尾的所有字符 delete = Mid(st, 1, x - 1) + Mid(st, x + y) End Function 答案： 【1】12 【1】Mid(s,i,1) <= Mid(s,i+1,1)【2】s=delete(s,n-k+1,k)【3】k=k-1

查看本题答案和解析