2018-2019学年浙江省金华市东阳中学高二(下)月考信息技术试卷(6月份)
发布:2024/4/20 14:35:0
一、选择题(本大题共12小题,每小题2分,共24分.每小题给出的四个选项中,只有一个符合题目要求)
-
1.二维码是近年来非常流行的编码方式,以下关于二维码的说法正确的是( )
组卷:32引用:7难度:0.5 -
2.小明利用邮件客户端软件收到了同学小亮发来的一封电子邮件,但他在写好回信单击“发送”按钮时却发送失败,可能的原因是( )
组卷:4引用:3难度:0.5 -
3.使用Word软件编辑某文档,部分界面如图所示。下列说法正确的是( )
组卷:8引用:3难度:0.6 -
4.编辑Access数据表“精品书籍表”(如图a所示),将Excel表(如图b所示)A2:F9区域数据复制到“精品书籍表”中,则正确的是( )
组卷:4引用:1难度:0.5 -
5.某算法的部分流程图如第20题图所示,执行这部分流程,输出s的值为24,流程图中①处不可能为( )
组卷: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