- 二一组卷

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

浙江省环大罗山联盟2023-2024学年高二下学期期中考试信息技术试题

某面馆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["份数"]) #绘制柱形图

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

（1）、统计2月订餐最多的3种菜品，由图b可知，该面馆有个菜并列第三。

图b

（2）、请在程序划①线处填入合适代码。

①

（3）、程序加框处应填入的正确代码为____(单选，填字母)。

A、dfs = df.sort_values("份数"，ascending= True) #升序排序 B、dfs = df.sort_values("份数"，ascending = False) C、dfs = dfg.sort_values("份数"，ascending = True) D、dfs = dfg.sort_values("份数"，ascending = False)

（4）、下列选项能实现划线②处功能的有____(多选，填字母)。

A、dfs[0:3] B、dfs.head() C、dfs[dfs.份数>=dfs["份数"][2]] D、dfs[dfs.份数>=dfs.at[2,"份数"]]

举一反三

【加试题】小明设计了一个VB程序（界面如图16所示），随机产生n（n<=100）个大于等于a(a<=100)且小于等于b(b<=100)的整数，并在列表框List1中降序显示。

实现上述功能的VB代码如下：

请在划线处填入合适代码。

Private Sub Command1Click()

Dim a As Integer, b As Integer

Dim n As Integer, t As Integer

Dim m(1 To 100) As Integer

a = Val(Text1.Text)

b = Val(Text2.Text)

n = Val(Text3.Text)

If a > b Then t = a: a = b: b = t

Randomize

①

For i = 2 To n

m(i) = Int(Rnd * (b - a + 1)) + a

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

②

For j = i - 1 To 1 Step -1

If temp < m(j) Then Exit For

m(j + 1) = m(j)

Next j

③

End If

Next i

For i = 1 To n

List1.AddItem Str(m(i))

Next i

End Sub

程序①处的代码是{#blank#}1{#/blank#}

程序②处的代码是{#blank#}2{#/blank#}

程序③处的代码是{#blank#}3{#/blank#}

下表记录了6个数据的排序过程。分析表中数据可知，该排序采用的算法与排序方式分别为

原始数据	65	57	59	44	45	69
第1遍	44	65	57	59	45	69
第2遍	44	45	55	57	59	69
第3遍	44	45	57	65	59	69
…	…	…	…	…	…	…

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

i = 1

flag = True

Do While '改错

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 = "排序过程的加工遍数为" + '填空

For i = 1 To n

List2.AddItem Str(a(i))

Next i

End Sub

有如下VB程序段：

Dim a(1 To 5)As Integer, i As Integer, j As Integer key As Integer

a(1)=8：a(2)=13：a(3)=25：a(4)=98：a(5)=56

For i=4 To 5

j=i： Key a(j)

Do While a(j-1)>Key and j>

a（j）=a(j-1)

j=j-1

Loop

a(j)=Key

Next i

执行该程序段后，数组元素a(1)~a(5)的值是（）

小王基于选择排序算法编写了一个VB程序，功能如下：读取若干数据依次存储在数组a中，并将数据分段排序，每段数据的元素个数及排序的次序要求依次存储在数组b中。如图，在文本框Text1中显示数组a的原始数据，在文本框Text2中显示每段数据的元素个数及排序次序要求(0表示升序、1表示降序)；单击“排序”按钮Command1，根据要求输出对每段数据进行排序的结果。实现上述功能的VB程序如下：

Dim n As Integer

Dim a(1 To 100) As Integer

Dim b(1 To 100) As Integer

Private Sub Form Load()

‘读取若干数据依次存储到数组a中，并将数据元素的总个数存储到变量n中。

‘将每段数据的元素个数及排序的次序依次存储到数组b中；

‘b(1)、b(2)分别存储第1段数据的元素个数、排序的次序，

‘b(3)、b(4)分别存储第2段数据的元素个数、排序的次序，.....

“代码略。

End Sub

Private Sub Command1_Click())

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

Dim pb As Integer, endpos As Integer

pb=1: endpos =b(1)

For i=1 To n-1

If i=endpos Then

pb=pb+2:i=endpos+1

①

End If

k=i

For j =i+1 To endpos

If Then k=j ‘⑵

Next j

If k<>i Then

②

End If

Next i

Text3.Text ="" ‘⑷

For i=1 To n

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

Next i

End Sub

某市要组织高中生参加竞技比赛。现要求在报名的n名学生中挑选出m名身高大于等于175cm的学生，被挑选出的学生两两组队，且队内两名成员的体重之和不能超过175公斤。

编写VB程序，实现上述挑选、组队功能。运行程序，在列表框List1中显示m名身高大于等于175cm的学生信息，且根据体重数值降序排序。单击“组队”按钮，在符合条件的情况下尽可能多的两两组队，并将组队结果显示在列表框List2中。程序运行界面如图所示，实现上述功能的VB程序如下。

请回答下列问题：

相关试卷

公司介绍

服务介绍

帮助中心