- 二一组卷

题型：综合题题类：模拟题难易度：普通

浙江省2019年信息技术选考模拟试卷二

合唱队列是按队员的身高进行排列，形成中间高两边有序降低的队形；例如有六个队员“己、戊、丁、丙、乙和甲”的身高依次由小到大，则排列后的顺序为“戊、丙、甲、乙、丁、己”。小李用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

以上程序段运行时，为了实现上述功能，划线处应填入的代码为：

① ； ②； ③。

举一反三

某社区为庆五一进行“摘草莓”比赛活动，最后取十人进入决赛，工作人员编制了如下Visual Basic程序，功能是根据草莓颗数进行排序，程序中所有参赛者的成绩保存在数组result中，对应的姓名保存在数组name中。

程序界面如图所示，左边列表框List1中显示数据（成绩和姓名），单击 “开始排序”按钮（Command1），排序后的结果按成绩从高到低显示在列表框List2中。

解决此问题的排序部分的程序段如下：

Dim result(1 To 10) As Single

Dim name(1 To 10) As String

Private Sub Command1_Click( )

Dim I, J, K, X As Single, Y As String

For I = 1 To 9

K = I

For J = I + 1 To 10

If ① Then K = J

Next J

If K <> I Then

X = result(I) : result(I) = result(K) : ②

Y = name (I) : name (I) = name (K) : name (K) = Y

End If

Next I

For I = 1 To 10

List2.AddItem Str(result(i)) + " " + result(i)

Next i

End Sub

Private Sub Form_Load()

' 此过程用于对数组a和数组b进行初始赋值，代码略

End Sub

在程序①和②划线处，填入适当的语句或表达式，把程序补充完整：

程序中①划线处应填入{#blank#}1{#/blank#}。

程序中②划线处应填入{#blank#}2{#/blank#}。

A班一组同学的英语成绩分别为24、27、16、15、24、18，下列采用排序算法及第二遍的排序结果分别为:（）

原始数据	24	27	16	15	24	18
第一遍	27	24	16	15	24	18
第二遍
第三遍	27	24	24	15	16	18
第四遍	27	24	24	18	16	15
第五遍	27	24	24	18	16	15

【加试题】小明设计了一个VB程序，随机产生n个1至20之间的整数，并在列表框List1中降序显示：实现上述功能的VB代码如下，加框外代码有误，请改正。

Private Sub Command1_Click()

Dim n, i, j, temp As Integer

Dim a(1 To 10) As Integer

n = Val(Text1.Text)

Randomize

a(1) = Int(Rnd * 20) + 1

For i = 2 To n

a(i) = Int(Rnd * 20) + 1

If a(i) > a(i - 1) Then

temp = a(i)

bot = 1 : Top = n

Do While bot <= Top

‘(1)

If temp < a(m) Then bot = m + 1 Else Top = m - 1

Loop

For k = n To bot + 1 Step -1

‘(2)

Next k

a(bot) = temp

End If

Next i

For j = 1 To n

List1.AddItem Str(a(j))

Next j

End Sub

以上程序段运行时，为了实现上述功能，加框处代码应改正为：

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

有一段VB程序，代码如下:

For i=1 To 3

For j=8 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(8)的值依次为“35， 18， 14， 20， 30， 15， 28， 26”，运行该程序段后，a(5)到a(8)的值依次是（）

使用列表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

某面馆2024年2月订餐数据保存在文件“ddsl.xlsx”中，部分数据如图a所示，编写Python程序，统计2月订餐最多的3种菜品，并使用图表呈现统计结果（并列前三的菜品均显示），如图b所示。

图a

import pandas as pd

df = pd.read_excel("ddsl.xlsx") #读文件中的数据

df= df.drop(["日期"，"订单号"，"单价"，"金额"]，axis=1) #删除列

dfg = df.groupby(" ① "，as_index= False).sum() #分组求和

dfs = ②

plt.bar(dfs["菜品"], dfs["份数"]) #绘制柱形图

#设置图表样式，显示图表代码略

相关试卷

公司介绍

服务介绍

帮助中心