2020-2021学年浙江省稽阳联谊学校高三(下)月考信息技术试卷(4月份)
发布:2024/4/20 14:35:0
一、选择题(本大题共12小题,每小题2分,共24分。在每小题给出的四个选项中,只有一个符合题目要求)
-
1.下列关于信息和信息技术的描述,正确的是( )
组卷:15引用:1难度:0.7 -
2.下列有关网页和电子邮件的说法,正确的是( )
组卷:2引用:1难度:0.7 -
3.用Access软件设计一个数据表,存储下表所示的用户数据。
会员编号 姓名 联系方式 注册日期 性别 余额 1 徐文杰 17886262123 2021-1-1 男 202.30 2 张乐 2021-1-5 男 15.86 3 王燕飞 15957554321 2021-2-3 女 500.00 组卷:2引用:1难度:0.7 -
4.利用软件UltraEdit观察字符内码,界面如图所示,下列说法正确的是( )
组卷:3引用:1难度:0.4 -
5.用photoshop软件制作“建党百年”作品,如图所示。当前状态下,下列说法正确的是( )
组卷:1引用:1难度:0.6
二、非选择题(本大题共4小题,其中第13题4分,第14题8分,第15题7分,第16小题7分,共26分。)
-
15.某店铺销售运动类商品,根据销售单售卖商品,然后更新库存和统计销售额。小商同学根据上述算法设计VB程序,读入销售清单数据(销售清单存在数组sale,其中奇数位是商品名,偶数位是购买数量),单击“计算”按钮command1,若库存充足则销售成功,否则该单号作废,最后在列表框list1降序输出各商品剩余库存和总销售额。程序界面和代码如下,回答下列问题:
Dim goods(1 To 11)As String‘商品名,共11种
Dim num(1 To 11)As Integer‘库存数
Dim prize(1 To 11)As Integer‘商品单价
Dim sale(1 To 160)As String‘共80个销售单号
Private Sub Command1_Click ( )
Dim i As Integer,j As Integer,t2 As Integer
Dim total As Integer,s as string,t1 As String
total=0
For i=1 To 80
For j=1 To 11
IfThen Exit For
Next j
If
num(j)=num(j)-Val(sale(i*2))
total=total+Val(sale(i*2))*prize(j)
For k=1 To 10
If
t1=goods(k):goods(k)=goods(k+1):goods(k+1)=t1
t2=num(k):num(k)=num(k+1):num(k+1)=t2
t2=prize(k):prize(k)=prize(k+1):prize(k+1)=t2
End If
Next k
Else
List1.AddItem Str(i)+“号单库存不足“
End If
Next i
‘在列表框list1输出各商品剩余库存,代码略
List1.AddItem“总销售额“+
End Sub
Private Sub Form_Load
‘读入数据,存在各个数组,代码略
End Sub
(1)根据代码和程序界面,本程序没有哪类对象
(2)加框处代码有错,请改正
(3)在程序横线处填入合适代码,使程序完整。组卷:1引用:1难度:0.4 -
16.有60个人要组建一个聚会,每人的喜好是一个数值,为提升聚会效果,会务组要把参会人员进行分组,分组原则是:
(1)每组不超过8人
(2)组内新增人员的喜好值必须与现有组内人员的平均喜好值相差在5以内
(3)若新增人员无法加入现有小组,则被分入新组建小组
小V同学根据上述算法设计编写了VB程序,界面如图所示,单击“分组”按钮后,在列表框list1输出分组结果,每组一行,回答下列问题:
Dim a(1 To 60)As Integer'各人的喜好值
Private Sub Command1_Click ( )
Dim i As Integer,j As Integer,c As Integer,s as String
Dim b(1 To 480)As Integer'分组后喜好值
Dim ave(1 To 60)As Integer,num(1 To 60)As Integer
For i=1 To 60‘预设60个分组
num(i)=1
ave(i)=0
Next i
c=1:ave(1)=a(1):b(1)=a(1)
For i=2 To 60
For j=1 To c
If Abs(a(i)-ave(j))<=5 And num(j)<8 Then
ave(j)=
num(j)=num(j)+1
b(j*8-8+num(j))=a(i)
Exit For
End If
Next j
If
b(c*8+1)=a(i)
ave(j)=a(i)
c=c+1
End If
Next i
s=““
For i=1 To c
For j=1 To
s=s+Str(b((i-1)*8+j))
Next j
List1.AddItem s
s=““
Next i
End Sub
Private Sub Form_Load
‘生成60个原始数据,存入数组a,数组b各元素初始化为0,代码略
End Sub
(1)如图所示,当前数据已被分组,若再新增一个数“64”,会被分在第
(2)在程序横线处填入合适代码,使程序完整。组卷:1引用:1难度:0.3