- 二一组卷

题型：综合题题类：常考题难易度：普通

浙江省高中信息技术查找算法及程序实现同步练习

查找并删除重复数据的算法是对数组a中每个元素逐个作为关键字进行从后往前查找，如果有重复，删除该数据后继续查找。例如，第一次将a(1)作为关键字，从a(10)到a(1)进行逐个查找，如果和a(1)相等，则删除该数据，然后继续查找;如果是a(1)本身和它相等，则代表无重复数据。编写VB程序，程序功能如下:运行程序时，在列表框List1中显示数组a中的原始数据；单击“去除重复”按钮(Command1)，在列表框List2中输出去除重复后的数组a中的数据，同时在标签Label1中显示删除的数据总个数，运行效果如图所示。

请回答下列问题：

（1）、当数组a中的值依次为1,2,3,7,8,1,6,6,8,7时，共删除数据(填写数值)个。

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

Const maxn=10

Dim a(1 To maxn) As Integer

Private Sub Form_Load()

‘maxn个数据存储在数组a中,并在列表框List1中显示

‘代码略

End Sub

Private Sub Command1_Click()

Dim i As Integer, n As Integer ‘n用于存储当前査找的数组长度

Dim j As Integer, key As Integer ‘key用于存储本次查找关键字的数据位置

key=1: n=maxn

Do While key <=n

i=n

Do While a(i) <> a(key)

Loop

If i=key Then ‘未找到，重新下一査找关键字

key=key+1

Else ‘找到重复数据，删除

For j=i To n-1

Next j

n=n-1

End If

Loop

For i=1 To n

List2.AddItem Str(a(i))

Next i

Label1.Caption=“共删除数据”++“个”

End Sub

举一反三

下列可作为Visual Basic常量名的是：（）

【加试题】有1个升序排列的数组a(a(1)～a(n)，n≥3)，从左到右相邻两个元素的差值（后一个元素值减去前一个元素值）先由小到大、再由大到小，且相邻两个差值不相等，为了查找相邻两个元素的最大差值，小李编写的VB程序段如下：

i = 1 ：j = n

Do While i + 1 < j

m = (i + j) \ 2

If a(m + 1) - a(m) > a(m) - a(m - 1) Then

Else

End if

Loop

Label1.Caption="相邻两个元素的最大差值是" + Str(a(j) - a(i))

上述程序段两个方框处的语句分别为（）

编写“矩形面积”程序，实现如下功能：按一定比例随机生成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

请回答下列问题：

采用拉锯式排序法对无序数组元素实现降序排序，即前一遍把最大的元素从右到左送到最左的位置，后一遍把最小的元素是从左到右送到最右的位置，实现该功能的VB程序段如下：

c = 1: s = 10

Do While c <= s

For i = s To c + 1 Step -1
If Then

t = a(i - 1): a(i - 1) = a(i): a(i) = t
End If

Next i
For i=

If Then

t = a(i + 1): a(i + 1) = a(i): a(i) = t
End If

Next i

c = c + 1
s = s - 1

Loop

上述程序段三个方框处的语句分别为（）

小吴为了研究冒泡排序过程中数据的”移动”情况，编写了一个VB程序，功能如下：在列表框List1中显示排序前数据（存储在数组a中），在文本框'Text1中输入初始位置（即下标值），单击“排序”按钮Command1后，在标签Labell中显示指定初始位置的数据在排序过程中的位置变化情况，排序后的数据显示在列表框List2中。程序运行界面如图所示。

实现上述功能的VB程序如下，但加框处代码有错，请改正。

Dim a（1 To 8）As Integer

Dim n As Integer

Private Sub Form_Load（）

a（1）= 30：a（2）= 47：a（3）= 30：a（4）= 72

a（5）= 70：a（6）= 23：a（7）= 99：a（8）= 24

n = 8

For i = 1 To 8

List 1.Addltem a（i）

Next i

End Sub

Private Sub Command1_Click（）

Dim i As Integer， j As Integer， k As Integer

Dim pos As Integer

Dim s As String

s = Text1.Text

pos = Val（Text1.Text）

For i = 1 To n- 1

For j = n To i+1 Step-1

If a（j）< a（j -1） Then

‘⑴

a（j-1）= a（j）

a（j）= k

'如果pos位置的数据参与交换，则更新pos值，记录pos变化位置

If pos = j Then

pos = j-1

s = s + " →" + Str（pos）

‘⑵

pos = j

s = s + " →" + Str（pos）

End If

Next j

Next i

Label1.Caption = "位置变化情况：" +s

For i = 1 To n

List2.AddItem Str（a（i））

Next i

End Sub

⑴{#blank#}1{#/blank#} ⑵{#blank#}2{#/blank#}

已知变量s="password"，下列表达式的值为"pass"的是（）

①s[:4] ②s[-5：-1] ③s[:2]+s[3]*2 ④s[0:2]+s[3:5]

相关试卷

公司介绍

服务介绍

帮助中心