- 二一组卷

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

浙江省A9协作体2023-2024学年高三上学期信息技术暑假返校联考试卷

张三同学收集了一个地区 8 月各类共享单车的骑行数据记录，每天的用户数据存储于“shared bikes.xlsx ”文件中，不考虑跨天数据。数据格式如图 a 所示，请回答下列问题：

（1）、cal 函数功能为：读取骑行时间的小时和分钟部分，转换为分钟格式并返回，如“2022/8/20 6:57 ”获取“6:57 ”转换为 417（6*60+57=417），代码如下。请在划线处填入合适的代码。

def cal(s) :

n = len (s)

for i in range(n):

if s[i] == " " : #如果为空格字符

p = i

if s[i] == " :" :

q = i

t = + int(s[q+1:])

return t

（2）、统计本月各类型单车的每天平均骑行时长，并绘制柱形图，代码如下，绘制的图表图 b 所示，请在划线处填入合适的代码。

图 b

import pandas as pd

import matplotlib.pyplot as plt

df = pd.read_excel("shared bikes.xlsx")

bike = [ "哈罗单车","摩拜单车",

"美团单车","青桔单车"]

sm = [0] * 4

avg = [0] * 4

days = 31

for i in :

t = cal(df.at[i, "结束时间"]) - cal(df.at[i, "开始时间"])

for j in range(4):

if df.at[i, "App 类型"] == bike[j] :

break

for i in range(4):

avg [i] = sm[i] / days

plt.figure(fig size = (12,4))

x = bike

y =

plt.bar (x,y)

plt.show()

（3）、统计本月各类型单车的骑行次数，下列加框处代码有错，可以改正为（选填字母：A .max()/B .min ()/C .mean ()/D .count()）

n = df.groupby ("App 类型", as_index = True).用户编号.

举一反三

【加试题】居民身份证号码由十七位数字本体码和一位数字校验码组成。从左至右依次为：六位地址码，八位出生日期码，三位顺序码和一位校验码。校验码生成步骤如下：

①把身份证前 17 位的每个数字和加权系数相乘并累加求和。身份证号码前17位数的加权系数见下表：

身份证号位数	1	2	3	4	5	6	7	8	9	10	11	12	13	14	15	16	17
加权系数	7	9	10	5	8	4	2	1	6	3	7	9	10	5	8	4	2

②根据步骤①求得的和值，与11做取余运算得到序号，再根据序号提取校验码字符。如：所得和值除以11的余数为“0”，则对应的校验码为“1”。如下表：

序号	0	1	2	3	4	5	6	7	8	9	10
校验码	1	0	X	9	8	7	6	5	4	3	2

若步骤②中提取的校验码和身份证号最后一位相同，则校验通过，否则校验失败。

某人根据上述原理设计了一个身份证校验VB程序，功能如下：程序启动时从数据库student.accdb中读入全校学生身份证数据(全校共15个班级），并在列表框List1中显示，单击“校验”按钮Command1，在列表框List2中输出各班身份证号出错学生的信息和出错人数，若某班无出错学生，则不显示。程序界面如图所示。实现上述功能的VB程序如下，请回答下列问题：

素数：只能被1和它本身整除的自然数。要求编写VB程序找出任意两个整数之间中所有的素数及个数，程序运行界面如下图所示。

请根据算法将下列程序补充完整。

Function prime(a As Integer)As Boolean

Dim j As Integer

prime=True

j=2

Do While prime And j<=a\2

If a Mod j=0 Then

prime=False

Exit Do

End If

{#blank#}1{#/blank#}

Loop

End Function

Private Sub Command1_Click( )

Dim i As Integer, a As Integer, b As Integer

Dim count As Integer

a=Val(Text1.Text)

b=Val(Text2.Text)

For i=a To b

If{#blank#}2{#/blank#}=True Then

List1.AddItem Str(i)

count=count + 1

End If

Next i

Label1.Caption=“素数共有” + Str(count) + “个!”

End Sub

小明编写统计字符串中出现最多的字母和数字的程序。程序运行如下:在文本框Text1中输入一个仅包含字母和数字的字符串。单击按钮Command1后，在标签Label1上显示出现最多的数字字符，在标签Label2上显示出现最多的字母字符(字母不区分大小写，例如字母G和g统计在一起)。程序运行界面如图所示。

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

Private Sub Command1_Click()

Dim a(1 To 10) As Integer ‘存储0~9每个数字出现的次数

Dim b(1 To 26) As Integer ‘存储a~z每个字母出现的次数

Dim zf As String, x As String, p As Integer

Dim maxa As Integer, maxb As Integer

{#blank#}1{#/blank#}

For i = 1 To Len(zf)

x = Mid(zf, i, 1)

If pd(x) = 1 Then

p = Asc(x) - Asc(“0”) + 1

a(p) = a(p) + 1

{#blank#}2{#/blank#}

p = Asc(x) - Asc(“A”) + 1

b(p) = b(p) + 1

Else

p = Asc(x) - Asc(“a”) + 1

b(p) = b(p) + 1

End If

Next i

k = a(1):maxa = 1

For i = 2 To 10

If a(i) > k Then k = a(i):maxa = i

Next i

k = b(1) :maxb = 1

For i = 2 To 26

If{#blank#}3{#/blank#}Then k = b(i) :maxb = i

Next i

Label1.Caption =“出现最多的数字是” + Chr(maxa+ Asc(“0”)-1)

Label2.Caption = “出现最多的字母是” + Chr(maxb + Asc(“A”)-1)

End Sub

Function pd(ch As String) As Integer ’函数用于判断每个字符类型

If ch >= “0” And ch <= “9” Then pd = 2

If ch >= “A” And ch <= “Z” Then pd = 2

If ch >= “a” And ch <= “z” Then pd = 3

End Function

王宏同学是数学学习小组的组长，他想将小组四名同学在本学期前六次数学单元测验的成绩做一个图表，了解大家的学习情况是否有进步。他把四名同学的成绩都输入到Excel工作表中。根据王宏同学的想法，可以更为直观地了解大家学习情况的图表是（）

以下程序中的函数CircleArea( )实现的功能是{#blank#}1{#/blank#}。

import math

def CircleArea(r):

area=math.pi *r *r

return area

某工厂生产的产品包含n个（编号为0~n-1）组件，其组装可由多名工人共同协助完成。组装时每个组件都不可遗漏并能按序完成，有些组件存在前置组件（以下简称“前置”），即安装有先后顺序。例如，某产品有6个组件，如下图a所示，组件3的前置是组件1和组件2，即安装组件3需要在组件1和组件2完成之后。若0~5号组件的组装所需单位时间分别为2，5，2，4，3，5，则在工人数量不限的情况下，所有组件安装完成最短需要14个单位时间。

图a

为了梳理产品组件的组装顺序，并计算所有组件安装完成所需的最短时间，编写程序模拟组装过程：先同时组装前置总数为0的组件，完成后更新每个组件的前置总数，再重复以上步骤，直至所有组件安装完毕，程序运行结果如下图b所示，请回答下列问题:

图b

相关试卷

公司介绍

服务介绍

帮助中心