相关试卷
-
1、在平面坐标系中，给定任意个点，求出这些点中与点（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）最远的坐标点是。 -
2、小六创作“夏夜旅行”的多媒体作品。回答下列问题：(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帧播放，则在该按钮上添加的动作脚本是。 -
3、小林收集了某批发市场的冰激凌价格，并使用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中的排名） -
4、（加试题）若数组元素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次 -
5、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 -
6、某排序算法，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 -
7、在Photoshop软件中编辑某文档，其部分界面如图所示。
下列说法正确的是（ ）
A、“背景”图层的下方可能有其他图层 B、可以直接在“背景”图层做“镜头光晕”滤镜操作 C、将此文档保存为jpg格式后，“英文”图层的图层样式仍可见 D、可以在“猫和老鼠”图层使用文字工具修改该图层的文字内容 -
8、使用GoldWave软件进行作品制作，部分操作界面如图所示。
下列说法不正确的是（ ）
A、在当前状态下插入15秒静音，音频文件存储容量将变大 B、执行“删除”命令后直接保存，音频文件存储容量将变小 C、该音频文件采用无损压缩格式，其采样频率为44.1KHz D、现对该音频的后5秒设置“淡出”效果并按原格式、原参数保存，存储空间不变 -
9、以下有关数据库的说法，正确的是（ ）A、数据表中同一字段内的数据类型一定是相同的 B、数据库应用系统可以完全脱离数据库管理系统独立运行 C、一个数据库文件同一时间内只允许一个用户访问 D、Access和oracle都是常见的小型数据库管理系统
-
10、下列选项中，体现人工智能技术的有（ ）
①利用语音方式控制机器人
②使用智能手机在微信传输语音
③电饭锅的自动保温功能
④使用面部识别技术解锁手机
⑤停车场自动计费系统的汽车牌照识别功能
A、①④⑤ B、①③④ C、②④⑤ D、③④⑤ -
11、下列有关信息技术的说法，正确的是（ ）A、信息技术是对文字信息进行加工和处理时使用的技术 B、随着信息技术的发展，只需要计算机就能完成信息的处理 C、1946年第一台电子计算机诞生后才有信息技术 D、计算机技术的发展促进了信息技术的发展
-
12、为有效降低机动车污染物排放，持续改善首都空气质量，北京市政府决定自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
-
13、小张整理了部分办公用品的采购清单，并用Excel软件进行数据处理，如下图表格所示。请回答下列问题。
(1)、要计算各商品“总价（元）”，在F3中输人公式“=D3*E3”，并自动填充到F4:F18单元格，此时F8单元格中显示的公式是。(2)、要使表格标题文字“文一办公用品清单及价格”在表格第一行的正中间位置显示，可以采用的方法是。(3)、按价格对上图表格的信息进行排序，则应该选择的区域是。(4)、为了更直观地显示部分办公用品的价格，利用上图表格所示数据制作了如下图所示的图表，该图表的数据区域为A2，A5:A10，。
-
14、有如下程序段：
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 -
15、某查找算法的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 -
16、（加试题）某排序算法的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 -
17、有如下VB程序段：
For i=1 To 9
For j=10 To i+2 Step-1
If a(j)<a(j-2) Then
t=a(j): a(j)=a(j-2): a(j-2)=t
End If
Next j
Next i
数组元素a(1)到a(10)的值依次为“3，17，2，14，15，6，7，18，9，4”，执行该程序段后，数组元素a(8)中的值为（ ）
A、3 B、4 C、15 D、17 -
18、某算法的部分流程图如图所示执行该流程图则输出s的值是（ ）
A、11 B、25 C、36 D、49 -
19、已知x是一个五位数整数，下面语句中能得到其千位上的数字的是（ ）A、X/1 000 B、x\1 000 C、x\1 000 mod 10 D、x mod 10 000\1 000
-
20、使用Access软件进行学生信息管理。已有数据表视图如图a所示，部分数据存储在Excel表中如图b所示，下列说法正确的是（ ）
图a
图b
A、图a当前状态下，可以设置字段“出生年月”的显示格式 B、图a中字段“性别”修改为文本类型后，显示为男或女 C、图b中数据全部拷贝入“学生信息”表中，第4条记录“ID”字段值一定为“10” D、图b中数据全部拷贝入“学生信息”表中，第4条记录出生年月显示为“2000年2月9日”