相关试卷
-
1、某品牌无人机的参数如图所示：
下列关于无人机说法不正确的是（ ）
A、支持Android4.3及以上和IOS8.0以上操作系统 B、照片拍摄具有连拍功能 C、带GPS定位系统 D、照片最大分辨率是640*480 -
2、下列关于信息的说法正确的是（ ）A、手语是一种信息表达技术 B、一条信息只能依附于一个载体 C、书本是信息的载体，文字是信息 D、信息可以被重复使用而不会像物质和能源那样产生损耗
-
3、下列关于信息处理的描述，错误的是（ ）A、只有计算机才能进行信息处理 B、计算机进行信息处理通常需要软件支持 C、只有数字化后的信息才能被计算机处理 D、算术运算和逻辑运算是计算机处理信息的基本运算
-
4、小王编写了一个实现文字查找替换功能的VB程序，运行界面如图所示。文本框Text1显示原文内容，Text2中输入查找内容，Text3中输入替换内容，单击“全部替换”按钮Command1后，Text4显示查找替换的结果，Text5中显示替换的次数，Text6显示“查找内容”在原文中的起始位置。
Private Sub Command1_Click()
Dim s As String, resule As String, pos As String
Dim count As Integer, i As Integer
i = 1: count = 0: resule = "": pos = ""
Do While i <= Len(Text1.Text) ‘ i 是查找过程中所查找到的当前字符位置的标记
s = Mid(Text1.Text, i, Len(Text2.Text))
If s =Thenresult = result + Text3.Text
count = count + 1
pos = ‘pos 依次显示被替换内容在原文中的起始位置
i = i + Len(Text2.Text)
Else
result=result+Mid(text1.text,i,1)
End If
Loop
Text4.Text = result
Text5.Text =
Text6.Text = pos
End Sub
-
5、奇偶校验是一种校验数据传输正确性的方法。其中奇校验方法：统计二进制数据的数位中“1”的个数，若个数为奇数，则校验位值为0，否则校验位值为1。小李编写了一个计算奇校验位值得VB程序，功能如下：在文本框Text1中输入1～255十进制待校验数，单击“计算”按钮Command1后，在文本框Text2中显示该数对应的二进制值，并在标签Label3中显示该数的校验位值。程序运行界面如图所示。(1)、在设计程序界面时，要清空文本框中的显示内容，应修改该文本框中的属性，要修改窗体的标题，应该应修改该窗体的属性。(2)、实现上述功能的VB程序如下，请在划线处填入合适代码。
Private Sub Command1_Click()
Dim a As Integer, s As String
Dim n As Integer, t As Integer, v As Integer
n = Val(Text1.Text)
t = 0
s = ""
Do While n > 0
a = n Mod 2
n = n \ 2
t =
s = Str(a) + s
Loop
v = t Mod 2
Text2.Text = s
Label3.Caption = "校验位值：" +
End Sub
(3)、运行该程序，在文本框Text1中输入22，单击“计算”按钮，则显示的校验位值是 。
-
6、小李使用Flash软件创作“花中君子”多媒体作品。请回答下列问题：(1)、作品的模块设计框架图如图a所示，将各功能模块和主交互界面都设计成独立场景。各功能模块的场景播放完成后自动停止，单击“返回”按钮，返回主交互界面。下列说法正确的是 （多选，填字母）。
图 a
A、主交互界面中包含5个功能模块 B、主交互界面中按钮的应用体现了多媒体技术的交互性 C、各功能模块场景的最后一帧可添加帧动作脚本stop()； D、各功能模块场景中“返回”按钮上可添加动作脚本on（release）{gotoAndStop(1); }(2)、“竹之韵”场景的编辑界面如图b所示，“轻舟”图层中的小船是“舟”元件的实例。“舟”元件是在当前场景中通过绘制船形状并转换为图形元件后生成的，“舟”元件中的船是（选填：位图/矢量图）。若调整小船实例的大小，则“舟”元件（选填：会/不会）同步变化。
图 b
(3)、“轻舟”图层中实现了小船从起始位置1移动到终止位置2的动画，位置1、2及其坐标（X,Y）值如图b所示。下列关于小船动画的描述正确的是 （多选，填字母）。A、测试场景时，小船沿水平方向匀速移动 B、小船动画的补间类型为“动画”，移动时间约为4.5秒 C、若将小船动画的缓动值调整为100，测试场景时，小船移动总时长将增加 D、若在当前图层第15帧插入关键帧，测试场景时，小船从第1帧到第15帧没有移动 E、若将小船起始坐标改为（150,200），测试场景时，小船移动将变快(4)、“文字”图层的第30帧和第36帧均为关键帧。测试场景时，为了使“文字”图层第31帧到第35帧中的内容完全消失，其他动画效果保持不变，应进行的操作是。 -
7、小李收集了手机网民互联网应用的用户规模数据，并用Excel软件进行数据处理，如图a所示。
请回答下列问题：
图 a
(1)、为计算图a中的“相对2017年12月的增长率（%）”，小李已正确计算了单元格G4中的数据。他希望将单元格G4中的公式向下自动填充至单元格G13，再将区域G4：G13中的公式向右自动填充至I列，从而正确计算出区域G4:I13中的数据，则单元格G4中的公式应修改为。(2)、根据图a中数据制作的图表如图b所示，创建该图表的数据区域是A3：A5，C3：F5，A8，。
图 b
(3)、为了获得“商务交易”类别中2020年3月用户规模最大的数据，并显示在操作结果的最前面（紧邻第3行），一种可行的操作是：选择数据区域A3：F13后，对该区域（选填2个序号，按操作顺序）。①以“2020年3月”为关键字进行降序排序
②以“类别”为关键字（按字母排序）进行降序排序
③按“类别”进行筛选，选择的值为“商务交易
④按“2020年3月”进行筛选，选择“10个最大的值”并显示最大的 1 项
-
8、有如下程序段：
Const n = 10
Dim a(1 To 10) As Integer
m = Int(Rnd * n + 1)
For i = 1 To 10
a(i) = 0
Next i
i = 0: j = 0: c = 1: ans = ""
Do While c <= 3
i = i Mod n + 1
If a(i) = 0 Then j = j + 1
If j = m Then
a(i) = 1: c = c + 1
j = 0: ans = ans + Str(i)
End If
Loop
Text1.Text = ans
执行上述程序段后，文本框Text1中不可能的内容是（ ）
A、2 4 6 B、7 4 2 C、5 10 6 D、6 2 8 -
9、对称宇符串的特征是从左到右读和从右到左读完全一样的。如“abba”是对称的，“abcba”也是对称的。判断字符串是否对称的VB程序段如下:
n=Len(s)
k=0:j=n
For i = 1 To n/2
Next i
If k = 0 Then Label1.Caption =“对称” Else Label1.Caption=“不对称”
方框中的代码由以下三部分组成：
① j=j-1
② If c1<>c2 Then k = k + 1
③ c1= Mid(s, i, 1) : c2 = Mid(s, j, 1)
代码顺序正确的选项是( )
A、①③② B、②③① C、③②① D、②①③ -
10、若x是整型变量，下列选项中，与表达式Not（x>=5 And x<9）等价的是( )A、x<5 And x>= 9 B、Not x > 5 And Not x< 9 C、x >= 5 Or x< 9 D、x<5 Or x >= 9
-
11、将一个时长为1分钟、采样频率为44.1kHz、量化位数为16bit、双声道未经压缩的Wave格式音频文件压缩为MP3格式文件，压缩后的MP3格式文件大小为940KB，则其压缩比约为( )A、11 : 1 B、11 : 2 C、11：4 D、88 : 1
-
12、使用GoldWave软件编辑某音频文件，选择其中一段音频后的部分界面如图所示。( )
A、插入10s静音后，右声道时长仍为40s B、选择声道为双声道后按原格式保存，声音文件存储容量翻倍 C、执行“剪裁”操作后，整个音频只剩下当前选中的部分 D、执行“更改音量”操作后，只有当前选中的声音音量发生改变 -
13、某动画“起源”场景的制作脚本如表所示。
下列说法正确的是 ( )
A、编写制作脚本前，需先完成媒体元素的分解工作 B、本动画所有场景的制作脚本完成后再编写文字脚本 C、“起源”场景播放完后，将自动关闭动画放映 D、“返回”按钮在“太阳”动画结束时出现 -
14、下面VB程序完成将一个四位数的百位和十位交换，个位和千位交换的任务，如输入1954，输出4591。程序运行界面如图所示，在文本框Text1中输入某四位数，单击“切换”按钮Comd1，在文本框Text2中输出转换后的结果。请将程序补充完整。
Private Sub Comd1_Click()
Dim k As Integer, n As Integer
Dim a, b, c, d As Integer
k = Val(Text1.Text)
a = k \ 1000
b =
c =
d = k Mod 10
n = d * 1000 + c * 100 + b * 10 + a
Text2.Text = Str(n)
End Sub
-
15、对下列数字按要求进行进制转换：(1)、D8H转换成10进制(2)、81H转换成2进制(3)、A3H转换成10进制(4)、56转换成2进制
-
16、现要求刚好输出1至100内所有能被7整除的数字，下列哪段程序不能实现（ ）A、
B、
C、
D、
-
17、阅读下面程序：
Dim i As Integer, c As String, s As String, t As String
s=“GaoEr1YueXKChongA！”
For i = 1 To Len(s)
c=Mid(s, i, 1)
If c >= “A” And c<=“Z” Then t=t+c
Next i
Text1.Text = t
程序运行结束后是在文本框Text1中输出的结果是（ ）
A、GEYXKCA B、aoeuehong C、ACKXYEG D、gnoheueoa -
18、有如下VB程序段：
s=0 : i=1
Do While
s=s+i
i=i+1
Loop
执行该程序段后，变量s的值等于10，则程序方框处的语句是（ ）
A、i < 5 B、i <= 5 C、i = 4 D、i <= 6 -
19、有如下VB程序段，执行该程序段后，文本框Text1中显示的内容是（ ）
s = 2: k = 1
If Not k = s Then s = s + k Else s = 0
Text1.Text = Str(s)
A、0 B、1 C、2 D、3 -
20、有如下程序段，运行时程序出现如下错误提示，出错语句的位置是（ ）
Private Sub Command1_Click()
Dim i As Integer
Dim a(10) As Integer ‘①
For i = 1 To 10 ‘②
a(i) = Rnd * 100 ‘③
Next i
Label1.Caption = Str(a(i)) ‘④
End Sub
A、① B、② C、③ D、④