- 二一组卷

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

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

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

举一反三

【加试题】一组数据 22,94,17,125,63，若采用冒泡排序算法对其进行升序排列，则需要经历几遍加工？第一次加工交换多少次？（）

有如下VB程序段:

s=″72186345945″:c=0

For i=1 To 6

a(i)=Mid(s,i,i)

Next i

For i=1 To 4 Step 2

k=i

For j=i+2 To 6 Step 2

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

Next j

If k<>i Then

t=a(i):a(i)=a(k):a(k)=t:c=c+1

End If

Next i

Text1.Text=Str(c)

该程序段运行后,Text1中显示的内容是（）

有一组数，依次为3、2、8、5、9，若采用选择排序算法对其进行从大到小排序，其中排序方向为从前向后，则第二趟的排序结果是:（）

【加试题】以下程序段对数组a 中的8个数据a(1)到a(8)进行加工。

i = 1 : k = 0

Do While i<= 3

For j = 8 To i + 1 Step -1

If a(j) >= a(j - 1) Then

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

k = k + 1

End If

Next j

i = i + 1

Loop

若数组a中的数据依次为“24，29，31，24，12，10，12，25”，则加工结束后，变量k的值为（）

插数。输入一个整数x，要将x插入到n(n<50)个有序(按降序排列)数据中，并使数据序列仍保持有序，试求出x应插入的位置。界面设计如图所示。

程序说明：

⑴其中n由文本框Text1中数据得到，x由文本框Text2中数据得到，插入位置显示在文本框Text3中。

⑵其中n个有序数据将通过随机函数Rnd产生，并对n个数进行降序排序后存入数组a中，同时显示在列表框List1中。

为了实现这一目标，完善下面的VB程序，在横线处填入合适的语句或表达式，完成程序设计。

Private Sub Command1_Click()

Dim a(1 To 50)As Integer

Dim n As Integer, i As Integer

Dim x As Integer, temp As Integer

Randomize

List1.Clear

n=Val(Text1.Text)

x=Val(Text2.Text)

‘随机产生n个数,并存放至a数组中

For i=1 To n

a(i)=Rnd*200+1

Next i

‘将数组a中的数按降序排序

For i=2 To n

For j=n To i Step-1

If ①{#blank#}1{#/blank#} Then

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

Next j

Next i

‘将排序后的数组元素显示在列表框List1中

For i=1 To n

List1.AddItem Str(a(i))

Next i

‘插入操作

If ②{#blank#}2{#/blank#} Then

i=n+1

Else

③{#blank#}3{#/blank#}

Do While x<a(i)

i=i+1

Loop

End if

‘在文本框Text3中显示插入位置

Text3 Text=Str(i)

End Sub

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

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

相关试卷

公司介绍

服务介绍

帮助中心