2017-2018學年浙江省金華市義烏市群星外國語學校高三（上）月考信息技術試卷（1月份）
發布：2024/4/20 14:35:0
一、選擇題（本大題共12小題，每小題2分，共24分．在每小題給出的四個選項中，只有一個符合題目要求）
-
1．微信新騙局：騙子取一個類似“交通違章查詢”這樣的公眾賬號，一旦用戶信以為真，向該公眾號發送截圖，會收到提示“需要提交你剛剛收到的手機驗證碼”，若將驗證碼發過去，用戶微信錢包的錢就會被立即轉走．這說明信息具有（ ）
組卷：8引用：3難度：0.9 -
2．用郵件客戶端收取郵件時，使用下列哪個協議（ ）
組卷：8引用：6難度：0.9 -
3．算式（10011）2-（11）16的運算結果是（ ）
組卷：8引用：4難度：0.7 -
4．防止黑客入侵的方法，最有效的是（ ）
組卷：10引用：1難度：0.9 -
5．下列哪一個表達式能產生一個屬于區間[100，999]內的整數（ ）
組卷：17引用：1難度：0.7
二、非選擇題（本大題共5小題，其中第13小題4分，第14小題5分，第15小題8分，第16小題3分，第17小題6分，共26分））
-
16．小明編寫了一個VB程序，功能如下：在文本框Text1中輸入一段英文，并在文本框Text2中輸入英文段落中的某個單詞（或字符串），單擊“最大間距”按鈕（Command1）后，在文本框Text3中顯示該單詞在文中某兩次出現的最大間距，若只出現一次或不出現則顯示值為0．程序運行界面如圖所示：
實現上述功能的VB程序如下：
Private Sub Command1_Click （ ）
Dim a（1To 1000）As String'數組a存儲文中出現該指定單詞（或字符串）的各個位置
Dim s As String,c As String,ch As String
Dim n As Integer,max As Integer,i As Integer
s=Text1．Text
c=Text2．Text
n=0：Max=0
For i=1To Len（s）-Len（c）+1
ch=①
If ch=c Then
n=n+1
a（n）=i
If n＞=2Then
If a（n）-a（n-1）-Len（c）＞Max Then Max=a（n）-a（n-1）-Len（c）
End If
End If
Next i
Text3．Text=②
End Sub
以上程序段運行時，為了實現上述功能，橫線處①和②應填入的代碼分別為：
（1）； （2）。組卷：2引用：2難度：0.6 -
17．明明設計了某企業職工IC卡查詢系統，輸入職工的卡號，可以查出該卡號對應的余額．所有職工的IC卡號和相應的余額已分別保存在zg數組（按從小到大排序）和ye數組中，第i個職工卡號保存在zg（i）中，對應的卡號余額保存在ye（i）中．
程序界面如圖所示，左邊列表框List1中顯示的是部分職工的卡號和余額，在文本框Text1中輸入職工的IC卡號，單擊“查詢余額”按鈕（Command1）后，如果找到此卡號，則在標簽Lab3中顯示“此卡號余額為”和對應的余額值，如果未找到則顯示“找不到此卡號，請重新輸入”．
解決此問題的部分程序段如下：
Const n=500'設卡號總數為500
Dim zg（1To n） As Long
Dim ye（1To n） As Single
Private Sub Form1_Load （ ）
'此過程用于對數組zg和數組ye進行初始賦值，代碼略
End Sub
Private Sub Command1_Click （ ）
Dim x As Long,i As Long,j As Long,m As Long,find As Boolean
x=Val（Text1．Text）
i=1：j=n：find=False
Do While ①
②
If x=zg（m） Then
③
ElseIf x＜zg（m） Then
j=m-1
Else
i=m+1
End If
Loop
If find=true Then
Lab3．Caption=″此卡號余額為″+Str（ye（m））+″元″
Else
Lab3．Caption=″找不到此卡號，請重新輸入″
End If
End Sub
在程序①、②、③橫線處填入適當的語句或表達式．將程序補充完整：
（1）程序中①橫線處應填入．
（2）程序中②橫線處應填入．
（3）程序中③橫線處應填入．組卷：7引用：2難度：0.1