合唱队列是按队员的身高进行排列，形成中间高两边有序降低的队形；例如有六个队员“己、戊、丁、丙、乙和甲”的身高依次由小到大，则排列后的顺序为“戊、丙、甲、乙、丁、己”。小李用VB编写模拟“合唱队列”程序，功能如下：在文本框Text1中输入各队员身高，输入结束并回车，则输入的各队员身高分别存入数组a中；单击“合唱队列”按钮Command1，对数组a的元素进行有序排列后，将各元素存入数组C中形成合唱队列...

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

浙江省义乌市群星外国语学校2017届高三上学期期中考试信息技术试题

合唱队列是按队员的身高进行排列，形成中间高两边有序降低的队形；例如有六个队员“己、戊、丁、丙、乙和甲”的身高依次由小到大，则排列后的顺序为“戊、丙、甲、乙、丁、己”。小李用VB编写模拟“合唱队列”程序，功能如下：在文本框Text1中输入各队员身高，输入结束并回车，则输入的各队员身高分别存入数组a中；单击“合唱队列”按钮Command1，对数组a的元素进行有序排列后，将各元素存入数组C中形成合唱队列，并将结果显示在文本框Text2中。程序运行界面如图所示：甲、乙、丙、丁、戊和己

实现上述功能的VB程序如下：

（1）、如果输入各队员身高为“190,191,194,179,166”，则合唱队列的结果为。

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

Dim a(1 To 20) As Integer

Dim n As Integer

Private Sub Text1_KeyPress(KeyAscii As Integer)

'将输入各队员身高分别存入数组a中，队员个数为n，代码略!

End Sub

Private Sub Command1_Click()

Dim c(1 To 20) As Integer

Dim right As Integer, left As Integer, i As Integer

For i = 1 To n – 1

For j =1 To n-i

If ① Then

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

End If

Next j

Next i

‘下列程序段实现数组C的合唱队列

m = (1 + n) \ 2

left = m: right = m

c(m) = a(n)

i = 2

Do While i <= n

If i Mod 2 = 0 Then

right = right + 1

c(right) = a(n-i+1)

Else

②

c(left) = a(n-i+1)

End If

i = i + 1

Loop

s = ③

For i = 2 To n

s = s + "," + Str(c(i))

Next i

Text2.Text = s

End Sub

① ② ③

举一反三

把杂乱无章的数据变为有序的数据，这一过程称为排序。冒泡排序是其中一种最基础的排序方法，其中的升序是把数列中把较小的数据逐次向上推移的一种排序技术。它的方法是把待排序的n个元素的数组看成是垂直堆放的一列数据，从最下面一个元素起，自下而上的比较相邻两个元素中的数据，如果较小的数据在下面，那将较小的数据换到上面的元素中（否则不交换）重复这一过程，直到处理完最后两个元素中的数据，称为一遍加工，当第1遍加工完成时，最小的数据已经上升到第1个元素的位置；第2遍加工对余下的n-1个元素重复上述处理过程，第2遍加工完成后剩下最小的数据上升到第2个位置；直到n-1遍加工完成后发现数据完成了从小到大的排序。

假设有4个数据：27 36 32 18，需要4-1=3遍加工

第1遍加工如下：

第2遍加工如下：

第3遍加工如下：

假设4个数据放在数组d(1), d(2),d(3), d(4)

第1遍：比较d(j)、d(j-1)，j=4,3,2,比较3次；

第2遍：比较d(j)、d(j-1)，j=4,3,比较2次；

第3遍：比较d(j)、d(j-1)，j=4,比较1次；

如图a所示，在excel中使用Rank函数可以快速地返回一个数字在数字列表中的排位，而且是同分同名次，非常方便。小明想用Vb编写一个程序来实现类似Rank排名次的功能，程序运行时，随机产生10个[60,100]之间的随机数，并显示在列表框List1中，单击“排名”按钮Command1，在列表框List2中输出数据及其排名，程序运行界面如图b所示。

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

Dim a(1 to 10) As Integer ‘存储原始数据

Dim b(1 to 10)As Integer ‘存放名次

Private Sub Command1_Click()

Dim i As Integer, j As Integer, n As Integer

For i=1 To 10

n=0

For j=1 To 10

Then n=n+1 ‘①

‘②

Next j

Next i

For i= 1 to 10

List2.Additem a(i)&” ”&b(i)

Next i

End Sub

Private Sub Form_Load()

