2018-2019學年浙江省金麗衢十二校高三（上）第一次聯考信息技術試卷
發布：2024/4/20 14:35:0
一、選擇題（本大題共12小題，每小題2分，共24分．在每小題給出的四個選項中，只有一個符合題目要求選項）
-
1．下列有關信息的說法中，正確的是（ ）
組卷：17引用：4難度：0.4 -
2．下列有關說法中，不正確的是（ ）
組卷：0引用：1難度：0.6 -
3．下列應用中，體現了人工智能技術的有（ ）
①停車管理系統通過拍攝識別車牌號碼，并用語音進行播報
②智能翻譯機實現實時語音翻譯
③某同學和遠方的朋友視頻通話
④智慧教室能根據光線情況調整照明亮度
⑤阿法狗和李世石的終極之戰組卷：8引用：4難度：0.6 -
4．某數據庫文件的數據表，部分界面如圖所示，下列說法不正確的是（ ）
組卷：1引用：1難度：0.5 -
5．某流程圖如圖所示：
若輸入k的值為9，最終i、s 的值分別為（ ）組卷：0引用：2難度：0.4
【加試題】
-
16．小李統計2017年各國在浙江省旅游人數，設計了一個程序。程序運行時在列表框List1中輸出已經按照大洲類別分類的信息，在文本框Text1中輸入“大洲類別”如：，歐洲，單擊“查找排序”按鈕Command2，將在列表框List2中輸出該“大洲類別”旅游人數從低到的高信息。程序運行界面如圖所示：
實現上述功能的VB代碼如下，但加框處代碼有錯，請改正。
DimkAsInteger′k變量用來存放國家的個數Private Sub Form_ Load （ ）
′從數據庫中讀取數據并存儲在相關變量中。aa（ ）數組用來存放國家名稱，bb （ ）數組用來存放大洲類別，cc （ ）數組用來存放旅游人數。
′代碼略
End Sub
Private Sub Command2_ Click （ ）
Dim zb（1 To 10）As String用來存放大洲類別
Dim wz（1 To 10）As Integer用來存放每類大洲開始的位置
Dim cd（1 To 10 As Integer用來存放每類大洲的國家個數
Dim c As String,pos As Integer,ld As Integer
zb（1）=bb（1）：wz（1）=1：cd（1）=I
n=1
c=Text1．Text
Fori=2To k
If
Then①
cd（n）=cd（n）+1
Else
n=n+1
zb（n）=bb（i）：cd（n）=1：wz（n）=i
End If
Next i
Fori=1Ton
If zb（i）=c Then pos=wz（i）：Id=ed（i）
Next i
Fori=
②
Forj=pos+ld-1Toi+I Step-1
Ifcc（j）＜cc（j-1）Then
t=aa（j-1）：aa（j-1）=aa（j）：aa（j）=t
t=cc（j-1）：cc（j-1）=cc（j）：cc（j）=t
End If
Next j
Next i
Fori=pos To pos+1d-1
List2．AddItem aa（i）+”“+bb（i）+““+Str（cc（i））”
Next iEnd Sub
程序中①處改為。
程序中②處改為。組卷：0引用：1難度：0.5
【加試題】
-
17．數組a （ ）中相鄰兩個數據無重復，現要查找連續最大步長的升序段。具體描述如下：
（1）步長指的是升序段中最后元素和最初元素的差值；
（2）有相同步長的升序段則輸出最先找到的升序段。程序界面如圖所示。
實現上述功能的VB代碼如下：
Dim a（ 100）As Integer′用來存放數據
Dim k As Integer′用來存放數據的數組元素的個數
Private Sub Form_ Load （ ）
'從數據庫中讀取數據并存儲在相關數組變量中。并將數據輸出在文本框中。
Textl.Text=s
End Sub
Private Sub Commandl _Click （ ）
Dim f1ag As Boolean,pmax As Integer,mstep As Integer,steps As Integer,max As Integer,stAs String,tmax As Integer
st=“：pmax=1：mstep=0：max=0：t=0：tmax=0
Ifa（2）＞a（1）Then flag=True Else flag=False
Fori=1 Tok-I
Ifa（i+1）＞a（i） Then
If flag=True Then
t=t+I
If mstep＞max Then
max=mstep
pmax=i+1
End If
Else
mstep=a（i+1）-a（i）
t=I
If mstep＞max Then
max=mstep
pmax=i+1
tmax=I
End If
flag=True
End If
Else
End If
Next i
Fori=pmax-tmaxTopmax
st=st+Str（a（i））
Next i
Listl.AddItem st
End Sub
（I1）若數據為“24，7，2，16，25，68，45，32，2，23，46，67，26”則最大步長的升序段為。
（2）實現上述功能，請在橫線處填入適當的代碼：
程序中①處填入的是。
程序中②處填入的是。
程序中③處填入的是。組卷：0引用：1難度：0.5