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