2019-2020学年浙江省绍兴市诸暨中学高二（上）期中信息技术试卷
发布：2024/4/20 14:35:0
一、选择题（共12小题，每小题2分，满分24分）
-
1．如图所示程序界面中共有几类对象（ ）
组卷：4引用：1难度：0.7 -
2．一个Visual Basic工程的部分设计界面如图所示，下列选项中错误的是（ ）
组卷：2引用：1难度：0.2 -
3．第一题图中为使窗体运行时显示标题“四则运算”，可在（ ）事件过程中添加语句：Form1．caption=”四则运算”
组卷：7引用：1难度：0.5 -
4．某算法的部分流程图如图所示。执行这部分流程后，输出ans的值是（ ）
组卷：2引用：2难度：0.6 -
5．下列表达式的运算结果与其他选项不同的是（ ）
组卷：4引用：1难度：0.5
二、填空题（共4小题，每小题6分，满分26分）
-
15．某自助无人图书馆实现机器人从书架上取书还书，以下程序模拟还书过程中机器人查找归还书籍插入位置：书架上已有书籍已按书名拼音简称升序排列，当用户还书时，机器人扫描书籍条码获得书名简称（该过程模拟程序中由用户输入文本框text1），查找书架上现有书籍，若找到与归还书籍相同的书，就把归还的书插入该位置，若书架上没有归还的书籍，就把归还的书插入合适的位置使书架上的书名简称还是升序排列。
（1）按示例图中列表框中已有图书，若要再还一本“bc”，该书蒋放入第个位置
（2）完成代码填空
Dim book（1 To 10）As String'存放书名简称，窗体加载时随机生存保存
Private Sub Command1_Click
Dim key As String
key=Text1．Text
i=1：j=10
Do While i＜=j
m=（i+j）\2
If book（m）=key Then exit do
IfThen j=m-1 Else i=m+1
Loop
IfThen
Label3．Caption=″放入书架第″+Str（m）+″个位置“
Else
Label3．Caption=″放入书架第″++″个位置″
End If
End Sub组卷：0引用：1难度：0.6 -
16．双十一刚过快递量激增，某电商平台启用无人机进行快递配送，快递配送时，首先根据快递仓库与客户间距离计算出距离时间，快递被配送到客户手中的实际时间除距离时间外还要加上客户等待无人机完成前面先配送的订单的时间。等待时间是指排在该客户快递之前的所有客户的距离时间之和。如果某客户的等待时间超过他的距离时间的3倍，他就会不愉快，反之是愉快的。已知每个客户的距离时间，请确定如何分配无人机的投递任务才能使愉快的人数最多，并输出最多的人数。例如：10个快递的距离时间如下表所示，则最多有8个客户是愉快的。
（1）代码“Private Sub Commandl_Click （ ）”中的Commandl_Click （ ）是快递编号 1 2 3 4 5 6 7 8 9 10 距离时间 3 2 5 5 6 7 1 8 1 3 拿到快递是否愉快 是 是 是 是 否 是 是 否 是 是 （单选，填字母：A．对象名/B．事件名/C．事件处理过程名）
（2）请在横线处填入合适代码。
（3）程序代码中，加框处代码有错，请改正。
Const n=10
Dim a（1 To n） As Integer
Private Sub Command1_Click （ ）
Dim i As Integer,a As Integer,ans As Integer,t As Integer
，读取每个快递的距离时间，依次存储在数组a中，代码略
For i=1 To n-1
For j=n To i+1 Step-1
IfThen k=j
Next j
If a（i）＜＞a（k） Then t=a（i）：a（i）=a（k）：a（k）=t
Next i
s=0：ans=0
For i=1 To n
If s
Then s=s+a（i）：ans=ans+1
Next i
Label1．Caption=″共有“+Str（ans）+″个人是愉快的，将给予好评。″组卷：1引用：1难度：0.5
