2018-2019學年浙江省金華市東陽中學高二(下)月考信息技術試卷(6月份)
發布:2024/4/20 14:35:0
一、選擇題(本大題共12小題,每小題2分,共24分.每小題給出的四個選項中,只有一個符合題目要求)
-
1.二維碼是近年來非常流行的編碼方式,以下關于二維碼的說法正確的是( )
A.手機掃描二維碼,屬于信息的編碼過程 B.二維碼可以表示文字、圖象、超鏈接等信息 C.通過掃描二維碼獲得某URL的過程,涉及信息的加工與發布 D.某支付APP付款二維碼每隔一定時間自動更新,主要體現了信息的載體依附性 組卷:32引用:7難度:0.5 -
2.小明利用郵件客戶端軟件收到了同學小亮發來的一封電子郵件,但他在寫好回信單擊“發送”按鈕時卻發送失敗,可能的原因是( )
A.POP3協議設置錯誤 B.SMTP協議設置錯誤 C.TCP/IP協議設置錯誤 D.HTTP協議設置錯誤 組卷:4引用:3難度:0.5 -
3.使用Word軟件編輯某文檔,部分界面如圖所示。下列說法正確的是( )
A.文中有插入和刪除兩類修訂 B.文中有一處拼寫和語法檢查提示 C.正文中鸛雀樓的圖片版式為嵌入型 D.文中有用戶為“V1”和“V2”的兩處批注 組卷:8引用:3難度:0.6 -
4.編輯Access數據表“精品書籍表”(如圖a所示),將Excel表(如圖b所示)A2:F9區域數據復制到“精品書籍表”中,則正確的是( )
A.“出借否”字段打“√”記錄有4條 B.“書籍編號”字段的值不能修改 C.《小婦人》所在記錄的書籍編號為1 D.存儲“出借否”字段數據類型需要1字節 組卷:4引用:1難度:0.5 -
5.某算法的部分流程圖如第20題圖所示,執行這部分流程,輸出s的值為24,流程圖中①處不可能為( )
A.s<=24? B.s<24? C.a<=11? D.a<14? 組卷:2引用:2難度:0.5
二、非選擇題(本大題共5小題,其中第13小題4分,第15小題5分,第16小題3分,第17小題6分,共26分)
-
16.數組a中存儲的是左右交替上升的n個正整數,如表所示:
a(1) a(2) a(3) …… a(n-2) a(n-1) a(n) 3 25 38 …… 55 31 12
Private Sub Command1_Click ( )
Const n=6
Dim a(1 To n)As Integer,flag As Boolean
Dim i As Integer,j As Integer,m As Integer,key As Integer
'讀取一組正整數,按上述規則存入數組a中,代碼略。
key=Val(Text1.Text)
i=1
j=(n+1)\2
flag=False
Do WhileAnd Not flag'(1)
m=(i+j)\2
If key=a(m) Then
flag=True
Elself key<a(m) Then
j=m-1
Else
i=m+1
End If
Loop
If Not flag And j>0 Then
m='(2)
If key=a(m) Then flag=True
End If
If flag Then
Text2.Text=Str(m)
Else
Text2.Text=“找不到“
End If
End Sub組卷:1引用:2難度:0.5 -
17.在數組a中按順序找出一組升序子序列,可以不連續,但要求長度最長。例如:數組a的值分別為2,11,4,13,5,7.升序子序列分別有[2,11]、[2,4]、[2,11,13]、[2,4,13]、[2,4,5]、
[2,4,5,7]、[11,13]、[4,13]、[4,5]、[4,5,7]、[5,7],其中最長升序子序列的數據是2,4,5,7。
算法思路如下:
(1)求以a(i)為結尾元素的最長升序子序列時,找到所有序號j(j=1,2……i-1),且a(j)<a(i)。
如果這樣的元素存在,且d(j)>=d(i)(d(i)記錄i位置的最長升序子序列長度),那么就增加i位置的最長升序子序列長度,并記錄該升序子序列倒數第二個位置。
(2)在d數組中找出最大值,即最長升序子序列長度。
(3)例如,2、11、4、13、5、7,d(1)=1,d(2)=2,d(3)=2,d(4)=3,d(5)=3,d(6)=4,所以最長升序子序列長度為4,是以a(6)為結尾元素。
現設計了如下VB程序,界面如圖所示,請回答下列問題:
(1)觀察圖,最長升序子序列的數據是
(2)請在橫線處填入合適的代碼。
Constn=9
Dima(1Ton)AsInteger
PrivateSubForm_Load ( )
‘生成n個[1,10]范圍的隨機數,存儲在a數組,并顯示在列表框List1.代碼略
EndSub
PrivateSubCommand1_Click ( )
Dim d(1 To n) As Integer‘記錄i位置的最長升序子序列長度
Dim pre(1 To n) As Integer‘記錄i結尾的最長升序子序列前一數據的位置
DimstAsString,iAsInteger,kAsInteger,maxlenAsInteger
Fori=1Ton
d(i)=1
Nexti
Fori=2Ton
Forj=1Toi-1
Ifa(j)<a(i)Andd(j)>=d(i)Then
d(i)=
pre(i)=j
EndIf
Nextj
Nexti
maxlen=0:k=0
Fori=1Ton
If
Nexti
DoWhilek<>0
st=a(k)&″,″&st
Loop
Text1.Text=Mid(st,1,Len(st)-1)
EndSub組卷:1引用:1難度:0.5