相关试卷
-
1、下列说法不正确的是（ ）A、浏览器的主要功能是解释执行HTTP语言 B、浏览器收藏夹收藏的是网页的URL C、网页文件可以通过Dreamweaver、FrontPage、记事本等软件编辑 D、把电子邮件发送到收件人的电子邮箱过程中需用到SMTP协议
-
2、第五届世界互联网大会于2018年11月7日至9日在浙江乌镇举行。主流媒体通过报纸、广播、电视、网络等多种方式以大量的文字、图片、音频、视频等进行报道。下列关于信息的说法不正确的是（ ）A、信息必须依附于载体才能被保存和传播 B、某人的微博中发布的一些小道消息可信度较低，不能随意转发 C、语言、文字、声音、图像、视频等是常用的信息表达技术 D、人们通过报纸、网络、电视等方式了解会议情况，说明信息获取的方法具有多样性
-
3、奇数n阶幻方是指由自然数1、2、…、n2组成的n×n的方阵，其中每个元素值都不相等，且每行、每列与对角线上的n个元素之和都相等。
N阶幻方的构造方法有很多种，下面是“右上方填数法”的算法：
⑴将1放在第一行中间一列；
⑵2~n2依次填在上一个数的右上方位置（即行减1列加1）：
若上一个数的行数为1时，则当前数的行数为n；
若上一个数的列数为n时，则当前数的列数为1。
⑶如果按上面规则确定的位置上已有数，则把当前数放在上一个数的下面。
例如当n为3时，如图a所示，1在第1行第2列，则2的位置为第3行第3列；
再如3在第2行第1列，则4的位置应为第1行第2列，但该位置已有数，因此4就放在3所在位置的正下面。
“左上方填数法”的方法类似于“右上方填数法”，以3阶幻方为例，“右上方填数法”和“左上方填数法”所构造的幻方如下图a、图b所示。
图a 右上方填数法
图b 左上方填数法
小明采用“左上方填数法”的方法设计了如下程序。
Private Sub Command1_Click()
Dim a(1 To 100) As Integer
Dimx As Integer,y As Integer,x1 As Integer,y1 As Integer
Dim n As Integer, s As Integer,pos As Integer, st As String
n = Val(Text1.Text)
For i = 1 To n * n
a(i) = 0
Next i
s = 1
x = 1
y = (n + 1) \ 2
a(y) = s
Do While ①
s = s + 1
x1 = x: y1 = y
x = x - 1
y = y - 1
If x < 1 Then x = n
If y < 1 Then y = n
If a((x - 1) * n + y) > 0 Then ② : y = y1
③
a(pos) = s
Loop
st = ""
For i = 1 To n * n
st = st + wid(a(i))
If i Mod n = 0 Then
List1.AddItem st
st = ""
End If
Next i
End Sub
'自定义函数wid的功能是使数字在方阵对齐
Function wid(p As Integer) As String
'代码省略
End Function
请回答下列问题：
(1)、采用“左上方填数法”构造5阶幻方，则方阵中第3行第4列应填入的数字为。(2)、请在划线处填入合适的代码。① ② ③
-
4、编写VB程序，功能为：单击“发牌”按钮“Command1”后，从一副扑克牌（不包括大王、小王、J、Q、K、A）中随机抽取5张牌，牌的花色（♠♥♣♦）忽略，显示在列表框“List1”中。如果这5张牌由一个对子和一个顺子（3张牌连续）组成，则在标签“Label1”中显示“运气不错:)”，否则显示“运气一般:|”。程序运行界面如图所示。
实现上述功能的VB程序如下：
Private Sub Command1_Click()
List1.Clear
Dim five(1 To 5) As Integer
Dim i As Integer, j As Integer, k As Integer
Dim p As Integer, find_pair As Boolean
'随机抽取5张牌，将牌的点数存储在数组five中，并在List1中显示。代码略
i = 5: p = 1: find_pair = False
Do While i>= 2
j=p
Do While j <= i - 1
If five(j) > five(j + 1) Then
t = five(j): five(j) = five(j + 1): five(j + 1) = t
ElseIf five(j) = five(j + 1) And Not find_pair Then
t = five(1): five(1) = five(j): five(j) = t
t = five(2): five(2) = five(j + 1): five(j + 1) = t
find_pair = True
i = i + 1
p = _____________
Exit Do
End If
j = j + 1
Loop
i = i - 1
Loop
k = 0
For i = 3 To 4
If
Then k = k + 1Next i
If five(1) = five(2) And k = 2 Then
Label1.Caption = "运气不错:)"
Else
Label1.Caption = "运气一般:|"
End If
End Sub
请回答下列问题：
(1)、窗体标题显示的文字为“对子和顺子”，是通过修改窗体的属性实现的。(2)、完善程序在划线处填写正确代码。(3)、程序代码中，加框处代码有错，请改正。(4)、单击“发牌”按钮随机抽取的5张牌为“2、1、2、3、2”，则在标签“Label1”中显示的是。（单选，填字母：A .运气不错:) / B .运气一般:|） -
5、小明创作主题为“图像数字化”的多媒体作品，请回答下列问题：
图a
(1)、使用Photoshop软件编辑“背景.psd”文件，当前状态如图a所示，以下说法正确的是_________（多选，填字母, ）。A、“草地”图层的图层样式均可见 B、不能直接修改“白云”图层中内容的大小 C、不可以直接设置“图像数字化”图层的滤镜效果 D、可用油漆桶修改“图像数字化”图层文字的颜色(2)、如图b所示“拟人卡通主板”图层第10帧到18帧的动画类型是。（单选，填字母：A .逐帧动画 / B .形状补间动画 / C .动画补间动画）
图b
(3)、测试场景时，“小女孩”图层的内容播放到11帧后消失，为了使该图层内容持续到50帧，正确的操作是。(4)、如图b所示，动画播放到50帧结束，“音乐”图层中的声音刚好完整播放一遍，则此音频素材时长约为秒。(5)、如图b所示，测试影片时动画播放到最后一帧时关闭放映动画，同时实现在浏览器中显示位于同一目录下“介绍.txt”的文件内容，则在最后一帧添加的动作命令为。 -
6、 使用Excel软件处理2019年1-3月36个大中城市蔬菜水果超市集市平均价格数据，区域D4:F23的单元格格式设置为“数值”，保留小数位数1位。如图a所示，请回答下列问题：
图 a
(1)、区域I4:K4中的数据是通过公式计算得到的：在I4单元格中输入公式 ， 再利用自动填充功能完成区域J4:K4的计算。(提示：AVERAGEIF 函数用于返回某个区域内满足给定条件的所有单元格的平均值。例如：=AVERAGEIF(A4:A23,"水果",D4:D23)用于计算1月份所有水果的平均价格。
(2)、对图a中数据进行筛选，筛选条件及正确操作后的筛选结果如图b所示，发现“胡萝卜”的数据也出现在了筛选结果中，原因是。
(3)、要找出图a所示每种蔬菜或水果价格最高的月份，合适的方法是____（单选，填字母）。A、使用MIN函数计算出1-3月每种蔬菜或水果价格的最大值 B、以B3:B23,D3:F23为数据区域创建柱形图 C、分别以“1月”、“2月”、“3月”为第一、二、三关键字排序表中数据 -
7、有如下VB程序段：
Private Sub Command1_Click()
Dim s As String, a As String, t As String
s = Text1.Text: t = ""
For i = 1 To Len(s)
a = Mid(s, i, 1)
If a >= "0" And a <= "9" Then
t = t + a
ElseIf a = "!" Then
t = ""
ElseIf t <> "" Then
List1.AddItem t
End If
Next i
End Sub
在文本框Text1中输入“12+23=35!456Ye”，单击按钮“Command1”后，在列表框List1中显示的结果是（ ）
A、
B、
C、
D、
-
8、有如下VB程序段：
Dim a(1 To 10) As Integer, b(5 To 10) As Integer
a(1) = 71: a(2) = 73: a(3) = 90: a(4) = 79: a(5) = 76
a(6) = 88: a(7) = 91: a(8) = 84: a(9) = 100: a(10) = 80
For i = 10 To 1 Step -1
b((a(i) - 1) \ 10) = b((a(i) - 1) \ 10) + 1
Next i
该程序段运行后，数组元素b(7)的值是（ ）
A、4 B、5 C、6 D、7 -
9、小虞编写了一个求数列、……前10项和的程序，VB程序段如下：
s = 1/2 + 2/3 : t = 1: b = 2
For i= 3 To 10
Next i
Label1.Caption = "前10项的和是：" + Str(s)
方框中的代码由以下四部分组成：
①b = r ②t = b ③r = t + b ④s = s + r/(r + b)
代码顺序正确的选项是（ ）
A、④③①② B、④③②① C、③④①② D、③④②① -
10、有如下VB程序段：
Private Sub Text1_Change()
Dim c As Integer, i As Integer
i=0
c = Val(Text1.Text)
Do While c >= 0
c = c - i
i = i + 1
Loop
Text1.Text = Str(c)
End Sub
在文本框输入“6”，执行该程序段后， 其中c >= 0执行的次数是（ ）
A、7 B、6 C、5 D、4 -
11、两个未经压缩的BMP图像文件A.BMP和B.bmp，其参数分别为800×600像素、32灰度级和1024×768像素、24位真彩色，则图像A.BMP和B.bmp存储容量之比约为（ ）A、1:3 B、1:8 C、4:5 D、4:3
-
12、下列做法有利于提高信息安全性的是（ ）A、安装、使用内测版地图APP B、卸载计算机中不常用软件 C、对重要数据进行定期备份 D、分享网盘中的文件或文件夹
-
13、小明创作主题为“图像数字化”的多媒体作品，请回答下列问题：
图a
(1)、使用Photoshop软件编辑“背景.psd”文件，当前状态如图a所示，以下说法正确的是__________（多选，填字母）。A、“草地”图层的图层样式均可见 B、不能直接修改“白云”图层中内容的大小 C、不可以直接设置“图像数字化”图层的滤镜效果 D、可用油漆桶修改“图像数字化”图层文字的颜色(2)、如图b所示“拟人卡通主板”图层第10帧到18帧的动画类型是。（单选，填字母：A .逐帧动画 / B .形状补间动画 / C .动画补间动画）
图b
(3)、测试场景时，“小女孩”图层的内容播放到10帧后消失，为了使该图层内容持续到50帧，正确的操作是。(4)、如图b所示，动画播放到50帧结束，“音乐”图层中的声音刚好完整播放一遍，则此音频素材时长约为秒。(5)、如图b所示，测试影片时动画播放到最后一帧时关闭放映动画，同时实现在浏览器中显示位于同一目录下“介绍.txt”的文件内容，则在最后一帧添加的动作命令为。 -
14、编写一个“二进制加法”程序，算法是从低位到高位逐位相加，逢二进一。程序运行界面如图所示。
(1)、要使程序运行时，文本框Text1的width属性值为1500，可在Form_Load事件处理过程中添加语句（单选，填字母：A .Text1.width=1500 / B .Text1.width str(1500) / C .Text1.AddItem 1500 ）(2)、实现上述功能的VB程序如下，请在划线处填入合适代码。Private Sub Command1_Click()
Dim m1 As String, m2 As String, sum As String ,t As String
Dim n1 As Integer, n2 As Integer, k As Integer, x As Integer
m1 = Text1.Text：m2 = Text2.Text
If Then t = m1: m1 = m2: m2 = t
x = Len(m1) - Len(m2)
Do While x > 0
m2 = "0" + m2
x = x - 1
Loop
n = Len(m1): sum = "": k = 0
Do While n > 0
n1 = Val(Mid(m1, n, 1))
n2 = Val(Mid(m2, n, 1))
sum = Str((n1 + n2 + k) Mod 2) + sum
n = n - 1
Loop
If k <> 0 Then sum = Str(k) + sum
Label4.Caption = sum
End Sub
(3)、若在文本框Text1和Text2中分别输入数据1101和101，单击“计算”按钮，计算结果显示为。 -
15、使用Excel软件处理2019年1-3月36个大中城市蔬菜水果超市集市平均价格数据，区域D4:F23的单元格格式设置为“数值”，保留小数位数1位。如图a所示，请回答下列问题：
图a
(1)、区域I4:K4中的数据是通过公式计算得到的：在I4单元格中输入公式 ， 再利用自动填充功能完成区域J4:K4的计算。(提示：AVERAGEIF 函数用于返回某个区域内满足给定条件的所有单元格的平均值。例如：=AVERAGEIF(A4:A23,"水果",D4:D23)用于计算1月份所有水果的平均价格。)
(2)、对图a中数据进行筛选，筛选条件及正确操作后的筛选结果如图b所示，发现“胡萝卜”的数据也出现在了筛选结果中，原因是。 (3)、要找出图a所示每种蔬菜或水果价格最高的月份，合适的方法是____（单选，填字母）。A、使用MIN函数计算出1-3月每种蔬菜或水果价格的最大值 B、以B3:B23,D3:F23为数据区域创建柱形图 C、分别以“1月”、“2月”、“3月”为第一、二、三关键字排序表中数据 -
16、在平面坐标系中，A点坐标为(25,35)，编写VB程序，计算一组给定点中，距离A点的最小距离。在文本框Text1中依次输入一组给定的坐标值，如3个点的坐标(10,15)、(45,18)、(32,40)输入示例如图所示，坐标值以逗号分隔、逗号结尾，单击“计算”按钮Command1后，程序运行结果显示在Label3中。
实现上述功能的VB程序如下，请在划线处填入合适代码。
Private Sub Command1_Click()
Dim i As Integer, n As Integer
Dim x As Single, y As Single, x1 As Single, y1 As Single
Dim d As Single, min As Single
Dim s As String, t As String
s = Text1.Text: x = 25: y = 35 'A点坐标
n = 0: min = -1: t = ""
For i = 1 To
If Mid(s, i, 1) = "," Then
n = n + 1
If Then
x1 = Val(t)
Else
y1 = Val(t)
d =
If min = -1 Then min = d
If d < min Then min = d
End If
t = ""
Else
t = t + Mid(s, i, 1)
End If
Next i
Label3.Caption = Str(min)
End Sub
-
17、使用Word软件进行文字处理，下列说法正确的是（ ）A、对文章进行修改后，开启“修订”功能可显示所有修改记录 B、将文档中多处出现的某段文字设置成红色，可用“替换”命令实现 C、将文档中多处出现的同一个错别字进行统一修改，可用“自动更正”功能实现 D、将Excel中制作的图表复制后，只能以图片的形式粘贴到Word文档中
-
18、小李和同学们在创作一个主题为“青青校园”的多媒体作品时，打算把作品做成“演示型”并通过网络发布，这一过程属于多媒体作品设计过程中的（ ）A、应用需求分析 B、创作需求分析 C、系统结构设计 D、功能模块设计
-
19、用UltraEdit软件观察字符的内码，部分界面如下图所示。
下列说法正确的是（ ）
A、字符“时代”的输入码为“CA B1 B4 FA” B、字符“！”的内码占1个字节 C、字符“50”的十六进制内码为“35 30” D、大写字母“K”的十六进制内码为“51” -
20、用Flash软件制作动画，其中“play”按钮元件的部分编辑界面如下图所示
下列操作中，仍不能使“play”按钮响应鼠标单击的是（ ）
A、选中“文字”图层的“点击”帧执行“删除帧”操作 B、选中“文字”图层的“点击”帧执行“清除帧”操作 C、选中“文字”图层的“点击”帧执行“清除关键帧”操作 D、选中“背景”图层的“点击”帧执行“插入帧”操作