相关试卷
-
1、Access 设计视图部分界面如图所示，下列说法正确的是( )
A、当前数据表名为“志愿者信息.accdb” B、可以在“服务时长”字段输入“15.5” C、可以在“性别”字段输入“男”或“女” D、导出到Excel后，数据表数据共6行2列 -
2、使用Word编辑文档时的部分界面如图所示。
下列说法正确的是（ ）
A、删除批注内容“地处亚热带中部”，则该批注框将随之被删除 B、取消“修订”状态，文档中的修订标记及内容不会发生改变 C、文档中图片的环绕方式为四周型 D、文档中存在两处修订 -
3、下列有关信息与信息技术的说法，不正确的是（ ）A、信息是人类社会的宝贵财富，不存在没有载体的信息 B、信息自古就有，随着时间的迁移，价值可能发生变化 C、历史文物在未出土之前，所承载的信息是不存在的 D、语言和文字是信息表达的一种常见方式
-
4、用VB编程求两个字符串的最长连续公共子串，程序功能如下：在文本框Text1和Text2中分别输入任意两个字符串s1和s2，单击命令按钮 Command1，在标签 Label3和Label4中分别输出这两个字符串的最长连续公共子串和子串的长度其算法思想：分别从字符串s1和s2的左边第一个字符开始检查，若发现这两个字符串中有一个字符相同，则以这个字符为基准向右边扩大搜索范围，先检查其后面的第一个字符是否相同，若还是相同则继续搜索，直到找到不同的字符为止。然后按照该方法依次继续往后搜索，直到查找结束。程序界面如图所示，请回答下列问题：
(1)、根据代码，若输入的s1为“Teacher”，s2为“teacher”，则最长连续公共子串为。(2)、实现上述功能的VB程序如下，请在划线处填入合适代码。Dim s1 As String, s2 As string, maxstr As string
Dim len1 As Integer, len2 As Integer, maxlen As Integer
Function Min (a As Integer, b As Integer) As Integer
If a >=b Then min = b else min = a
End Function
Function Search (m As Integer, n As Integer) As Integer
Dim c As Integer
c = 1
Do While c<= Min (len1 -m, len2 - n)
If Mid (s1, m+ c, 1) = Mid(s2,n+c,1) Then
Else
Exit Do 'Exit Do的作用是退出Do循环
End if
Loop
Search = c -1
End function
Private Sub Command1_Click()
s1 = Text1. Text
s2 = Text2. Text
len1 = Len (s1)
len2 = Len (s2)
maxlen = 0: maxstr = ""
Dim i As Integer, j As Integer, k As Integer
For i=1 To len1
For j=1 To len2
If Mid(s1, i, 1) = Mid(s2,j,1) Then
k = 'k用于记录连续公共子串的长度
If (k> maxlen) Then
maxlen = k
maxstr =
End if
End If
Next j
Next i
Labe13. Caption= "最长连续公共子串为:"& maxstr
Labe14. Cantion = "该子串长度是:"& str (maxlen)
End sub
-
5、在平面坐标系中，给定任意个点，求出这些点中与点（1，1）距离最远的点。小李编写出了相应功能的程序：在文本框Text1中输入这些点的坐标值（数据都用逗号分隔并以逗号结尾），单击“计算”按钮Cmd后，程序计算这些点到（1，1）的距离后，结果显示在列表框List1中，并且输出最大距离的点。程序运行界面如图所示。
(1)、由图可知，窗体中的对象共有类；(2)、实现上述功能的VB程序如下，请在画线处填入合适的代码。Private Sub Command1_Click()
Dim i, k As Integer
Dim x1, y1, x2, y2 As Single
Dim v As Single, maxd As Single
Dim s As String, pos zb As String
List1.Clear
s=Text1.Text
x1=1:y1=1
t="": k=1: j=1
List1.AddItem"坐标点"&"距离"
For i=1 To Len(s)
If Mid(s,i,1)="," Then
v=Val(Mid(s, j, i-j))
j=
If k Mod 2=1 Then
x2=v
Else
y2=v
d=Sqr((x2-x1)^2+(y2-y1)^2)
If Then
maxd=d
pos="(" & Str(x2)& "," & Str(y2)& ")"
End If
List1.AddItem"(" & Str(x2)& "," & Str(y2)& ")" & Str(d)
End If
k=k+1
End If
Next i
Label1.Caption="距离（1, 1）最远的点为"& pos &"距离为"& Str(maxd)
End Sub
(3)、若文本框Text1中输入的内容为“31，41，26，51，1，56”，程序运行结束后，距离（1，1）最远的坐标点是。 -
6、小六创作“夏夜旅行”的多媒体作品。回答下列问题：(1)、在作品设计的过程中，下列属于需求分析的是（多选，填字母： A .确定作品属于益智类游戏/ B .确定“片头”界面尺寸、素材组织与来源、交互方式等/ C .确定该作品用于丰富学生的课余生活/D .确定该作品完成后将以网页方式发布到网络服务器上/ E .确定作品由五个界面组成）。(2)、Flash动画部分界面如图所示，“灯闪”图层第10帧到第40帧实现了灯光淡入的动画效果，该动画补间类型为。
(3)、图中“蝴蝶”图层创建了蝴蝶实例从位置坐标（c，y）为（110，410）的A点出发，飞到B点（270，180）并稍作停留，最后飞到C点（500，100）的动画。若仅对第20帧执行清除关键帧操作，则测试场景时（多选，填字母：A .蝴蝶从A点到C点的飞行路线没有变化/B .蝴蝶飞到B点的同时“涟漪”图层的动画开始/ C .蝴蝶从A点到B点的飞行时间变长 / D .蝴蝶从B点到C点的飞行速度变慢）。(4)、如图所示，为使“音乐”图层的音乐与“灯闪”动画同步开始播放。对“音乐”图层的操作是。(5)、测试影片时，单击“跳过片头”按钮，使动画跳转到“主界面”场景第1帧播放，则在该按钮上添加的动作脚本是。 -
7、小林收集了某批发市场的冰激凌价格，并使用Excel软件进行数据处理，如下图所示。
请回答下列问题：
(1)、若要使标题栏的格式如下图所示，则可行的操作是。
(2)、已知列G的数值是通过公式“零售价一单支”得到，若对列E的数据进行“减少小数位数”操作，列G的数值。（会变/不变）(3)、小林要找出规格为40的冰激凌中利润最大的一项，可进行如下操作：以“规格”为40进行筛选，再以为关键字进行降序排序。(4)、若要在列H利用Rank函数计算出所有冰激凌的利润排名，并且利用自动填充功能填充，则H4单元格的公式为。（RANK函数格式：RANK（number，ref，order），返回某数字在一列数字中相对于其他数值的大小排名，如：RANK（A1，A1：A10）表示单元格A1中的数据在区域Al：A10中的排名） -
8、（加试题）若数组元素d(1)到d(8)的值依次为“6,9,12,18,20,28,32,45”，查找Key值的VB程序段如下：
t(1) = 1: t(2) = 1
For i = 3 To 5
t(i) = t(i - 1) + t(i -2)
Next i
Key =13
i=1: j=8: k=6
Do While i <=j
m = i+t(k-1) ‘①
If Key = d ( m ) Then Exit Do ‘Exit Do表示退出循环
If d(m) > Key Then
j= m - 1
k=k-1
Else
i = m + 1
k=k-2
End If
Loop
运行该程序段后，①处的赋值语句共执行（ ）
A、1次 B、2次 C、3次 D、4次 -
9、a(1)=17:a(2)=16:a(3)=12:a(4)=18:a(5)=15:a(6)=13:a(7)=17:a(8)=20
i=2
Do While i <=8
If i mod 2=0 and a(i)>a(i-1) then
t=a(i):a(i)=a(i-1):a(i-1)=t
ElseIf a(i-1) mod 2=1 then
a(i-1)=a(i-1)+1
End If
i=i+1
Loop
执行程序后，a数组各元素是（ ）
A、17，16，18，12，16，14，20，18 B、18，16，18，12，16，14，20，17 C、16，17，18，12，13，16，20，17 D、18，16，18，12，14，15，17，20 -
10、某排序算法，VB代码如下：
i=1
Do While i<=5
If i = 0 or a(i – 1)<= a(i) Then
i=i+1
Else
t=a(i):a(i)=a(i-1):a(i-1)=t
i=i-1
End If
Loop
数组元素a(0)到a(5)依次为：“0，41，22，53，99，36”，经过该程序段处理后，数组元素a(3)的值为（ ）
A、36 B、53 C、41 D、22 -
11、在Photoshop软件中编辑某文档，其部分界面如图所示。
下列说法正确的是（ ）
A、“背景”图层的下方可能有其他图层 B、可以直接在“背景”图层做“镜头光晕”滤镜操作 C、将此文档保存为jpg格式后，“英文”图层的图层样式仍可见 D、可以在“猫和老鼠”图层使用文字工具修改该图层的文字内容 -
12、使用GoldWave软件进行作品制作，部分操作界面如图所示。
下列说法不正确的是（ ）
A、在当前状态下插入15秒静音，音频文件存储容量将变大 B、执行“删除”命令后直接保存，音频文件存储容量将变小 C、该音频文件采用无损压缩格式，其采样频率为44.1KHz D、现对该音频的后5秒设置“淡出”效果并按原格式、原参数保存，存储空间不变 -
13、以下有关数据库的说法，正确的是（ ）A、数据表中同一字段内的数据类型一定是相同的 B、数据库应用系统可以完全脱离数据库管理系统独立运行 C、一个数据库文件同一时间内只允许一个用户访问 D、Access和oracle都是常见的小型数据库管理系统
-
14、下列选项中，体现人工智能技术的有（ ）
①利用语音方式控制机器人
②使用智能手机在微信传输语音
③电饭锅的自动保温功能
④使用面部识别技术解锁手机
⑤停车场自动计费系统的汽车牌照识别功能
A、①④⑤ B、①③④ C、②④⑤ D、③④⑤ -
15、下列有关信息技术的说法，正确的是（ ）A、信息技术是对文字信息进行加工和处理时使用的技术 B、随着信息技术的发展，只需要计算机就能完成信息的处理 C、1946年第一台电子计算机诞生后才有信息技术 D、计算机技术的发展促进了信息技术的发展
-
16、为有效降低机动车污染物排放，持续改善首都空气质量，北京市政府决定自2017年1月9日至2017年4月9日，继续实施工作日（因法定节假日放假调休而调整为上班的星期六、星期日除外）高峰时段区域限行交通管理措施，具体限行尾号如下图所示。
某同学编写程序实现如下功能：程序运行时，在文本框Text1中输人车牌号，单击“判断”按钮 Command1，在文本框Text2中显示限行的工作日。如下图所示，尾号为5，则显示星期二限行。
(1)、程序运行界面中都具有Caption属性的对象个数为。(2)、实现上述功能的VB程序如下，请在画线处填入合适的代码。Private Sub Command1_Click()
Dim s As String, n As Integer, x As String, y As string
s=Text1. Text
n=
y=" "
For i=n To l Step -1
x=Mid(s, i,1)
If Then
If Val(x) Mod 5=4 Then
y="星期一"
Else If Val(x) Mod 5=0 Then
y="星期二"
Else If Val(x) Mod 5=1 Then
y="星期三"
Else If Val(x) Mod 5=2 Then
y="星期四"
Else
y="星期五"
End If
Exit For ＇退出循环
End If
Next i
Text2. Text=
End sub
-
17、小张整理了部分办公用品的采购清单，并用Excel软件进行数据处理，如下图表格所示。请回答下列问题。
(1)、要计算各商品“总价（元）”，在F3中输人公式“=D3*E3”，并自动填充到F4:F18单元格，此时F8单元格中显示的公式是。(2)、要使表格标题文字“文一办公用品清单及价格”在表格第一行的正中间位置显示，可以采用的方法是。(3)、按价格对上图表格的信息进行排序，则应该选择的区域是。(4)、为了更直观地显示部分办公用品的价格，利用上图表格所示数据制作了如下图所示的图表，该图表的数据区域为A2，A5:A10，。
-
18、有如下程序段：
Dim i As Integer, j As Integer, n As Integer, s As String
i=1
Do While i<=3
k=i
j=i+1
Do While j<=8
If a(j)<a(k) Then k=j
j=j+1
Loop
If i< >k Then
t=a(i): a(i)=a(k): a(k)=t
End If
s=a(i)&.""&s
i=i+1
Loop
Label1.Caption=n&":"&s
数组元素a(1)到a(8)的数据依次为：“16，19，8，20，4，12，6，15”，经过该程序段“加工”后，标签 Label l中显示的值为（ ）
A、2:4 6 8 B、2:8 6 4 C、3:4 6 8 D、3:8 6 4 -
19、某查找算法的VB程序段如下：
i=1: j=7: n=0
Key=Val (Text1. Text)
Do While i <=j
n=n+1
m=Int ((i+j)/2)
If Key=d(m) Then Exit Do
If Key <d(m) Then j= m-1 Else i =m+1
Loop
数组元素d(1)到d(7)存放的数值依次为6，45，23，36，78，58，12，若该程序段运行结束后，n的值为2，则Key的值是（ ）
A、58 B、6或12 C、45或58 D、23或78 -
20、（加试题）某排序算法的VB程序段如下：
n = 10
Text1.Text = ""
For i = 1 To 5
For j = n To i + 1 Step -1
If a(j) < a(i) Then
temp = a(j): a(j) = a(i): a(i) = temp
End If
Next j
Next i
For i = 1 To 10
Text1.Text = Text1.Text + Str(a(i))
Next i
数组元素a(1)到a(10)的值依次为“965,155,195,444,106,734,172,983,898,360”，执行该程序段，文本框Text1中显示的是（ ）
A、106 155 172 195 360 444 734 898 965 983 B、106 155 172 195 360 734 444 983 898 965 C、983 965 898 734 444 360 172 195 155 106 D、106 155 172 195 360 965 444 734 898 983