- 二一组卷

题型：填空题题类：常考题难易度：普通

高中信息技术——排序算法及程序实现（浙江专用）

小李基于冒泡排序算法编写了一个VB程序，功能如下：在文本框Text1中显示排序前的数据，单击“排序”按钮Command1，在文本框Text2中显示剔除重复数据后的升序排序结果。程序运行界面如图所示。

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

Const n = 10

Dim a（1 To n）As Integer

Private Sub Commandl_Click（）

Dim i As Integer，j As Integer，t As Integer

Dim bottom As Integer

'获取排序前数据依次存储在数组a中，并在文本框Text 1中显示。代码略

bottom = n

i = 1

Do While i<= bottom-1

For j = bottom To i + 1 Step -1

If Then ‘⑴

t = a（j）： a（j）= a（j - 1）：a（j - 1）= t

Elself a（j）= a（j - 1）Then '相邻两个数据相等，进行剔除处理

‘⑵

bottom = bottom -1

End If

Next j

i = i+1

Loop

Text2.Text=＂＂

For i = 1 To bottom

Text2.Text = Text2.Text+Str（a（i））

Next i

End Sub

⑴ ⑵

举一反三

【加试题】有如下 VB 程序段:

For i=1 to 3

For j=1 to 5-i

If a(j)>a(j+1) Then

t=a(j) : a(j)=a(j+1) : a(j+1)=t

End If

Next j

Text1.Text = Text1.Text + Str(a(i))

Next i

数组元素a(1)到a(5)的值依次为“3,9,6,8,4”。若该程序段执行后，文本框Text1显示的内容是（）

有一个数组data存放了n个数据，现从中删除了一个元素，其余的元素依次向前递补(假设删除的是第3个元素，则要将第4个元素移到第3个元素处，第5个元素移到第4个元素处，以此类推)，然后输出数组内容。程序输入要删除数的位置，点击“删除”按钮后删除指定数，并把剩余的数字依次输出到List2中，程序如图所示。

Dim data(10) As Integer ‘①

Dim n As Integer ‘n表示总元素个数

Private Sub Command1_Click()

Dim t As Integer

t = Val(Text1.Text)

For i = t To n-1

②

Next i

n = n - 1

For i = 1 To n

③

Next i

End Sub

Private Sub Form_Load()

Dim i As Integer

n = 10

For i = 1 To n

data(i) = i * 2

List1.AddItem Str(data(i))

Next i

End Sub

小蓝设计了一个数字字符串的简单加密解密小程序，该程序的加密规则是计算连续升序子串的长度，将该长度字符插入到相应子串后面。例如：

输入2350123456783，先将字符串拆成三段，分别是235,012345678,3要求每一段必须严格有序，如果无法实现连续升序，则单独作为一个拆分。

原字符串	235		012345678	3
连续升序字符数	3		9	1
密文	235	3	012345678	9	3	1

在文本框Text1中输入原文，单击“加密”按钮，可在文本框Text2中输出密文。

在文本框Text2中输入密文，单击“解密”按钮，可在文本框Text3中输出原文。

有一组正整数，要求仅对其中的奇数进行升序排序。排序后在列表框List2中也仅显示奇数部分数据，结果如图所示。

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

Const n=10

Dim a (1 To n) As Integer

Private Sub Command1_Click()

Dim t As Integer, i As Integer, j As Integer, m As Integer

Dim tmp As Integer

'读取一组正整数，存储在数组a中，并显示在列表框List1，代码略

i=1

Do While i<=n

For j=n To i+1 Step-1

If a(j) Mod 2=1 Then

If ① Then

tmp =a(j):a(j)=a(j-1):a(j-1)=tmp

t=t+1

End If

Next j

If ② Then m=m+1

i=i+1

Loop

For i=1 to m

List2.AddItem Str(a(i))

Next i

List2.AddItem "一共交换了"& t & "次"

End Sub

①{#blank#}1{#/blank#} ②{#blank#}2{#/blank#}

输出列表a中的元素的最大值。不要更改程序结构，将题中的①②③填入正确的语句。

a=[20,32,56,12,48]

maxx=a[0]

for k in ①:

if maxx<k:

②

print（ ③ ）

在窗体上画一个名称为Label1的标签,然后编写如下事件过程，程序运行后,单击窗体,在标签中显示的内容是（）

Private Sub Form_Click()

Dim arr(1 to 10, 1 to 10） As Integer

Dim i As Integer, j As Integer

For i =2 To 4

For j = 2 To 4

arr(i, j） = i * j

Next j

Next i

Label1.Caption =str(arr(2, 2）+ arr(3, 3))

End Sub

相关试卷

公司介绍

服务介绍

帮助中心