2017年浙江省溫州市高考信息技術模擬試卷（8月份）
發布：2024/4/20 14:35:0
一、選擇題（本大題共12小題，每小題2分，共24分，每小題列出的四個備選項中只有一個符合題目要求的，不選、多選、錯選均不得分）
-
1．銀行為用戶提供了動態口令卡，動態口令使用一次后就自動失效，下次需要時可產生新的動態口令，“動態口令只能使用一次”這符合的信息特征是（ ）
組卷：47引用：7難度：0.9 -
2．老師對小張的文檔進行修訂后，部分截圖如圖所示，對小張審閱的說法正確的是（ ?。?br />
組卷：11引用：6難度：0.9 -
3．用戶進入QQ郵箱后，“寫信”時的部分界面如圖所示，以下說法錯誤的是（ ?。?br />
組卷：18引用：8難度：0.7 -
4．有一Access數據表，表的結構如圖所示，在數據錄入時截圖如右圖所示，下列說法正確的是（ ?。?br />
組卷：11引用：7難度：0.9 -
5．某算法的部分流程圖如圖所示，執行這部分流程后，變量x和Flag的值分別是（ ）組卷：9引用：11難度：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）．組卷：11引用：3難度：0.1 -
17．【加試題】合唱隊列是按隊員的身高進行排列，形成中間高兩邊有序降低的隊形；例如有六個隊員“己、戊、丁、丙、乙和甲”的身高依次由小到大，則排列后的順序為“戊、丙、甲、乙、丁、己”．小李用VB編寫模擬“合唱隊列”程序，功能如下：在文本框Text1中輸入各隊員身高，輸入結束并回車，則輸入的各隊員身高分別存入數組a中；單擊“合唱隊列”按鈕Command1，對數組a的元素進行有序排列后，將各元素存入數組C中形成合唱隊列，并將結果顯示在文本框Text2中．程序運行界面如圖所示：甲、乙、丙、丁、戊和己
實現上述功能的VB程序如下：
（1）如果輸入各隊員身高為“190，191，194，179，166”，則合唱隊列的結果為．
（2）實現上述功能的VB程序如下，請在橫線處填入合適代碼．
Dim a（1To 20）As Integer
Dim n As Integer
Private Sub Text1_KeyPress（KeyAscii As Integer）
'將輸入各隊員身高分別存入數組a中，隊員個數為n,代碼略！
End Sub
Private Sub Command1_Click （ ）
Dim c（1To 20）As Integer
Dim right As Integer,left As Integer,i As Integer
For i=1To n-1
For j=1To n-i
If ①Then
t=a（j）：a（j）=a（j+1）：a（j+1）=t
End If
Next j
Next i
‘下列程序段實現數組C的合唱隊列
m=（1+n）\2
left=m：right=m
c（m）=a（n）
i=2
Do While i＜=n
If i Mod 2=0 Then
right=right+1
c（right）=a（n-i+1）
Else
②
c（left）=a（n-i+1）
End If
i=i+1
Loop
s=③
For i=2To n
s=s+“，“+Str（c（i））
Next i
Text2．Text=s
End Sub.組卷：15引用：3難度：0.1