相关试卷
-
1、采用如下对分查找算法对数组a(1)到a(8)中8个有序数据“1，5，8，13，16，27，31，39”进行查找，其程序如下：
i =1 : j=8 : x=27 : mark = False
Do While i <= j And Not mark
m=(i+j+1)\2
If a(m) = x Then mark = True
If a(m)>x Then j=m-1 Else i=m+1
Text1. Text = Text1. Text+Str(m)
Loop
执行该程序段，文本框Text1中显示的是（ ）
A、46 B、476 C、163127 D、576 -
2、某排序算法的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 -
3、使用UltraEdit软件观察字符“共享单车app！” 的内码，部分界面如图所示。
以下描述正确的是( )
A、存储字符“共享单车app！"共需要12个字节 B、字符“共享单车app！”只有3个ASCII码字符 C、字符“共”的二进制编码是10111001 D、字符“p”内码70是十进制的数 -
4、小方同学把一张bmp图片转换为jpg格式，保存后的JPG格式图片的属性如下，请问该图片的压缩比为( )
A、2：1 B、5：1 C、15：1 D、1：20 -
5、下列关于数据库的说法中正确的是( )A、数据库是动态地存储在辅助存储器上的与应用程序相互关联着的数据集合 B、一个数据库管理系统可以管理多个数据库 C、常见的数据库管理系统有FoxPro、SQL Server 、Excel等 D、数据库应用系统可以完全脱离数据库管理系统独立运行
-
6、某单位大门使用了某管理系统，当有汽车试图进入时能通过摄像头识别车牌号码，如汽车属于本单位的自动开启栏杆，反之则拒绝车辆进入。下列说法中，不正确的是( )A、该系统使用了数据库技术 B、该系统使用了OCR技术 C、该系统使用了人工智能技术 D、该系统使用了虚拟现实技术
-
7、以下关于信息和信息特征的说法，正确的是 ( )A、信息的表示、传播、存储必须依附于某种载体 B、在公共场所上网时，应尽量把表单上的用户名和密码设置为自动完成 C、文字出现以后，才能进行传递信息 D、“盲入摸象”体现了信息的时效性
-
8、小李编写VB程序，功能如下：单击“生成数组”按钮Command1，则随机生成13个取值范围是1~13的正整数，分别存储到数组a中，对数组的元素进行升序排列，并在标签label1中显示；再单击“连续数”按钮Command2，则在排序后的数组a中查找连续个数最多(忽略重复数值)的一组数值(即连续数)，若有两组连续数个数一样多，则取数值小的一组，将连续数显示在标签label2中。运行界面如图所示。
若实现上述功能的程序如下，请在划线处填写合适代码。
Dim a(1 To 13) As Integer
Dim n As Integer
Private Sub Command1_ Click( )
Dim i As Integer, s As String, j As String
Randomize
n=13
For i=1 To n
a(i) = Int(Rnd * 13)+1
Next i
For i=1 To n-1
For j=i+1 To n
If a(j) < a(i) Then
t=a(j)：：a(i)=t
End If
Next j
Next i
s=“”
For i=1 To n
s = s+ Str(a(i))
If Then s=s+“，”
Next i
Label1. Caption =s
End Sub
Private Sub Command2_ Click( )
Dim i As Integer, j As Integer
Dim t As Integer, k As Integer
Dim max As Integer '存储连续数个数最大值
Dim begin As Integer '存储连续数开始的数值
k= 1
max=1
For i=2 To 13
If a(i)=a(i-1)+1 Or a(i)=a(i-1) Then
If Then k=k+1
If k > max Then
max= k
begin =
End If
Else
k=1
End If
Next i
s=" "
For j=begin To begin+max-1
s =s+ Str(j)
Next j
Label2. Caption = s
End Sub
-
9、现有n* n大小的网格(n≤10)，每个格子从左到右、从上到下编号依次编号为1、2、3……n*n，当n为3时，网格如图a所示。
网格中每个格子都有一面沿对角线方向放置的挡板，且朝向随机。现将一个小球从左上角1号格子自上而下射入网格，则小球将在网格中不断反弹(不考虑实际的能量损失与重力影响等因素)，最终从某个格子离开网格，根据挡板的朝向与小球的运动方向，将有几种不同的反弹情况。如图b所示，小球进入网格后，先后经过1、2、5、6、3号格子，之后离开网格。
编写VB程序，功能如下：在文本框Text1中输入n的值，单击“生成”按钮Command1，生成网格和随机的挡板，并输出。然后单击“开始”按钮Command2，在文本框Text2中显示小球进入网格后的运动路径。程序中利用数组a存储网格的状态，其中“/”与“\”两种字符表示两种朝向的挡板。程序运行界面如图c所示。
请回答下列问题：
(1)、要使程序运行时，窗体标题显示“网格弹球”，可在Form_Load事件过程中添加语句(单选，填字母： A .Form1="网格弹球" / B .Form1.，Text="网格弹球"/ C .Form1. Caption="网格弹球")。(2)、实现上述功能的VB程序如下，请在划线处填入合适的代码。Dim n As Integer
Dim a(0 To 100) As String
Private Sub Command1_Click( ) '生成网格和挡板，
n= Val(Text1. Text)
'生成n* n的网格和随机的挡板，并通过图形控件输出，代码略
End Sub
Private Sub Command2_ Click( )
Dim ans As String, pre As String
Dim cur As Integer
cur= 1 : : ans =" "
Do While cur >= 1 And cur<= n* n
ans=ans + Str(cur) +“→”
If pre="左" And a(cur)="\" Or pre= "右" And a(cur)="/" Then
cur=cur+n： pre="上“
ElseIf Then
cur= cur n： pre="下"
ElselIf pre="上" And a(cur)="\" Or pre=“下" And a(cur)="/" Then
If cur Mod n=0 Then
Exit Do
Else
cur=cur + 1： pre="左"
End If
ElseIf pre="上" And a(cur)="/" Or pre=“下" And a(cur)="\" Then
If
ThenExit Do
Else
cur=cur-1： pre= "右"
End If
End If
Loop
Text2. Text=ans+"离开"
End Sub
(3)、程序中加框处代码有错，请改正。 -
10、小张创作“冬去春来”的多媒体作品。她首先用Photoshop软件制作一张封面图片，然后使用Flash软件制作动画。请回答下列问题：
(1)、小张打算从“双燕”图层再复制一只燕子，执行了以下操作：①菜单“编辑”/“拷贝”
②矩形框框选其中一只燕子
③菜单“编辑”“粘贴”，产生新图层
④选择“双燕”图层
⑤移动燕子到合适位置
正确的操作顺序是→→→→⑤
(2)、如图b所示，该动画“库”里有种元件。
(3)、如图b所示，“文字”图层以4个关键帧依次显示“冬去春来”四个字的动画属于(选填：逐帧/补间/引导线/遮罩)动画类型。(4)、单击“Link”按钮实现启动浏览器打开多媒体作品所在文件夹下的“spring. swf”文件。则“Link”按钮的动作脚本是。(5)、测试当前场景，发现动画一开始播放就暂停了，原因可能是 -
11、小王收集了2016 年第三季度浙江省各地区工业增加值数据，并用Excel软件进行数据处理，如图a所示。请回答下列问题：
(1)、区域B14：G14的数据是通过公式计算得到的，在B14单元格输入公式时应用了AVERAGE 函数，并用自动填充功能完成区域C14：G14的计算，则F14单元格中的公式为。(2)、若要对各地区数据以“8月”为关键字按降序进行排序，则排序时选择的数据区域是。(3)、根据图a中数据制作的图表如图b所示，创建该图表的数据区域是。
(4)、将区域A2： G13的数据复制到新工作表并进行筛选操作，设置“9月”和“9月同比士%”的筛选方式如图c和图d所示，则按此设置筛选出的地区有个。
-
12、有如下VB程序段：
i=1 : j=10 : x= Int(Rnd * 50) * 2+ 1
Do While i<=j
m=(i+j)\ 2
If x=f(m) Then Exit Do
If x<f(m)Then j=m-1 Else i=m+1
s=s+Str(m)
Loop
数组元素f(1)到f(10)的值依次为：3，6，9，11，18，20，25，39，76，98，该程序运行后，s的值不可能的是( )
A、52 B、5 8 C、5234 D、586 -
13、有如下VB程序段：
Dim a(1 To 5) As Integer .
a(1)= 1
For i=2 To 5
a(i)= Int(Rnd * 9) +1
If a(i) Mod 2=1 Then
a(i)=a(i)+a(i - 1)
ElseIf i mod 2=0 then
a(i)=a(i) /2
End If
Next i
执行程序后，a数组各元素不可能是( )
A、1，8，11，20，2 B、1，4，2，11，4 C、1，1，8，17，6 D、1，4，7，6，8 -
14、有如下VB程序段：
a(1)= 1： s=0
For i=2 To 6
s= 0
For j=1 To i-1
s=s+a(j)
Next j
a(i)=s+1
Next i
执行该程序段后，a(6)的值为( )
A、15 B、16 C、32 D、64 -
15、有如下VB程序段：
s="26170534" : n= Len(s) : y=" "
For i=1 to n
ch(i)= Mid(s, i, 1)
Next i
For i=1 to n
k=i
For j=i to n Step 2
if ch(j)<ch(k) Then k=j
Next j
If k<>i Then t =ch(k) : ch(k)=ch(i) : ch(i)=t
y=y & ch(i)
Next i
Label1. Caption= y
该程序段运行后，标签Label1中显示的内容是（ ）
A、0123 B、4567 C、01234567 D、04152637 -
16、有如下程序段：
Dim i As Integer， sum As Integer
Dim a(1 To 10) As Integer
sum=0
For i=1 To 10
a(i) = i+5
If a(i) Mod 3=0 Then sum=sum+a(i)
Next i
Text1. Text = Str(sum)
该程序段运行后，文本框Text1中显示的内容是( )
A、24 B、42 C、105 D、205 -
17、某算法的部分流程图如图所示，执行这部分流程后，输出n的值是( )
A、0 B、4 C、16 D、36 -
18、使用UltraEdit软件观察字符“Happy 2018！”的内码，部分界面如图所示。
下列说法正确的是（ ）
A、字符“Happy 2018！"共占用10个字节 B、字符“Happy 2018！”全部采用ASCII编码方式 C、小写英文字符“o”的十六进制码为“69” D、字符“h”的内码用二进制表示为“1101000” -
19、使用GoldWave软件编辑音频素材，部分操作界面如图所示。
下列说法正确的是（ ）
A、当前音频文件的左右声道均添加了淡入效果 B、当前音频文件每个采样点的量化位数为16个字节 C、将当前音频文件进行保存，总时长将变为10秒 D、1411kbps的含义是该音频的播放速率为每秒钟播放1411k位 -
20、一段视频保存为未经压缩的视频(不含音频)，其参数如图所示。
文件存储容量为2.94GB，则该视频时间长约( )
A、8秒 B、20秒 C、40秒 D、80秒