2019-2020学年浙江省稽阳联谊学校高三(上)月考信息技术试卷(11月份)
发布:2024/4/20 14:35:0
一、选择题(本大题共12小题,每小题0分,共24分。在每小题给出的四个选项中,只有一个符合题目要求)
-
1.下列有关信息和信息编码的说法,正确的是( )
组卷:6引用:2难度:0.6 -
2.下列关于网页和网络协议的说法,正确的是( )
组卷:0引用:1难度:0.6 -
3.下列应用中,均体现了人工智能技术的是( )
①某手机依设定的时间自动开启夜览模式
②通过扫描某商品的二维码获得价格
③用指纹锁功能打开手机
④某主题餐馆使用机器人代替人工送餐
⑤使用手机拍照功能获取图像组卷:1引用:2难度:0.6 -
4.利用软件UltraEdit观察字符内码,界面如图所示,下列说法正确的是( )
组卷:2引用:1难度:0.5 -
5.用Photoshop软件制作“陌上花开”作品,部分界面如图所示。当前状态下,下列说法正确的是( )
组卷:0引用:1难度:0.4
二、非选择题(本大题共4小题,其中4分,8分,7分,第16小题7分,共26分。)
-
15.大数据是当今最热门的领域之一,小王同学利用VB设计了一个模拟大数据应用的程序。有10种商品,数组a存储用户是否购买了各种商品;某个用户购买时,商品两两之间是否一起购买用另一个数组dsj来记录;各数组元素的解释如表所示。
数组元素 数组元素的含义 a(i) a(1)到a(10)依次存储1号顾客购买商品1~商品10的记录;
a(11)至a(20)依次存储号2顾客购买商品1~商品10的记录;依次类推。
数组a的某个元素的值为1,则表示某位顾客购买了某种商品,若为0则表示没有购买该种商品。如a(6)=1表示1号顾客购买了商品6,a(6)=0表示未购买。b(i) dsj(1)~dsj(9)依次存储商品1与商品2~商品10的关联次数;
dsj(10)~dsj(17)依次存储商品2与商品3~商品10的关联次数:依次类推。
如dsj(5)=2表示商品1与商品6被同时购买过2次;
如dsj(45)=4表示商品9与商品10被同时购买过4次。
数组dsj中,若dsj(45)的值最大,则表示商品9和商品10的关联次数最多。
Private Sub Cmd1_Click ____
Dim a(1To200)As Integer'各个用户原始的购买记录
Dim dsj (1To45)As Integer'统计商品之间的关联次数
Dim i As Integer,t As Integer,nc As Integer,j As Integer,max As Integer
'数组a读入数据并在列表框分行输出,代码略
For i=1 To 20'20个用户
t=1
For j=1 To 9'10个商品,共45种组合
For k=j+1 To 10
m=(i-1)*10
a(j)*a
If Then dsj(t)=dsj(t)+1
①
Next k
Next j
Next i
max=0
For i=1 To 45
If ②Then
max=dsj(i)
maxi=i
End If
Next i
t=9:nc=1
Do While maxi>t
③
t=t-1
nc=nc+1
Loop
Text1.Text=“关联最多的是商品“+Str(nc)+Str(maxi+nc)+“:“+Str(max)+“次“
End Sub
(1)将按钮上的文字“统计”修改为“计算”,可在Form_Load过程中使用
A.Cmd1.Caption=“计算”B.Cmd1_Click=“计算”C.Command1.Text=“计算”
(2)加框处代码有错,请改正;
改正:
(3)在程序横线处填入合适代码,使程序完整。
①
②
③组卷:2引用:2难度:0.3 -
16.有多人在不同楼层要乘坐同一部电梯,所有人都是去往更高楼层,电梯初始位置为第一批用户出发的楼层位置。电梯在运行时,上升一层需耗时3秒,在某一层停留时(含电梯初始位置和电梯结束位置),不论有多少人进出都算8秒。小马同学利用上述算法编写了一个VB程序,在列表框list1中显示所有人的出发与到达楼层,按照出发楼层升序(出发楼层相同按到达楼层升序)排序,在列表框list2中输出排序后结果,最后在文本框Text1中输出电梯本次运行的总时间。程序运行界面如图所示,回答下列问题:
(1)若有5批用户出发与到达楼层分别是“10-25、5-15、15-20、15-30、5-10”,按照上述电梯运行规则,则电梯本次运行的总时间为
(2)给横线处填上合适代码,使程序完整。
Dim a(1To10)As Integer,b(1To10)As Integer
Private Sub Command1_Click ____
Dim i As Integer,time As Integer,k As Integer
Dim c(1To20)As Integer,nc As Integer
c(1)=a(1):nc=1
For i=1 To 9'删除起点重复数据后添加到数组c
If a(i)<>a(i+1)Then
nc=nc+1
①
EndIf
Next i
Fori=1To10'删除终点重复数据后添加到数组c
k=nc
Do While b(i)<c(k)
k=k-1
Loop
lf ②
For j=nc To k+1 Step-1
c(j+1)=cj)
Next j
nc=nc+1
c(j+1)=b(i)
End If
Next i
time=(c(nc)-c(1))*3+nc*8
Text1.Text=“总时间--“+Str(time)+“秒”
End Sub
Private Sub Form_Load
'生成10批人的起止楼层,分别给数组a和b,并在列表框list1输出,代码略.
For i=1 To 9
For j=10 To i+1 Step-1
If a(j)<a(j-1)Or③
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
For i=1 To 10
List2.AddItem Str(a(i))+Str(b(i))
Next i
End Sub组卷:0引用:1难度:0.3