相关试卷
-
1、小明启动IE浏览器后，自动访问图文并茂的某网页。此时，IE浏览器地址栏显示如图所示，下列描述不正确的是（ ）
A、地址栏中显示的是一个URL地址 B、通过HTTP协议将网页文件下载到本地计算机 C、网页index.html文件中包含了文字、图片和超链接 D、IE浏览器的主页设置为http：//zj.people.com.cn/GB/186938/186953/index.html -
2、下列有关信息的说法，正确的是( )A、微信中发送的文字和图片是信息 B、计算机内部可以直接使用十六进制处理信息 C、通过无线网络传输的信息不依附于任何载体 D、采用“指纹+密码”方式进行网上支付，可提高信息的安全性
-
3、编写VB程序，实现如下功能：单击“生成密文”按钮Command2，在文本框Text3中产生与每个小写字母对应的密文(每个明文字母对应1个不重复的密文字母)。在文本框Text1中输入单词字符串，单击“加密”按钮Command1后，进行逐个字符加密，加密方法：在“明文”中找到相应字符，再得到明文对应位置的密文，并在文本框Text2中显示对应密文(运行效果如图所示)。实现上述功能的VB代码如下，请完善程序代码。
Dim m2 As String
Private Sub Command1_Click()
Dim flag(1 To 26) As Boolean
Dim num As Integer，t As Integer
Randomize
num = 1
Text3.Text = “”
For i = 1 To 26
flag(i) = False
Next i
Do While num <= 26
x = Int(Rnd * 26) + 97
If flag(t) = False Then
m2 = m2 + Chr(x)
num = num + 1
End If
Loop
Text3.Text = m2
End Sub
Private Sub Command2_Click()
Dim s As String, m As String, result As String
Dim k As String, c As Integer
s = Text1.Text
m = “abcdefghijklmnopqrstuvwxyz”
For i = 1 To Len(s)
k = Mid(s, i, 1)
If k >= ”A” And k <= “Z” Then
k = Chr(Asc(k) + 32)
End If
c = 1: continue = True
Do While
If k = Mid(m, c, 1) Then
continue = False
End If
c = c + 1
Loop
Next i
Text2.Text = result
End Sub
-
4、有一个报数游戏， n个人排成一圈，游戏开始时规定一个报数号m，然后从其中一个人开始按顺时针报数1，2，3，…，n，当某人报到的数为m的倍数时，即被淘汰，其他人继续游戏，直到最后。现用VB设计了一个程序，程序界面如下图所示。在文本框Text1中输入参加游戏的人数n，在文本框Text2中输入报数号m，单击“报数”按钮，即在列表框List1中显示每次被淘汰的人的顺序号。
实现上述功能的VB代码如下，但加框处有错，请改正。
Private Sub Command1_Click()
Dim n As Integer, m As Integer
Dim a(1 To 50) As Integer
n = Val(Text1.Text)
m = Val(Text2.Text)
For i = 1 To n
Next i
s = 0；j = 0
Do While s < n
t = 0
Do While t < m
t = t + a(j)
Loop
a(j) = 0
s = s + 1
List1.AddItem “第” + Str(s) + “次：” + Str(j)
Loop
End Sub
(1)、“报数”按钮的对象名称是。(2)、程序代码中，加框处有错，请改正。(3)、程序代码中，横线处语句补充完整。(4)、程序运行结束后，变量t的值是。 -
5、小明制作主题为“荷花韵”的多媒体作品。他首先使用Photoshop软件制作一张背景图片，然后使用Flash软件制作动画。请回答下列问题：
图a
(1)、如图a所示，当前状态下，下列说法正确的有(多选，填字母：A . “荷花韵”图层设置了文字变形效果/ B . “圆荷”图层的图层样式均可视/ C . 将作品保存为PSD格式，可下次继续编辑图层信息/ D . “荷花”图层的不透明度是0%)。(2)、如图b所示，“蝴蝶1”图层第6帧到第36帧实现了蝴蝶从左向右飞行的动画效果，该动画类型为(填字：动画补间/形状补间/逐帧动画)。(3)、如图b所示，“音乐”图层第10帧的声音来自文件“liushui.mp3”。该场景动画播放到第36帧结束时，声音刚好完整播放一遍。由此可知该声音文件时间长度约为秒(保留1位小数)。
图b
(4)、为实现“蝴蝶2”图层与“蝴蝶1”图层中的蝴蝶实例同时开始播放，应对“蝴蝶2”图层进行的操作是。(5)、测试影片时，单击“退出”按钮，实现关闭动画。则“退出”按钮的动作脚本为。 -
6、某调查公司发布了喜马拉雅收听次数较多、评分较好的部分栏目，现使用Excel软件进行数据处理，界面如图a所示。
图a
请回答下列问题：
(1)、区域F4：F27的数据是通过对F3单元格进行自动填充得到的，则F19单元格中的公式为。(2)、要对“人文历史”类节目按“已播次数(万)”进行降序排序，应选中的排序区域是。(3)、若对图a中的数据按“已播次数(万)”和“评分”进行筛选，筛选条件均如图b所示，筛选得到的节目名称是。
图b
(4)、根据创建好的如图c所示的图表可以判断图表数据区域选择时，(选填：有/没有)包含B2和E2单元格的数据。
图c
-
7、以下VB 程序段的功能是：单击一次按钮Command1，在列表List1 中随机输出一行10个大小写字母。已知字母“A”和“a”的ASCII码值分别为65和97。
Private Sub Command1_Click()
Dim s As String, c As String, i As String, a As String, t As Integer
Randomize
s = “”
For i = 1 To 10
If a <= 26 Then
t = a + 64
Else
End If
c = Chr(t)
s = s + c
Next i
List1.AddItem s
End Sub
以上横线处的正确语句是( )
A、①a=Int(Rnd * 52 + 1) ②t = a + 70 B、①a=Int(Rnd * 52) ②t = a + 71 C、①a=Int(Rnd * 52 + 1) ②t = a + 72 D、①a=Int(Rnd * 52) ②t = a + 73 -
8、下列VB程序段实现求双重数列0，2，1，4，1，6，2，8，3，10，5，12，8，……前n项中的奇数项和。
Dim a(1 To 100)As Integer
n=Val(Text1.Text)
a(1)=0：a(3)=1
s=1
Next i
Text2.Text=Str(s)
方框中的代码由以下三部分组成：
①a(i)=a(i-2)+a(i-4)
②s=s+a(i)③For i=5 To n Step 2
代码顺序正确的选项是( )
A、①②③ B、③②① C、②①③ D、③①② -
9、对用户输入的字符串进行解密的 VB 程序段如下：
s = Text1.Text
For i = 1 To Len(s)
ch = Mid(s, i, 1)
nk = Asc(ch) - i
If nk < 0 Then nk = nk + 127
Text2.Text = Text2.Text + Chr(nk)
Next i
已知大写字母A的ASCII码值为65，小写字母a的ASCII码值为97，在文本框Text1中输入内容“yhT5”，执行程序段后，文本框Text2显示的内容为( )
A、YHt5 B、xgS4 C、zjW9 D、xfQ1 -
10、下列有关多媒体技术的说法正确的是( )A、任何多媒体作品都具有交互性这个特征 B、多媒体作品的规划设计阶段可以分为模块设计和脚本设计 C、多媒体中存在冗余越少，采用多媒体技术压缩后文件的压缩比越大 D、多媒体数据的压缩技术可以允许存在少量误差和去除冗余，因此该压缩属于有损压缩
-
11、小陈使用Word软件，对文档的部分内容进行了以下修改，下列描述不正确的是( )
A、该文档第1处批注内容为：“2017年” B、当前状态下仅有1位用户对该文档添加批注 C、拒绝所有修订后，第7行部分文本内容为：“19”代表的是最大载客量为1 900座 D、接受所有修订后，第1行部分文本内容为：2017年这个春天，中国注定吸引世界目光 -
12、下列有关信息的说法，错误的是( )A、传递和获得信息的途径可以有多种 B、信息的编码与解码需要遵守一定的原则和方法 C、信息的来源不同导致获取的方法也存在差异 D、微信中转发他人朋友圈链接，无需承担相关法律责任
-
13、给出只包含加、减、乘、除中一个运算符的算术等式，求该算术等式中的最小进制。如等式6*9=42，该等式中的数字均属于13进制。推算的算法是：
1)找出等式中单个数字的最大值；
2)从最大值加1的数制开始，按该数制的运算规则，把等式中所有数字转换成十进制数；
3)如果等式两边的结论是成立的，那么该数制就是符合上述等式的最小数制，否则从下一个数制重新计算，直到十六进制为止。
小明为此编写了一个VB程序，程序运行时，在文本框Text1中输入一个等式，单击“计算”按钮Command1，在文本框Text2中显示该等式中数字所属的数制。程序运行界面如下图所示。
(1)、根据上述算法，则等式“5+7=13”成立，则该等式中的数属于进制数。(2)、实现上述功能的VB程序如下，请在划线处填入合适的代码。Private Sub Command1_Click()
Dim s1 As String, ysf As String, t1 As String, t2 As String, t3 As String
Dim ch As String, t As String, max As Integer, jz As Integer, i As Integer
s1=Text1.Text
t1=0: max=0
For i=1 To Len(s1)
ch=Mid(s1, i, 1)
If ch=“+” Or ch=“-” Or ch=“*” Or ch=“\\” Then
ysf=ch: t1=t: t=“ ”
ElseIf ch=“=” Then
t2=t: t=“ ”
ElseIf ch >= “A” And ch <= “F” Then
t=t+ch
temp=
If max < temp Then max=temp
Else
t=t+ch
If max < Val(ch) Then max=Val(ch)
End If
Next i
t3=t: jz=0
Do While i <= 16
If ysf=“+” Then
If XtoD(i, t1)+XtoD(i, t2)=XtoD(i, t3) Then jz=i: Exit Do
ElseIf ysf=“-” Then
If XtoD(i, t1) - XtoD(i, t2)=XtoD(i, t3) Then jz=i: Exit Do
ElseIf ysf=“*” Then
If XtoD(i, t1) * XtoD(i, t2)=XtoD(i, t3) Then jz=i: Exit Do
Else
If XtoD(i, t1) / XtoD(i, t2)=XtoD(i, t3) Then jz=i: Exit Do
End If
i=i+1
Loop
If jz <> 0 Then
Text2.Text=“该数属于” +Str(jz)+ “进制”
Else
Text2.Text=“没有找到合适的进制”
End If
End Sub
Function XtoD(x As Integer, s As String) As Integer
Dim j As Integer
j=0
For i=Len(s) To 1 Step -1
XtoD=XtoD+Val(Mid(s, i, 1)) * x ^ j
Next i
End Function
-
14、如果两个质数的差为2，则这两个质数称为孪生质数对；编写VB程序，实现如下功能：单击“显示孪生质数对”按钮Command1，在列表框List1中显示100以内的所有孪生质数对(运行效果如图所示)。
实现上述功能的VB代码如下。
Dim a(1 To 50) As Integer
Private Sub Command1_Click()
Dim i As Integer
k = 0：i = 3
Do While i <= 100
If Not prime(i) Then
k = k + 1
End If
i = i + 2
Loop
For i = 2 To k
If ① Then
List1.AddItem Str(a(i-1)) +“和” + Str(a(i))
End If
Next i
End Sub
Function prime(x As Integer) As Boolean
prime = False
For i = 2 To Int(Sqr(x))
If x Mod i = 0 Then
prime = True
Exit For
End If
Next i
End Function
(1)、语句“List1.AddItem Str(a(i-1))+“和”+Str(a(i))”中的AddItem是(单选，填字母：A . 对象名/B . 属性名/C . 事件名/D . 方法名)。(2)、程序代码中，加框处有错，请改正。(3)、程序代码中，将①处语句补充完整。(4)、在自定义函数中，函数返回值prime=Flase表示的含义是。 -
15、小林创作多媒体作品，请回答下列问题。(1)、使用Photoshop软件制作一张背景图片，如下图所示。
若要使图a“湖．psd”中“gz”图层中鸽子出现在夏日．psd中，下列操作可行的是。
图a
(多选，填字母：A . 使用“复制图层”命令将“gz”图层复制到夏日.psd中 /B . 将 “gz”图层直接通过鼠标拖到夏日．psd中 /C . 使用魔棒工具(容差为5)选中“gz”图层中的图像并进行拷贝后复制粘贴到夏日.psd中 /D . 选中 “gz”图层后，执行“全部”选择操作，进行拷贝，在夏日.psd中粘贴。)
(2)、使用Flash软件制作动画，时间轴如图b所示。
图b
小林在“鸽子”图层第50帧设置了动作脚本“stop( )”若要使“声效”图层中的声音在动画播放到第50帧后，仍能持续播放完毕，可设置该声音的同步为(选填：事件/数据流)。
(3)、在“鸽子”图层制作鸽子文字渐变成一只鸽子的补间动画，该动画属于(选填字母：A.逐帧/ B．动画补间/ C．形状补间)动画。(4)、如图b所示，当前在“按钮”图层第50帧应用了“静音”按钮，若要使该按钮始终在当前场景呈现，可进行的操作是。(5)、若单击“静音”按钮，停止所有声音的播放，则在该按钮上需添加的动作脚本是。 -
16、学校对各班级的文艺汇演成绩做了评分，并利用Excel软件进行数据处理，部分界面如图a所示。
图a
(1)、用公式计算出各班级得分，可在I3单元格输入公式，再利用自动填充得到其他班级得分，则I6单元格上的公式为。(2)、将各年级最后得分最高的班级设为该年级的一等奖，下列方法可得到高二年级一等奖班级的是__________(多选，填字母)。A、选择区域B8：I12，再按“列I”为关键词进行降序排序后，该区域的第1 条记录为高二年级一等奖班级 B、先筛选出“班级”开头是“高二”的记录，再筛选出“最后得分”为最大1 项的记录，筛选结果即为高二年级一等奖班级 C、先筛选出“最后得分”为最大1 项的记录，再筛选出“班级”包含“高二”的记录，筛选结果为高二年级一等奖班级 D、先按“最后得分”升序排序，再筛选出“班级”包含“高二”的纪录，最后一条记录为高二年级一等奖班级(3)、根据数据表中的数据制作的图表如图b所示，创建该图表的数据区域为。
图b
-
17、已知直角三角形的斜边长度，利用对分查找算法计算其他两条整数边长的VB程序段如下：
flag = True : p = 0
Key = 5
For i = 1 To Key - 1
L = i
Do While
M = (L + R) \2
p = p + 1
If i * i + M * M < Key * Key Then
L = M + 1
ElseIf i * i + M * M > Key * Key Then
R = M - 1
Else
Text2.Text = Str(i) + “” + Str(M) + “” + Str(key)
flag = False
i = Key
End If
Loop
Next i
If flag Then Text2.Text = “没有符合条件的整数勾股数对！”
上述程序段2个划线处的代码分别为( )
A、①R=Key-1 ②L<=R And flag B、①R=Key ②L<=R And flag C、①R=Key – 1 ②L<=R Or flag D、①R=Key – 1 ②L<=R And flag=False -
18、某同学编写了一个VB程序，功能为在文本框Text1中输入英文字符串，单击“转换”按钮Command1，文本框Text1中的大写英文字母转换为小写，结果显示在文本框Text2中。部分程序段如下：
s1 = Text1.Text
s2=“”
For i=1 To Len(s1)
ch=Mid(s1, i, 1)
If ch>=“A” And ch<=“Z” Then
′提示：“A”的ASCII码值为65，“a”的ASCII码值为97
End If
s2=s2 & ch
Next i
Text2.Text = s2
要使程序实现上述功能，则方框中的代码是( )
A、ch = Chr(Asc(ch) + 32) B、ch = Asc(Chr(ch) + 32) C、ch = Chr(Asc(ch) - 32) D、ch = Str(Val(ch) - 32) -
19、有如下VB程序段：
For i = 4 To 3 Step -1
If a(i) < a(i-1) Then
tmp = a(i)
For j = i-1 To 1 Step -1
If tmp > a(j) Then Exit For
a(j+1) = a(j)
Next j
a(j+1) = tmp
End If
Next i
数组元素 a(1)到 a(6)的值依次为“19，8，96，92，85，88”，经过该程序段“加工”后，数组元素 a(1)到 a(6)的值依次为( )
A、8，19，92，96，85，88 B、8，19，85，88，92，96 C、19，8，92，96，85，88 D、19，8，85，92，96，88 -
20、有如下VB程序段：
a(1) = 1
For i = 2 To 6
a(i)=a(i-1)+Int(Rnd*5+1)
If a(i) Mod 2 = 1 Then
a(i) = a(i) \2 + 1
Else
a(i) = a(i) / 2
End If
Next i
执行程序后，a数组各元素可能是( )
A、1 3 4 6 7 9 B、1 2 0 3 5 6 C、1 2 3 4 5 4 D、1 3 4 5 1 1