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

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

《冒泡排序》同步练习

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

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

Dim a(1 To 8) As Integer

Dim n As Integer

Private Sub Form_Load()

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

'代码略

End Sub

Private Sub Command1_Click()

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

i=1

flag=True

Do While i<=n-1 Or flag=True '（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="排序过程的加工遍数为"+Str(i) '（2）

For i=1 To n

List2.AddItem Str(a(i))

Next i

End Sub

⑴ ⑵

举一反三

【加试题】2016年某书城的部分书籍销售数据存放在相应的数据表中，如图a所示。小明编写了一个VB程序，实现如下功能：在文本框Text1中输人图书类别，单击“查询”按钮Command1，程序从数据库读取相关数据进行处理，在列表框List中显示该类图书所有的销售数据(从高到低排序)，在文本框Text2中显示该类图书的总销售量。VB程序运行界面如图b所示。

实现上述功能的VB程序如下，请回答下列问题：

Dim num As Integer ‘变量num存储数据库实际的记录数

Dim book(1 to 5 000)As String

Dim content(1 To 5 000)As String，content1(1 To 5 000)As String ‘存储类别内容

Dim sales(1 To 5 000)As Long，sales1(1 To 5 000)As Long ‘存储销售量

Private Sub Form Load( )

Dim conn As New ADODB．Connection，rs As New ADODB．Recordset

Dim strSQL As String

conn. ConnectionString="Provider=Microsoft. ACE. OLEDB. 12. 0; Data Source="＆App. Path&"＼major. accdb"

conn. Open

strSQL="SEl．ECT*FROM count"

Set rs．ActiveConnection=conn

‘从数据表中读取图书类别、类别内容、销售量分别存储到数组book、content、sales中

‘数据库实际读取的记录数存储在变量num中

‘代码略

End Sub

Private Sub Command1_Click()

Dim m As String，n As String，c As Integer，s As Long

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

List1．Clear

c=0：s=0

m=Text1．Text

For i=l To num ‘将符合的类别内容、销售量重新存储到数组content1、sales1中

If m=book(i)Then

c=c+1

content1(c)=content(i)

sales1(c)=sales(i)

‘①

EndIf

Next i

For i=1 To ‘②

List1．AddItem content1(i)&" "&Str(sales1(i))

Next i

Text2．Text=Str(s)

End Sub

【加试题】小明基于选择排序算法编写了一个VB程序，功能如下：某班：50个学生，从中选择10个身高最高的同学，要求被选的任何两个人不能身高一样(所给的数据保证能选10个)。

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

Const n=50

Dim d(0 To n)As Single，name(1 to n)As String

‘读人50个学生的身高，依次存入d(1)…d(50)，最高身高小于2，姓名存入

name(1)…name(50)

‘代码略

Private Sub Command1_Click()

Dim i As Integer，j As Integer，temp As Single，k As Integer，r As String

d(0)=2

For i=1 To 10

‘(1)

For j=i To n

If d(j)<d(i-1)Then

If Then ‘(2)

k=j

End If

Next j

If k<>i Then

temp=d(k)：d(k)=d(i)：d(i)=temp

r=name(k)：name(k)=name(i)：name(i)=r

End If

Next i

For i=1 To 10 ‘输出被选的l0个人的名字和身高。

List2．AddItem name(i)&d(i)

Next i

End Sub

有如下VB程序段：

For i = 1 To 2

k = i

For j = i + 1 To 7

If a(j) < a(k) Then k = j

Next j

If i <> k Then

t = a(i) : a(i) = a(k) : a(k) = t

End If

Next i

数组元素a(1)到a(7)的值依次为“19，85，86，90，24，22，62”，经过该程序段“加工”后，数组元素a(1)到a(7)的值依次为（）

实现其算法的部分VB程序段如下：

i=1

Do While i<=5

P=6

For j=6 To i+1 Step-1

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

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

p=j

End If

Next j

i=p

n=n+1

Loop

Text1.Text=Str(n)

数组元素a(1)到a(6)的数据依次为“8，3，9，16，22，2”，则程序运行后，文本框Text1中显示的内容为（）

有如下程序段：

For i=1 To 3

For j=i+1 To 7

If a(j)< a(i) Then

k= a(j): a(j)= a(i): a(i)=k

c=c+1

End If

Next j

s= Str(a(i))+s

Next i

Text1.Text=Str(c) & ":" & s

数组元素a(1)至a(7)中值分别为3，9，1，5，8，6，2，该程序段运行后，文本框Text1中显示的内容是（）

使用列表d模拟链表结构（节点数大于0），每个节点包含数据区域和指针区域，h为头指针。链表中各节点已按数据区域中数值的绝对值由小到大排列，如图a所示。现要修改该链表各节点的链接关系，使链表各节点按数据区域中的数值由小到大排列，结果如图b所示。实现该功能的程序段如下，方框中应填入的正确代码为（）

图 a

图 b

t=h

p=d[h][1]

while p != -1 :

q=d[p][1]

p=q

d[t][-1]=-1

相关试卷

公司介绍

服务介绍

帮助中心