‘随机产生10个[60,100]之间的随机数，并显示在List1中，代码略。

End Sub

①处代码应改为：{#blank#}1{#/blank#}

②处代码应改为：{#blank#}2{#/blank#}

小明学了排序和查找算法后，编写了一个处理成绩的程序。单击“获取成绩”按钮得到n个非降序数保存在数组a(1)—a(n)中，并显示在 List1中。在文本框Text1中输入成绩key，单击“查找”按钮，则在标签 label1中显示共有多少位同学的成绩大于等于该成绩。

小刘设计了一个排序算法，该排序算法会将数组a中奇数位的元素从小到大排列，偶数位的元素从大到小排列，程序界面如图，算法的VB程序段如下：

Private Sub Command2_Click()

Dim i As Integer, j As Integer, tmp As Integer

Dim s1 As String, t As Integer, s2 As String

t=1

For i=1 To n-2

For j= To n Step 2 ‘改错

If a(i)*t>a(j)*t Then

tmp =a(i): a(i)= a(j): a(j)=tmp

End if

Next j

‘填空①

Next i

For i =1 To n

If Then ‘填空②

s1 =s1 Str(a(i))

Else

s2=s2+Str(a(i))

End If

Text2. Text=“奇数位：”+s1

Text3. Text=“偶数位：”+s2

End Sub

回答以下问题：

给定一个数组(有n个元素)，小李通过边分段、边合并的方式将n个数据处理成一个非降序数据段(a(1)≤a(2)≤a(3)≤……≤a(n))，每一轮数据处理方法如下：

⑴查找相邻两个非降序数据段在未处理的数据区域中，从前往后找出第一个最长非降序数据段。若该数据段后而没有元素，则本轮处理完毕；否则在第1个数据段的后面，从前往后找出数组中第二个最长非降序数据段。

⑵合并两个数据段

借助数组tmp，将查找到的两个相邻数据段合并成一个非降序数据段，然后将合并后的数据依次存回到原数组中。

⑶若数组中还有未处理的数据，则重复⑴⑵步骤。

每一轮数据处理完毕后，重新从数组第1个数据开始进行下一轮处理。若检测到某一轮没有合并处理，则说明n个数据己构成非降序数据段，数据处理结束。

某次考试的流程为先笔试再面试，笔试成绩达到面试资格线的可以入围参加面试。入围面试的资格线根据计划录取人数的200%划定，即如果考试最终录取x人，则第2*x名选手的笔试分数为面试资格分数线(该分若有同分者可一同参加面试)。现在编写VB程序功能如下：自动读取数据库中考生考号和笔试成绩，依次存储在数组kh(i)、cj (i)中，并显示在Listl列表框中。

用户从Text1中输入计划人数，单击“入围划线”按钮Command1，面试分数线显示在文本框Text2 中，入围面试最终人数显示在 Text3中，进入面试考生的考号和笔试成绩显示在List2列表框中，如果成绩相同，则按考号从小到大的顺序显示。程序界面如图所示。

Dim kh(1 To 500) As String, cj(1 To 500) As Integer

Dim n As Integer ′参加考试总人数

Private Sub Form_Load()

Dim conn As New ADODB.Conncction

Dim rs As New ADODB.Recordset

conn.ConnectionString = “Provider=Microsoft.ACE.OLEDB.12.0；datasource=”+App.Path + ”\BSCJ.accdb”

conn.Open

Set rs.ActiveConnection = conn

rs.Open “select * FROM scoreinfo”

′本过程其他代码略

End Sub

Private Sub Commandl_click()

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

Dim t1 As Integer, t2 As String, flag As Boolean

For i = 1 To n - 1

For j = 1 To

If cj(i) < cj(j) Then

t1 = cj(i): cj(i) = cj(j): cj(j) = t1

t2 = kh(i): kh(i) = kh(j): kh(j) = t2

EleIf ① Then

t2 = kh(i): kh(i) = kh(j): kh(j) = t2

End If

Next j

Next i

m = ②

If m <= n Then

i = m

flag = Flase

Do While i < n And Not flag
If cj(i) = cj(i + 1) Then

i = i + 1

Else

③

End If
Loop

Text2.Text = Str(cj(m))

Text3.Text = Str(i)

For j = 1 To i

List2.Addltem kh(j) + “ ” + Str(cj(j))

Next j

Else

Text2.Text = “面试人数超过了总人数”

End If

End Sub

相关试卷

公司介绍

服务介绍

帮助中心