试题

试题 试卷

logo

题型:综合题 题类:模拟题 难易度:困难

浙江省普通高校招生信息技术选考模拟卷(四)

【加试题】删数问题。输入一个数字串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

举一反三
返回首页

试题篮