2017年浙江省溫州市普通高中選考模擬信息技術試卷（2月份）
發布：2024/4/20 14:35:0
一、選擇題（共12小題，每小題2分，滿分24分）
-
1．某用戶使用手機“導航”軟件，從 A 地駛向 B 地，規劃路線后開始行駛，途中“導航”提醒前 方道路擁堵，建議改變路線，并實時提供新的導航路徑，該事例體現信息的（ ）
組卷：23引用：7難度：0.9 -
2．小春用 Word 軟件撰寫了一篇觀后感，經老師審閱后文檔的部分截圖如圖所示，下列描述 正確的是（ ）
組卷：12引用：6難度：0.9 -
3．下列應用中，沒有運用人工智能的是（ ）
組卷：8引用：7難度：0.9 -
4．有一 Access 數據表，其設計視圖如圖1所示，數據表如圖2所示，下列說法正確的是（ ）
組卷：8引用：5難度：0.9 -
5．某算法部分流程圖如圖所示，執行該部分流程圖后，變量 s 和變量 i 的值分別為（ ）
組卷：13引用：9難度：0.7
二、非選擇題（本大題共5小題，其中第13小題4分，第14小題5分，第15小題8分，第16小題3分，第17小題6分，共26分）
-
16．小王編寫 VB 程序，功能如下：在文本框 Text1 中輸入一段英語短文，點擊“統計”按鈕 Command1，在標簽 Label2 中輸出該短文中出現次數最多的小寫字母、次數和頻率（若有 多個，則全部輸出），程序運行界面如圖所示．
若實現上述功能的程序如下，請在加框處修改合適代碼，使程序正常運行．
Private Sub Command1_Click （ ）
Dim i As Integer,n As Integer,f As Integer
Dim max As Integer'變量 max 表示出現最多的字母
Dim sum As Integer'sum 表示字母總數
Dim zm（1To 26）As Integer'數組 zm 存放 26 個字母出現的次數
Dim s As String,c As String
Dim cx As String'變量 cx 存放次數最多的字符
s=Text1．Text
For i=1To Len（s）
c=Mid（s,i,1）
If c＞=“a“And c＜=“z“Then n=
zm（n）=zm（n）+1
sum=sum+1
End If
Next i
max=0
For j=1To 26
If zm（j）＞max Then
：cx=““
If zm（j）=max Then
cx=cx+““+Chr（Asc（“a“）+j-1）
End If
Next j
f=Int（max/sum*100）
Label2．Caption=“字母：“& cx &“次數：“& max &“頻率：“& Str（f） &“%“
End Sub.組卷：6引用：3難度：0.1 -
17．小李編寫 VB 程序，功能如下：單擊“生成數組”按鈕 Command1，則隨機生成 13 個取值范圍是 1～13 的正整數，分別存儲到數組 a 中，對數組 a 的元素進行升序排列，并在標簽label1 中顯示；再單擊“連續數”按鈕 Command2，則在排序后的數組 a 中查找連續個數最多（忽略重復數值）的一組數值（即：連續數），若有兩組連續數個數一樣多，則取數值小的一組，將連續數顯示在標簽 label2 中．運行界面如圖所示．
若實現上述功能的程序如下，請在劃線處填寫合適代碼，使程序正常運行．
Dim a（1To 13）As Integer
Dim n As Integer
Private Sub Command1_Click （ ）
Dim i As Integer,s As String,j As String
Randomize
n=13
For i=1To n
a（i）=Int（Rnd*13）+1
Next i
For i=1To n-1
For j=i+1To n
If a（j）＜a（i） Then
t=a（j）： ①：a（i）=t
End If
Next j
Next i
s=““
For i=1To n
s=s+Str（a（i））
If ② Then s=s+“，“
Next i
Label1．Caption=s
End Sub
Private Sub Command2_Click （ ）
Dim i As Integer,j As Integer
Dim t As Integer,k As Integer
Dim max As Integer'存儲連續數個數最大值
Dim begin As Integer'存儲連續數開始的數值
k=1
max=1
For i=2To 13
If a（i）=a（i-1）+1Or a（i）=a（i-1）Then
If ③ Then k=k+1
If k＞max Then
max=k
begin= ④
End If
Else
k=1
End If
Next i
s=““
For j=begin To begin+max-1
s=s+Str（j）
Next j
Label2．Caption=s
End Sub.組卷：6引用：2難度：0.1