- 二一组卷

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

浙江省高中信息技术算法及其程序实现单元检测

插数。输入一个整数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 ① 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 ② Then

i=n+1

Else

③

Do While x<a(i)

i=i+1

Loop

End if

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

Text3 Text=Str(i)

End Sub

举一反三

下列程序段实现对num数组进行排序，并将排序结果输出。

Private Sub Command1Click()

Dim num(0 To 5) As Integer

Dim i As Integer, j As Integer

Dim t As Integer

num(0) = 4: num(1) = 7: num(2) = 2: num(3) = 0: num(4) = 3: num(5) = 9

i = 0: j = 1: t = 0

For i = 1 To 5 Step 1

For j = i + 1 To 4 Step 1

If num(i) > num(j) Then

t = num(i)

num(i) = num(j)

num(j) = t

End If

Next j

Next i

For i = 1 To 5

List1.AddItem num(i)

Next i

End Sub

【加试题】有如下程序段：

Const n=5

For i=1 To 2

For j=n-1 To i step-1

If a(j)>a(j+1) Then

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

End If

Next j

Next i

数组元素a(1)到a(5)的值依次为“33，24，45，16，77”，经过该程序段“加工”后，数组元素a(1)到a(5)的值依次为（）

【加试题】n堆金币，把两堆金币合并到一起，n堆金币经过n-1次合并之后就只剩下一堆了。如何消耗最少的体力，把这n堆金币合并成一堆？合并所消耗的体力等于每次合并两堆金币的重量之和。比如，n=3时表示共有3堆金币，每堆重量分别是2、1、9.一种合并方案是2和9合并，新堆重量是11，消耗体力为11；接着11和1合并，新堆重量是12，消耗体力为12，因此总消耗体力是11+12=23。另一种方案是：1和2合并，新堆重量是3，消耗体力为3；接着3和9合并，新堆重量是12，消耗体力为12，因此总消耗体力是3+12=15。可以证明这就是最少消耗体力。

小张经分析，每次n堆金币如果都是从小到大，将前两堆合并成新一堆，然后，继续进行从小到大排序，如此合并成最后一堆，此时消耗体力最少，为此他编写了一个解决上述问题，求最少体力的VB程序，功能如下：窗体加载时，自动读取n堆金币的数据，依次存储在数组元素a(1)、a(2)、a(3)…中，金币堆数存储在变量n中，n堆金币的重量数据显示在列表框List1中。单击“求解”按钮Command1，程序对n堆金币进行合并处理，消耗最少的体力显示在文本框Text1中。程序运行界面如图所示。

学校需要统计学生的作业完成数，需要将学生的完成数按从高到低显示，下列程序模拟该信息处理过程，程序在数据库stud中找到的学生信息（编号和完成次数），并将所有学生按照完成数从高到低显示。先将所有学生的编号和完成次数从数据库stud的info表中ID和finshed两字段中取出分别保存在数组a和数组b中，第i个学生的编号保存在a(i)中，对应的作业完成次数保存在b(i)中。

数据库文件“stud. accdb”信息如图所示。

程序界面如图所示，左边列表框List1中显示所有学生信息（包括编号和完成次数），单击“排序”按钮（Command），所有编号按照作业完成次数从高到低显示在列表框List2中。

代码如下：

Dim conn As New ADODB. Connection

Dim rs As New ADODB. Recordset

Dim n As Integer

Dim a(500)As String

Dim b(500)As Integer

Private Sub Fom Load()

Dim i As Integer

conn. Connection String="Provider=Mi-crosoft. AC

A.OLEDB. 12.0；DATA Source="& App. Path &"\stud. accdb"

conn Open

Set rs. Active Connection=conn

rs. Open "Select*From info"

n=0

Do While not rs.EOF '到记录集最后一条记录后退出循环

n=n+1

a(n)=rs. fields("id")

b(n)=rs. fields("finshed")

rs. MoveNext '移动到下一条记录

Loop

For i=1 To n

List1. AddItem a(i)+" "+Str(b(i))

Next i

rs. Close

conn. Close

Set rs= Nothing

Set conn= Nothing

End sub

Private Sub Command1_Click()

Dim i As Integer, j As Integer, t1 As Integer, t2 As String, k As Integer

For i=1 To n-1 'n表示学生总数

k=i 'k保存第i大的数，一开始假定是a(i)

For j=i+1 To n

If b(k)<b(j) Then k=j '比较完成数

①

If ② Then

t1=b(i): b(i)=b(k): b(k)=t1 '交换完成次数

t2=a(i): a(i)=a(k): a(k)=t2 '交换编号

End If

Next j

Next i

For i=1 To n '在列表框List2中输出排序结果

Listt2. Addltem a(i)+" "+Str(b(i))

Next i

End sub

如下VB程序段实现对数组元素a(1)到a(n)从小到大排序。

For i = 1 To n -1

①

For j = i To n-1

If a(j) < a(k) Then k = j卷（信息技术）（一）第4页（共 8 页）

Next j

s = a(i): a(i) = a(k): a(k) = s

Next i

则代码①中的语句为（）

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

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

相关试卷

公司介绍

服务介绍

帮助中心