2018-2019學(xué)年浙江省金華市東陽中學(xué)高二(下)月考信息技術(shù)試卷(6月份)
發(fā)布:2024/4/20 14:35:0
一、選擇題(本大題共12小題,每小題2分,共24分.每小題給出的四個(gè)選項(xiàng)中,只有一個(gè)符合題目要求)
-
1.二維碼是近年來非常流行的編碼方式,以下關(guān)于二維碼的說法正確的是( ?。?/h2>
組卷:32引用:7難度:0.5 -
2.小明利用郵件客戶端軟件收到了同學(xué)小亮發(fā)來的一封電子郵件,但他在寫好回信單擊“發(fā)送”按鈕時(shí)卻發(fā)送失敗,可能的原因是( ?。?/h2>
組卷:4引用:3難度:0.5 -
3.使用Word軟件編輯某文檔,部分界面如圖所示。下列說法正確的是( )
組卷:8引用:3難度:0.6 -
4.編輯Access數(shù)據(jù)表“精品書籍表”(如圖a所示),將Excel表(如圖b所示)A2:F9區(qū)域數(shù)據(jù)復(fù)制到“精品書籍表”中,則正確的是( ?。?br />
組卷:4引用:1難度:0.5 -
5.某算法的部分流程圖如第20題圖所示,執(zhí)行這部分流程,輸出s的值為24,流程圖中①處不可能為( ?。?/h2>
組卷:2引用:2難度:0.5
二、非選擇題(本大題共5小題,其中第13小題4分,第15小題5分,第16小題3分,第17小題6分,共26分)
-
16.數(shù)組a中存儲(chǔ)的是左右交替上升的n個(gè)正整數(shù),如表所示:
a(1) a(2) a(3) …… a(n-2) a(n-1) a(n) 3 25 38 …… 55 31 12
Private Sub Command1_Click ( ?。?br />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
'讀取一組正整數(shù),按上述規(guī)則存入數(shù)組a中,代碼略。
key=Val(Text1.Text)
i=1
j=(n+1)\2
flag=False
Do While And 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.在數(shù)組a中按順序找出一組升序子序列,可以不連續(xù),但要求長度最長。例如:數(shù)組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],其中最長升序子序列的數(shù)據(jù)是2,4,5,7。
算法思路如下:
(1)求以a(i)為結(jié)尾元素的最長升序子序列時(shí),找到所有序號(hào)j(j=1,2……i-1),且a(j)<a(i)。
如果這樣的元素存在,且d(j)>=d(i)(d(i)記錄i位置的最長升序子序列長度),那么就增加i位置的最長升序子序列長度,并記錄該升序子序列倒數(shù)第二個(gè)位置。
(2)在d數(shù)組中找出最大值,即最長升序子序列長度。
(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)為結(jié)尾元素。
現(xiàn)設(shè)計(jì)了如下VB程序,界面如圖所示,請(qǐng)回答下列問題:
(1)觀察圖,最長升序子序列的數(shù)據(jù)是
(2)請(qǐng)?jiān)跈M線處填入合適的代碼。
Constn=9
Dima(1Ton)AsInteger
PrivateSubForm_Load ( ?。?br />‘生成n個(gè)[1,10]范圍的隨機(jī)數(shù),存儲(chǔ)在a數(shù)組,并顯示在列表框List1.代碼略
EndSub
PrivateSubCommand1_Click ( ?。?br />Dim d(1 To n) As Integer‘記錄i位置的最長升序子序列長度
Dim pre(1 To n) As Integer‘記錄i結(jié)尾的最長升序子序列前一數(shù)據(jù)的位置
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