2021年浙江省温州市文成县武阳书院高考信息技术仿真模拟试卷
发布:2024/4/20 14:35:0
一、选择题(本大题共11小题,每小题0分,共24分。每小题列出的四个备选项中只有一个是符合題目要求的,不选、多选、错选均不得分)
-
1.下列关于信息特征的说法,错误的是( )
组卷:9引用:4难度:0.7 -
2.下列有关网站和网页的说法中,正确的是( )
组卷:1引用:1难度:0.7 -
3.下列数中,转化为二进制数后含有的“0”和“1”的个数相同的是( )
组卷:4引用:1难度:0.6 -
4.使用Photoshop软件制作“端午”作品,部分界面如图所示。下列说法正确的是( )
组卷:6引用:2难度:0.3 -
5.使用GoldWave软件编辑某音频文件,选中一段音频后的部分界面如图所示。
执行“剪裁”命令后再插入30秒静音,直接保存,该音频文件存储容量约为( )组卷:2引用:1难度:0.6
二、非选择题(本大题共4小题,其中第13小题4分,第14小题8分,第15小题7分,第16小题7分,共26分)
-
14.AB两个篮球队进行了多场比赛,现在要统计比分并确定获胜球队。计分规则为胜场多的队伍获胜,若胜场相同,则计算累计小分(小分=本队得分-失分),小分多获胜,若还是相同则算平局。
小蓝同学根据上述算法编写了一个VB程序实现比赛结果统计。每场比分记录在文本框Text1中,单击“统计”按钮Command1,把两队各场的比分按A队小分降序显示在列表框List1输出,同时在文本框Text2输出最终结果。部分程序界面如图所示,VB代码如下,回答下列问题:
Private Sub Command1_Click ( )
Dim a(1 To 20)As Integer,b(1 To 20)As Integer
Dim i As Integer,j As Integer,t As Integer,p As Integer,k As Integer,xiaofen As Integer
'从文本框读取比分,场次k,AB两队各场的得分分别记录在数组a、b,代码略
For i=1 To k–1'对比分数据按A队小分降序排序
For j=1 To①______
If ②______Then
t=a(j):a(j)=a(j+1):a(j+1)=t
t=b(j):b(j)=b(j+1):b(j+1)=t
End If
Next j
Next i
p=0:xiaofen=0
For i=1 To k'统计小分并输出比分
If a(i)>b(i)Then ③______
xiaofen=xiaofen+a(i)-b(i)
List1.AddItem Str(a(i))+“:“+Str(b(i))
Next i
If p*2>k Or k=p*2 And xiaofen>0 Then
Text2.Text=“A队获胜“
ElseIf p<=k-p Then
Text2.Text=“B队获胜“
Else
Text2.Text=“两队战平了“
End If
End Sub
(1)若希望程序在运行时列表框List1清空,则应该在代码中添加语句
(2)在程序画线处填入合适代码,使程序完整。
①
②
③
(3)加框处代码有错,请改正。
改正:组卷:1引用:2难度:0.6 -
15.酒店房间管理问题:某酒店房间(房间数小于1000)编号按1,2..连续编号,客房经理对没有人住的房间使用如下方法来登记管理。连续的空房间,登记第一个房间的编号和连续的空房间数,比如空房间1,2,6,7,8,10,则登记3条记录,分别为1_2,6_ 3,10_1。某旅客如果退房,需要把这个房间号也登记进去,共有4种情况需要处理:
(1)上靠:若退的房间号为3,则原来登记的记录变为1_3,6_3,10_1;
(2)下靠:若退的房间号为5,则原来登记的记录变为1_2,5_4,10_1;
(3)上下靠:若退的房间号为9,则原来登记的记录变为1_2,6_5;
(4)上下都不靠:若退的房间号为4,则原来登记的记录变为1_2,4_1,6_3,10_1
据上述规则,小明编写了相应的VB程序,程序启动时读入空房间数据,并在列表框Listl中显示,在文本框Text1l中输入退房号,单击“退房”按钮后更新列表框Listl中的数据。程序界面如图所示,请回答下列问题:
(1)当前登记的记录有3条,分别是2_3,6_2,9_4。某旅客退掉8号房间,则登记的记录将变为
(2)实现上述VB程序如下,请在横线处填入合适的代码。
Dim a(0 To 10)As Integer‘保存第i条记录的房间号
Dim b(0 To 10)As Integer‘保存第i条记录的房间数
Dim sp As Integer
Private Sub Form_load ( )
‘程序启动时从数据库读取原始k条记录,依次存入a(1),b(1),a(2),b(2),...a(k),b(k)代码略
a(0)=0:b(0)=0:sp=k+1:a(sp)=0:b(sp)=0
End sub
Private Sub Command1_Click ( )
Dim i As Integer,j As Integer
c=Val(Text1.Text)
i=1
Do While a(i)<c
i=i+1
Loop
i=i-1
'处理退房登记问题
If a(i)+b(i)=c Then
If a(i+1)=c+1 Then‘处理第3种情况
For j=i+1 To sp-1
a(j)=a(j+1):b(j)=b(j+1)
Next j
sp=sp-1
Else‘处理第1种情况
b(i)=b(i)+1
End If
ElseIf c+1=a(i+1)Then‘处理第2种情况
a(i+1)=c:b(i+1)=b(i+1)+1
Else
For j=
a(j)=a(j-1):b(j)=b(j-1)
Next j
a(i+1)=c:b(i+1)=1:
End If
List1.Clear
For i=1 To sp-1
List1.AddItem““&Str(i) &Str(a(i)) &Str(b(i))
Next i
End Sub组卷:0引用:1难度:0.6