- 二一组卷

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

浙江省普通高校招生信息技术选考模拟卷（五）

【加试题】小李基于冒泡排序算法编写了一个VB程序，功能如下：在文本框Text1中显示排序前的数据，单击“排序”按钮Command1,在文本框Text2中显示剔除重复数据后的升序排序结果。程序运行界面如下图所示。实现上述功能的VB程序如下，但加框处代码有错，请改正。

Const n = 10

Dim a(1 To n) As Integer

Private Sub Command1_Click()

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

Dim bottom As Integer

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

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

ElseIf 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

举一反三

n个数据的冒泡排序需要经过n-1遍加工，每一遍加工自下而上比较相邻两个数据，把较小者交换到上面。小刘发现：当某一遍加工过程中没有数据交换，说明数据已经有序，无需进一步加工。为此，小刘对算法进行优化，编写了一个VB程序，功能如下：运行程序时，在列表框List1中显示排序前数据，单击“排序”按钮Commaiid1，在列表框List2 中显示这些数据按升序排序后的结果，在标签Label3中显示排序过程的加工遍数。运行效果如图所示。

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

Dim a(1 To 8) As Integer

Dim n As Integer

Private Sub Form_Load()

'n=8，排序前数据存储在数组a中，并在列表框Listl中显示

'代码略

End Sub

Private Sub Command1_Click()

Dim flag As Boolean 'flag值为True表示一遍加工中发生过交换

i = 1

flag = True

Do While '（1）

flag = False

For j = n To i + 1 Step -1

If a(j) < a(j - 1) Then

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

flag = True

End If

Next j

i = i + 1

Loop

Label3.Caption = "排序过程的加工遍数为+ " '（2）

For i = 1 To n

List2.AddItem Str(a(i))

Next i

End Sub

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

【加试题】小李要给全班学生拍合照，要求所有学生站成一排，中间高，两端低，小李采用如下排队方法：按身高信息从高到低排序，让身高第一位的同学单独站出来，身高第二位同学站在他的左手边，身高第三位同学站在他的右手边，再依次向两端安排其他人。每个学生的学号与身高信息已存人数据库中。小李编写了VB程序，从数据库中读取学号和身高信息，在“原始信息”下方的列表框List1中显示，单击“排队”按钮Command1，在“排好的队形”下方的列表框List2中显示排好的队形，程序界面如图所示。

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

Const maxn=100

Dim id(1 To maxn)As Integer ‘存储每个学生的学号

Dim tall(1 To maxn)As Single ‘存储每个学生的身高

Dim n As Integer ‘存储学生的个数

Private Sub Form_Load()

‘从数据库得到学生的总人数n

‘从数据库读取学号信息，并存入id数组中

‘从数据库读取身高信息，并存入tall数组中

‘在列表框List1中显示学号与身高

End Sub

Private Sub Command1_Click()

Dim a(1 To maxn)As Integer ‘存储排好队形的学号

Dim b(1 To maxn)As Single ‘存储排好队形的身高

Dim i As Integer，j As Integer

Dim t1 As Integer，tr As Integer，mid As Integer

Dim tmp1 As Single，tmp2 As Integer

For i=1 To n-1

For j=n To i+1 Step-1

If Then ‘(1)

tmp1=tall(j)：tall(j)=tall(j-1)：tall(j-1)=tmp1

tmp2=id(j)：id(j)=id(j-1)：id(j-1)=tmp2

End If

Next j

Next i

If n Mod 2=0 Then ‘根据总人数的奇偶性，确定队形的中间位置

mid=n＼2+1

Else

mid=(n+1)＼2

End If

‘身高第一位的同学，安排在队形的中间位置

a(mid)=id(1)

b(mid)=tall(1)

t1=mid-1

tr=mid+1

For i=2 To n

If Then ‘(2)

a(tr)=id(i)

b(tr)=tall(i)

tr=tr+1

Else

a(t1)=id(i)

b(t1)=tall(i)

t1=t1-1

End If

Next i

List2．AddItem“位置”+“学号 ”+“身高”

For i=1 To n

List2．Addltem Str(i)+” ”+Str(a(i))+” ”+Str(b(i))

Next i

End Sub

【加试题】某人编写了一个VB程序对一组随机数进行排名。程序运行时，产生10个随机整数存数组d中，并在列表框List 1中显示，单击按钮Command 1，在列表框List1 2中显示降序排序后数据及名次，若数值相同则名次相同。实现上述功能的VB 代码如下，但加框处代码有错，请改正。

Const n = 10

Dim d(1 To n) As Integer, pm(1 To n) As Integer

Private Sub Form_Load()

'代码略，本过程功能：产生10个随机整数存数组d中，并在列表框list1 中显示。

End Sub

Private Sub Command1_Click()

Dim i As Integer, j As Integer, k As Integer, t As Integer

i = 1

Do While i <= n - 1

k = i

For j = i + 1 To n

If Then k = j ‘①

Next j

If i <> k Then t = d(i): d(i) = d(k): d(k) = t

i = i + 1

Loop

pm(1) = 1

For i = 2 To n

If Then ‘②

pm(i) = i

Else

pm(i) = pm(i - 1)

End If

Next i

For i = 1 To n

List2.AddItem Str(i) +" " +Str(d(i)) + " " + "第" + Str(pm(i)) + "名"

Next I

End Sub

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

【加试题】摘苹果游戏。游戏中的苹果树结了n个苹果，每个苹果有一个地面高度和摘它所需要的力气，要摘到苹果，必须具备高度和力气两个条件，每摘一个苹果都要用掉一定的力气。小林的可用力气是个有限值s，小林手伸直后能摘的最大高度为b，她可以借助的梯子的高度为a。游戏中苹果的高度和所需力气分别存储在数组h和数组c中。

程序运行界面如题图所示。运行程序后，输入梯子高度a、手伸直高度b、可用力气s的值，单击“计算”按钮（Command1），在文本框Text4中输出小林最多能摘得的苹果数ans。

有如下程序段：

For i= 1 To 2

For j=5 To i+1 Step-1

If a(j) >a(i) Then

t=a(j)：a(j)=a(i)：a(i)=t

End If

Next j

Next i

数组元素a(1)到a(5)的值依次为“33，24，45，16，77”，经过该程序段“加工”后，数组元素a(1)到a(5)的值依次为（）

小李基于冒泡排序算法编写了一个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

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

相关试卷

公司介绍

服务介绍

帮助中心