2016-2017学年浙江教育绿色评价联盟联考高三（上）月考信息技术试卷
发布：2024/4/20 14:35:0
一、选择题（共12小题，每小题2分，满分24分）
-
1．下列关于信息安全的叙述，正确的是（ ）
组卷：3引用：1难度：0.9 -
2．汽车自动驾驶技术根据激光测距器、超声波探测的数据来分析周围的交通状况，并通过一个详尽的地图进行导航．这主要应用了信息技术中的（ ）
组卷：3引用：1难度：0.9 -
3．某Word文档中各出现了8处“alias”和“Alias”单词，使用“查找和替换”功能进行操作，部分界面如下图所示
单击“全部替换”按钮后，下列描述正确的是（ ）组卷：10引用：2难度：0.7 -
4．某学校学生校园卡的信息表如表所示．若用Access数据表来存储上述表的信息，下列部分字段设计最合理的是（ ）
编号 姓名 性别 余额 入学时间 是否住校 S001 张霞军 男 ¥128.9 2015-09-01 是 Y102 徐秀晴 女 ¥88.0 2015-09-01 否 … … … … … … 组卷：2引用：1难度：0.5 -
5．如图所示的算法流程图，执行情况如下：
（1）若输入a、b的值分别为2、7，输出结果为2
（2）若输入a、b的值分别为10、3，输出结果为3
下列流程图填入虚线框中，符合条件的是（ ）组卷：3引用：1难度：0.7
二、解答题（共5小题，满分26分）
-
16．用VB程序编写计算两个字符环上最长连续公共字符串长度的程序．例如，字符串“ABCEFAGADEGKABUVKLM”的首尾连在一起，构成一个环；字符串“MADJKLUVKL”的首尾连在一起，构成另一个环；“UVKLMA”是这两个环的一个连续公共字符串．
功能如下：在文本框Text1中输入字符串1，在文本框Text2中输入字符串2，单击“判断”按钮Command1后，
在文本框Text1中显示公共字符串，程序运行界面如图所示．
实现上述功能的VB程序如下，但加框处代码有误，请改正．
Function maxnum（a As Integer,b As Integer）As Integer
If a＜b Then maxnum=a Else maxnum=b
End Function
Private Sub Command1_Click （ ）
Dim sl As String,s2 As String,res As String'存储2个字符环
Dim i As Integer,j As Integer,m As Integer
Dim num As Integer,pd As Boolean,n As Integer
Dim max As Integer'存储字符环中最长的连续公共字符串长度
Dim resmax As string'存储字符环中最长的连续公共字符串
s1=Text1．Text：s2=Text2．Text
max=0：res=''''
For i=1 To Len（s1）
For j=1 To Len（s2）
If Mid（s1，i,1）=Mid（s2，j,1）Then
res=Mid（s1，i,1）
num=l：m=i：n=j
pd=True
EndIf
Do While pd=True
m=m+1：n=n+1
If m＞Len（s1）Then m=m-Len（s1）
If n＞Len（s2）Then n=n-Len（s2）
If
Then'（1）
pd=flash
Else
num=num+1
res=res+Mid（s2，n,1）
EndIf
If num＞=maxnum （Len（s1），Len（s2）） Then pd=False
Loop
If num＞max Then
'（2）
resmax=res
res=''''
EndIf
Next j
Next i
Text3．Text=resmax
End Sub.组卷：2引用：1难度：0.1 -
17．小王编写统计工厂工人生产某种零件数量人数的VB程序．运行程序后，从数据库中获取每个工人生产零件的数量数据，并存储在数组xs中；在文本框Text1中输入零件数（整数），单击“统计”按钮command1，程序将依次筛选出数组xs中零件数大于等于输入零件数的数据，并存储在数组bf中．最后统计数组bf中生产零件数相同的人数，存储在数组jg后，并将统计结果输出在列表框list1中，数组jg各元素含义如表所示，程序运行界面如图所示．
实现以上功能的VB程序如下，请回答下列问题：数组元素
数组元素的含义
jg（1）存储查找第1个大于n的零件数
jg（2）存储第1个大于n的零件数共有几个工人人数 … … jg（2*i-1） 存储查找到第i个大于n的零件数 jg（2*i）
存储第i个大于n的零件数共有几个工人人数 … …
（1）根据程序运行界面数据，及数组jg各元素的含义进行分析，数组元素jg（8）的值是（填写数值）．
（2）分析程序，当前程序中处理的数据获取的数据表名是（填数据表名）．
（3）请在横线处填入合适的代码．
Dim xs（1 To 1000）As Integer,jg（1 To 1000）As Integer'数组大小满足处理要求
Dim n As Integer'存储数据库总的记录数
Private Sub Form_Load（ ）
Dim conn As New adodb.Conncction,rs As New adodb.Recordset
Dim strSQL As String
conn.ConnectionString=“Provider=Microsoft.ACE．OLEDB.12.0；
Data Source=“+App.Path+“\date.jye.ai“
conn.Open
strSQL=“SELECT*From tab“
Set rs.ActiveConnection=conn
'本过程的其他语句略
'本过程求出n的值
End Sub
Private Sub Command1_Click（ ）
Dim bf（1 To 1000）As Integer'数组bf存储大于等于输入零件数的数据
Dim maxn As Integer,d As Integer,k As Integer,da As Integer
Dim i As Integer,j As Integer,flag As Integer
da=Val（Text1．Text）：maxn=0
For j=1 To n
If xs（j）＞=da Then maxn=maxn+1：bf（maxn）=xs（j）
Next j
k=1
For i=1 To maxn
flag=0
For j=1 To i-1
If bf（i）=bf（j） Then flag=1
Next j
If flag=0 Then
d=1
For j=i+1 To maxn
If bf（i）=bf（j） Then
Next j
jg（2*k）=d
k=k+1
EndIf
Next i
k=k-1：List1．Clear
For j=1 To 2*k Step 2
List1．AddItem Str（jg（j））+““+Str（jg（j+1））
Next j
End Sub.组卷：2引用：1难度：0.1
