2020年浙江省金华十校高考信息技术模拟试卷(4月份)
发布:2024/4/20 14:35:0
一、选择题(本大题共12小题,每小题0分共24分。每小题列出的四个备选项中只有一个是符合题目要求的,不选多选、错选均不得分)
-
1.下列关于信息和信息技术的说法,不正确的是( )
组卷:2引用:1难度:0.5 -
2.下列关于网络和网页的相关说法,正确的是( )
组卷:1引用:3难度:0.6 -
3.小明用Word 软件编辑了一篇科学小论文并发给老师修改,下列描述正确的是( )
组卷:0引用:1难度:0.5 -
4.某员工管理系统使用 Access建数据表,部分界面如图所示。下列说法不正确的是( )
组卷:1引用:1难度:0.6 -
5.使用GoldWave软件处理音频文件,选中其中一段音频后的部分界面如图所示:
下列说法正确的是( )组卷:0引用:1难度:0.5
二、非选择题(本大题共4小题,其中第13小题4分,第14小题8分,第15小题7分,第16小题7分,共26分)
-
15.医疗物资打包。抗疫志愿队接到一项任务要将N份医疗物资打包成1个大包裹,每份物资的重量为D(1)、D(2)、…、D(n)。由于设备原因,每次只能将2个包裹分装成1份。由于每次打包都需要移动物资,需要消耗体力。消耗的体力值为打包的医疗物资的重量之和。
例如将9、9、6的三份物资打包时,先将9和6的两份打包,消耗体力15,再将15和9两个包裹打包为1个消耗体力24,于是总的体力消耗值为39
经过志愿队众人分析,每次将现存包裹中最轻的两个合并,消耗的总体力会最小。
小风同学根据这一算法策略,编写VB程序用于计算n份包裹分装需要的最少体力值
(1)要使得程序的标题栏中显示”医疗物资打包,可修改窗体的
(2)实现上述功能的VB程序如下,请在横线处填入合适的代码。
①
②
③
(3)程序中加框处代码有错,请改正。
Dim(1 To 100)As Integer
Dim n As Integer
Private Sub Form_Load ____
’读入n的值和n个包裹的重量依次存入d(1).d(n)
End Sub
Private Sub Command1 _Click ____
For i=1 To n
Call px(i)
Next i
ans=0
Do While①
d(n-1)=d(n)+d(n-1)
n=n-1
ans-ans+d(n)+d (n-1 )
②
Loop
Text1.text=ans
End Sub
Sub px(ByVal n As Integer)
For i=n To 2 Step-1
If ③
tmp=d(i):d(i)=d(i-1):d(i-1)=tmp
End If
Next i
End Sub组卷:1引用:1难度:0.3 -
16.积分循环赛是棋类比赛中经常使用的赛制之一它能有效地避免种子选手一开始就交锋、拼掉。若有n(n一定为偶数)支队伍进行r轮比赛采用积分循环赛,则比赛规则如下:
①第一轮比赛前,先给各队伍随机排名,设定队伍编号:排名i的编号为i
②第一轮比赛:第1名和第2名、第3名和第4名、…、第n-1名和第n名,各进行一场比赛。每场比赛胜者得1分,负者得0分(已知所有队伍的实力值不同,且实力值高的队伍一定可以打败实力值低的队伍)
③根据比赛得到的分数,按照分数从高到低排名,若分数相同则编号小的队伍排在前面。
④接下去的r-1轮比赛均采用②的规则进行比赛,且每比完一场比赛都按照③的规则对队伍顺序排名,排名的结果是下一轮比赛队伍的顺序。
程序界面如下图。
(1)若有4支编号依次为“1,2,3,4”队伍进行2轮比赛,且各支队伍实力值依次为“12,9,16,15”,则2轮比赛后队伍“1,2,3,4”的分数依次是
(2)请在横线处完成代码填空。
Dim a(1 To 100)Integer,b(1 To 100)As Integer
Dim num(1 To 100)As Integer,win(1 To 100)As Integer,lose(1 To 100)As Integer
Dim win_num As Integer,lose_num As Integer
Dim As Integer,r As Integer,s1 As String,As String,53 As String
Private Sub Command1_Click ____
读取已打乱的队伍信息,编号、实力分别存在数组num和数组a中,且将数组b置0
代码略
End Sub
Private Sub Command2_Click ____
Dim i As Integer,j As Integer,t As Integer
ori=1 To Step2 先比第一轮
If a(i)>a(+1)Then b(i)=1 Else ____
Next i
For i=1Ton-1 将第一轮结果排序
For j=1 Ton-i
If cmp(
t=num(j):num(j)=num(j+1):num(j+1)=t End If
Next j
Next i
For i=1 To r-1'比剩下的 r-1 轮比赛
win_num=0:lose_num=0
For j=1 To n Step 2
win_num=win_num+1:lose_num=lose_num+1
If a(num(j))>a(num(j+1)) Then
b(num(j))=b(num(j))+1
win(win_num)=num(j):lose(lose_num)=num(j+1)
Else
b(num(j+1))=b(num(j+1))+1
win(win_num)=num(j+1):lose(lose_num)=num(j)
End If
Next j
Call merge'调用过程,合并胜利组和失败组Next i
s1=“编号:“:s2=“分数:“
For i=1 To n
s1=s1+format(num(i))
s2=s2+format(
Next i
List2.AddItem s1 List2.AddItem s2
End Sub
Sub merge
'将胜利组与失败组按照分数合并,生成下一轮比赛顺序并存回数组 num 中
'代码略End Sub
Function format(x As Integer) As String'格式化字符串函数'将输入数字格式化为 3 个字符长度,代码略
End Function
Function cmp(i As Integer,j As Integer) As Boolean'比较函数cmp=False
If b(i)=b(j) Then
If i<j Then cmp=True
ElseIf b(i)>b(j) Then cmp=True
End If
End Function组卷:0引用:1难度:0.3