- 二一组卷

题型：综合题题类：常考题难易度：困难

浙江省2019届高三上学期稽阳10月联考信息技术试卷

编写一个删除数字字符串s中的最大和次大数字字符的程序。具体功能如下：在文本框Text1中输入一个数字字符串，单击“删数”按钮Command1，将删除后的结果显示在文本框Text2中。程序运行界面如下图所示。

（1）、要使程序运行时，按钮Command1上显示的标题为“删数”，可在Form_Load事件处理过程中添加语句（单选,填字母： A . Caption.Command1 ="删数" / B . Command1.Caption ="删数" / C . Caption ="删数"/）

（2）、实现上述功能的VB程序如下，请在划线处填入合适的代码。

Private Sub Command1_Click()

Dim s As String, ch As String

Dim i As Integer, n As Integer

Dim max1 As Integer, max2 As Integer

s = Text1.Text: n = Len(Text1.Text)

If Mid(s, 1, 1) > Mid(s, 2, 1) Then

max1 = 1: max2 = 2

Else

max1 = 2: max2 = 1

End If

For i = 3 To n

ch = Mid(s, i, 1)

If ch > Mid(s, max1, 1) Then

max1 = i

ElseIf ch >= Mid(s, max2, 1) Then

max2 = i

End If

Next i

For i = 1 To n

If Then Text2.Text = Text2.Text & Mid(s, i, 1)

Next i

End Sub

（3）、若在文本框Text1中输入的内容为“82176736”，单击按钮Command1,文本框Text2中显示的内容是。

举一反三

有一组数据为“2、3、5、5、7、7、8”，利用顺序查找和对分查找查找5时，则分别查找几次可以找到目标值：（）

顺序查找算法程序如下，下列说法正确的是（）

Dim d(1 to 10) as Integer

n=10 : count = 0

For i = 1 To n

count = count + 1

If Then

Label1.Caption = “顺序查找在数组的第” & i & “位找到了” & v

Exit For

End If

Next i

If Then

Label1.Caption = “顺序查找没有找到” & v

End If

编写“矩形面积”程序，实现如下功能：按一定比例随机生成a(1)至a(100)数组元素的值：0或1（0多1少）；将这100个数组元素，按行依次转化为10×10的二维阵列；当数组元素的值为0 时显示成“□”，当数组元素的值为1时显示成“◆”，并在列表框 List1中输出。寻找阵列中，由“□”字符构造出的最大面积的矩形，在标签Label1中显示最大面积所占的单位数。程序运行界面如图所示。

实现上述功能的VB代码如下：

Dim a(1 To 100) As Integer Private Sub Command1_Click()

Dim i As Integer, s As Integer, smax As Integer ‘用于随机生成数据，并将阵列按规则在列表框中输出，该部分功能的代码略。

smax = 0

For i = 1 To 100

If a(i) = 0 Then s = search(i) If s > smax Then smax = s

Next i

Label1.Caption = "最大面积的矩形，占" + Str(smax) + "个单位。" End Sub

Function search(i As Integer) As Integer

Dim x As Integer, x1 As Integer, xend As Integer Dim y As Integer, y1 As Integer

Dim s As Integer

x = (i - 1) Mod 10 + 1 '起始列号 y = (i - 1) \ 10 + 1 '起始行号 x1 = x

y1 = y xend = 10

search = 0

Do While y1 <= 10

If a((y1 - 1) * 10 + x) = 1 Then Exit Do '判断 x1 = x

Do While x1 <= xend

If a((y1 - 1) * 10 + x1) = 1 Then

x1 = x1 – 1 '改错

Else

x1 = x1 + 1

End If Loop

y1 = y1 + 1

s = (x1 - x) * ( ) '填空 If s > search Then search = s

Loop

End Function

请回答下列问题：

循环升序数组指的是将一个升序数组循环右移动若干距离之后变成的数组。如5、7、9、26、41、100，循环右移3位得到26、41、100、5、7、9。对分查找算法适当优化后也适用于循环升序数组。程序段如下:

l=1: r=6

Key=Val(Text1.Text)

Do While l <=r

m=Int((l+r) \ 2)

If a(m)=Key Then

⑴

Exit Do

Elself a(m) >=a(l) Then

⑵

Elself a(m) < a(l) Then

⑶

End If

Loop

上述程序中方框处可选语句为:

①If a(m) < Key And a(r) >=Key Then l=m+1 Else r=m-1

②Listl .AddItem “第”+Str(m)+“值是”+Str(a(m))

③If a(m) > Key And a(l) <=Key Then r=m-1 Else l=m+1

则(1)、(2)、(3)处语句依次是（）

运动会的跳高项目有来自total（1≤total≤50）个不同班级同学参加，随机抽取一段参赛信息，要求所有参赛班级的参赛人数至少1个，求满足要求的最小区间长度。

参赛班级用数字1，2，3，4……number表示，依次存入数组a(1)～a(number)，若1号班级的编号为5，则a(1)=5。

有如下程序段：

s = "defghiabc"

key = Text1.Text

i = 1: j = Len(s)

Do While i <= j

m = (i + j) \ 2

c = Mid(s, m, 1)

If c = key Then Exit Do

If Mid(s, i, 1) < c Then

If key >= Mid(s, i, 1) And key < c Then j = m - 1 Else i = m + 1

Else

If key > c And key <= Mid(s, j, 1) Then i = m + 1 Else j = m - 1

End If

ans = ans + Str(m)

Loop

运行程序后，若在文本框Text1中输入字符"b"，则变量ans的值是（）

相关试卷

公司介绍

服务介绍

帮助中心