相关试卷
-
1、某密码的破译步骤如下：
⑴找出文章(以“.”结束)中所有用英文表示的数字(均为小写，数字范围1≤n≤20)，单词与数字对应如下：
单词
one
two
three
four
five
six
seven
eight
nine
ten
……
twenty
数字
1
2
3
4
5
6
7
8
9
10
……
20
⑵将这些数字平方后除以100取余，得到两位数如00,04,21,96。
⑶把这些两位数按升序排成一行，组成一个最小的新数，如果新数开头为0，就去除。
⑷步骤(3)找出的最小数即为密码。
小明按照上述方法，设计了一个解密的VB程序，功能如下：单击“解密”按钮Command1，程序依次将文本框Text，1中以空格分隔的每个英文单词取出，若单词属于数字单词，则按解密步骤进行处理，最后在文本框Text2中输出解密结果。
程序运行效果如图所示，请回答下列问题：
(1)、若文章内容为“tom bought two apples and five oranges, which cost ten dollars altogether.”,则破译后的密码应为。(2)、请在划线处填入合适的代码。Dim a(1 To 20) As String
Private Sub Form_Load()
a(1) = "one": a(2) = "two"
'……将所有数字单词按顺序存入数组a中，代码略
End Sub
Private Sub Command1_Click()
Dim s As String, tmp As String
Dim c as Integer,i As Integer, j As Integer, k As Integer, t As String, ch As As String,code As Long
Dim b(1 To 100) As String 'b数组存放数字单词处理后得到的两位数
s = Text1.Text
c = 0: i = 1: flag = True:t = ""
Do While i <= Len(s)
ch = Mid(s, i, 1)
If ch >= "a" And ch <= "z" Then
t = t + ch
flag = False
ElseIf flag = False Then
For j = 1 To 20
If t = a(j) Then
c = c + 1
b(c) =
End If
Next j
t = ""
flag = True
End If
i = i + 1
Loop
'将b数组中的两位数按数值大小进行升序排序，代码略
For i = 1 To c
t = Val(b(i))
Next i
Text2.Text = Str(code)
End Sub
Function decode(num As Integer) As String
Dim mo As Integer
mo = num * num Mod 100
If mo = 0 Then
decode = "00"
ElseIf Then
decode = "0" + Trim(Str(mo))
Else
decode = Trim(Str(mo)) 'Trim为去除字符串两端空格的函数
End If
End Function
-
2、编写“二进制数转换为十六进制数”程序，实现如下功能：在文本框 Text1 输入一个二进制数，单击“转换”按钮 Command1，将二进制数转换为十六进制数并在文本框 Text2 中显示。程序运行界面如下图所示。
(1)、设计如图所示的程序界面，至少要使用个类（填数字）。(2)、实现上述功能的 VB 程序如下，请在划线处填入合适的代码。Private Sub Command1_Click()
Dim s1 As String, s2 As String
Dim i As Integer, x As Integer
Const code="0123456789ABCDEF"
s1=Text1.Text
s2=""
Do While Len(s1) Mod 4<>0
s1="0"+s1
Loop
x=0
i=1
Do While i<=Len(s1)
x=x*2+Val(Mid(s1,i,1))
i=i+1
If Then ‘①
s2=s2+Mid(code,x+1,1)
‘②
End If
Loop
Text2.Text=s2
End Sub
(3)、若文本框 Text1 中输入的内容为“101101”，单击“转换”按钮后，文本框Text2中显示的内容是。 -
3、小明创作主题为“春天气息”的多媒体作品。请回答下列问题：(1)、在制作作品前，小明进行了相应的分析和规划。下列说法正确的是（多选，填字母：A .将作品结构划分为片头、主交互界面、片尾三个主要界面，主交互界面包含“春风”和“春雨”两个模块，这属于系统结构设计/B .确定选择Flash软件来合成作品，属于应用需求分析/C .将所需的原始素材列成表格，确定获取原始素材的方式并分类登记，属于脚本设计/D .在设计“春雨”模块时，在屏幕布局、文字、颜色、音乐、交互的设计进行规范，属于功能模块设计）。
(2)、图中舞台的大小为550*400像素，测试影片时，前两秒诗句实例（宽：160，高:180）从舞台外左侧向舞台内移动直到停在舞台中，则“诗句”图层第1帧中实例的位置坐标（X，Y）为（单选，填字母：A .（0，0）/B .（160，-80）/C .（-160，90）/D .（550，90））。(3)、测试场景时，“雨”图层中的动画在“诗句”补间动画结束时才出现，为了实现与“诗句”图层的补间动画同时出现，需对“雨”图层进行的操作是。(4)、测试影片时，单击“春雨”场景中“返回”按钮，停止播放所有声音，影片跳转到“主交互界面”场景第1帧并停止播放，则“返回”按钮的动作脚本为。(5)、将该动画导出为下列格式，仍具有交互功能的是。（单选，填字母：A . EXE/B . AVI/C . GIF） -
4、某连锁超市收集了城北路店2017年某月部分水果销售数据，并用Excel软件进行数据处理，如下图表格所示。请回答下列问题：
(1)、若将上图表格中的F3:F11数据格式设置为两位小数，则单元格F12中的数据（选填：会/不会）发生改变。(2)、将上图表格中的区域A1:G11的数据复制到新工作表中，在新工作表中对“数量”和“利润”两列数据进行筛选操作，筛选设置均如下图所示，则筛选出的水果名称为。
(3)、根据表格中的数据制作图表如下图所示，则该图表的数据区域为。
(4)、根据“利润”列数据，用RANK函数和自动填充功能，在区域G3:G11中计算各水果利润的名次，则G3中的公式为。（提示：RANK函数用于计算某数字在一列数字中相对于其他数字的大小排名。例如：=RANK（A3，$A$3:$A$11）表示A3单元格中的数字在A3:A11中的排名）
-
5、有如下VB程序段：
i=1: j=10: flag=True: n=0
Key=Val(Text1. Text)
Do While i < =j And flag= True
m=(i+j)\2
If a(m)= Key Then
flag = False
Else If a(m)> Key Then
i = m+1:n= n - 1
Else
j = m – 1:n = n+1
End If
Loop
数组元素a(1)到a(10)依次是99，94，90，87，70，69，60，56，45，36，变量n的值最终是0，则文本框Text1输入的数字可能是（ ）
A、100 B、87 C、69 D、41 -
6、某对分查找算法的VB程序段如下：
i=1: j=6: n=0: f= False
key=Val(Text1. Text)
Do While i < = j And f = False
n=n+1
m=(i+j)\2
If key=d(m) Then f = True
If key < d(m) Then j = m-1 Else i=m+1
Loop
数组元素d(1)到d(6)的值依次为“13，18，25，30，35，59”。文本框Text1中输入33后运行该程序，运行结束后下列说法不正确的是（ ）
A、变量f的值为False B、变量i的值为5 C、变量m的值为4 D、变量n的值为2 -
7、某同学在VB中编写了如下程序：
Private Sub Command1 Click()
Label2 Caption = trans(Val(Text1. Text),Val(Text2. Text))
End Sub
Function trans(n As Integer, k As Integer) As String
If n< >0 Then
r = n Mod k
trans = trans(n\ k, k)+Str(r)
Else trans = 0
End If
End function
程序运行时，在文本框Text1和Text2中分别输入11和3，则Label2中的输出结果是（ ）
A、102 B、201 C、3 D、113 -
8、有如下VB程序段：
Dim a(1 To 6) As Integer
Sum =0
For i= 1 To 6
For j = i+1 To 6
If j Mod i =0 Then a(j)=1 – a(j)
Next j
Next i
For i=1 To 6
Sum Sum+ Str(a(i))
Next i
Text1. Text = Str(Sum)
该程序段运行后，文本框Text1中显示的内容是（ ）
A、3 B、4 C、5 D、6 -
9、已知a=-2，b=5，c=8，下列表达式的值为False的是（ ）A、a+b>b-c And a-c<a-b B、a+c>b-c or Not b<c C、a<c\b Or b>c And a<c D、c mod a<a-b
-
10、使用Photoshop软件编辑某图像的部分操作界面如图所示。
在当前状态下，下列说法正确的是（ ）
A、使用“仿制图章”工具可以把“蝴蝶”图层中的对象仿制到“布”图层中 B、可以直接对“放飞思想”图层设置“风”滤镜 C、交换“放飞思想”图层与“蝴蝶”图层的顺序，会影响图像效果 D、将作品存储为BMP格式文件，“放飞思想”文字会呈现“投影”效果 -
11、使用GoldWave软件对某音频文件进行处理，部分界面如图所示。
下列说法正确的是（ ）
A、352 kbps的含义是该音频每秒钟播放352千字节 B、单击“删除”按钮后再插入4秒的静音，按原参数保存，该音频文件的存储容量不变 C、单击“剪裁”按钮后再插入4秒的静音，按原参数保存，该音频文件的存储容量增大 D、执行“更改音量”命令将音量升高后，按原参数保存，该音频文件的存储容量增大 -
12、使用Access软件创建一张数据表，其设计视图界面如图所示，下列说法正确的是（ 0
A、当前状态下，可以对数据表“图书信息”重命名 B、该视图中，右表删除一行，则其数据表的记录总数会相应减少一条 C、在“图书信息”数据表中，可以包含图书名称相同的两条记录 D、存储“借出”字段值需要1个字节 -
13、关于信息及信息安全，下列说法或做法不正确的是（ ）A、信息无处不在，通过加工处理后的信息不存在虚假之分 B、物联网将现实世界数字化，它是新一代信息技术的重要组成部分 C、对朋友圈里的信息点赞属于信息的个人推荐评价 D、在微信、论坛里不要随便转发会造成社会不良影响的信息
-
14、从原点（0，0）出发，顺时针旋转，经过平面上所有整点恰好一次，我们称之为螺旋折线，如图所示。对于整点（x，y），我们定义它到原点的距离是从原点到（x，y）的螺旋折线段的长度。例如：x=0，y=1，则螺旋折线段的长度为3；x=-2，y=-1，则螺旋折线段的长度为9。
现要求计算从原点到整点（x，y）螺旋折线段的长度。小王根据上述描述设计如下VB程序，请回答下列问题：
(1)、从原点到整点（4，0）螺旋折线段的长度为。(2)、请在画线处填入合适的代码。Dim x As Integer, y As Integer 'x用于存储横坐标的值,y用于存储纵坐标的值
Private Sub Command1_Click()
Dim sum As Integer, m As Integer
Dim dx As Integer, dy As Integer
Dim i As Integer, t As Integer
x=Val(Text1. Text)
y =Val(Text2. Text)
dx = 0:dy=0
sum=0
m=1:t=-1
Do While not check(dx,dy)
For i=1 To m
If check(dx,dy)Then exit do 'Exit do表示退出Do循环
dx = dx+t
sum = sum+1
Next i
For i=1 To m
If check(dx,dy) Then Exit Do
sum = sum + 1
Next i
m=m+1
Loop
Label1. Caption= Str(sum)
End sub
Function check(xl As Integer,y1 As Integer)As Boolean
check = False
If x1=x And y1=y Then
End If
End function
-
15、小李利用所学的VB知识，编写了一个简单计算器：在文本框 Text1 中输入一个加减算式（只包含数字和“ +”、“ -”符号，以“ =”结束），点击“计算”按钮 Command1，计算结果在标签 Label1 上显示。程序运行界面如下图所示：
(1)、要实现程序运行时，单击文本框 Text1 即可将文本框清空 ， 则应在(A . Command1_Click/B . Form_Load/C . Text1_Click)事件处理过程中添加语句Text1.text=“”)。(2)、实现上述功能的VB程序如下，请在划线处填入合适的代码Private Sub Command1_Click
Dim s As String, ch As String, sum As Integer
Dim fh As Integer
s = Text1.Text: fh = 1: p = 0: sum=0
For i = 1 To Len(s)
ch = Mid(s, i, 1)
If ch >= "0" And ch <= "9" Then
p =
Else
sum =
p = 0
If ch = "-" Then
fh = -1
ElseIf ch = "+" Then
fh = 1
End If
End If
Next i
Label1.Caption = Str(sum)
End Sub
(3)、若文本框 Text1 中输入的内容为“ 12*10=”（不包括双引号），单击“计算”按钮后，标签Label1 上将显示：（A . 120 / B . 22 / C . 0 /D .程序出错无法显示） -
16、小王制作主题为“和谐韵味”的多媒体作品，首先使用Photoshop软件处理图片，然后使用Flash软件制作动画。请回答下列问题：(1)、如图a所示，当前状态下，下列对“文字”图层操作可行的是（多选，填字母：A .使用“文字工具”修改文字的字体/B .使用“自由变换”工具更改文字的字体大小/C .使用“油漆桶”工具直接修改文字的颜色/D .使用“仿制图章”工具，仿制文字内容到“倒影”图层）
(2)、如图b所示，“滴墨成字”图层中第10帧到第40帧实现了由小墨点逐渐变成汉字“谐韵”的动画效果，则该图层第40帧上对象的类型为（单选，填字母：A .位图/B .影片剪辑/C .形状/D .静态文本）。
(3)、库中“蝴蝶”元件实现了蝴蝶挥动翅膀的动画效果，如图c所示，“飞舞”图层中实现该元件从舞台坐标（80，150）运动至（500，300）的效果。测试场景时，蝴蝶将（单选，填字母：A .不挥动翅膀向右下方运动/B .不挥动翅膀向右上方运动/C .挥动翅膀向右上方运动/D .挥动翅膀向右下方运动）。
(4)、“音乐”图层中的声音属性如图d所示，想要使“滴墨成字”图层补间动画停止时声音同时停止播放，可进行的调整是。
(5)、测试影片时，单击“main”场景中“继续”按钮时，跳转到下一场景开始播放，则“继续”按钮的动作脚本为。 -
17、小王收集了某书店2018年部分计算机类图书销售的相关数据298条，并用Excel软件进行数据处理，如图a所示。
请回答下列问题：
(1)、书店推出促销活动，单价大于50元的图书75折、小于等于50元的图书85折。根据活动方案，小王利用IF函数和自动填充功能完成对F3:F300区域的计算，则在F3单元格中的公式是=IF(E3>50，)。（提示：IF函数用于判断是否满足某个条件，如果满足返回一个值，如果不满足则返回另一个值。例如：=IF(B4>10,1,2)表示如果单元格B4的值大于10则返回1，否则返回2）(2)、如图a所示，要使G3:G300区域数据格式与E列和F列一样（保留两位小数），下列操作不可行的是（单选，填字母：A .设置G3:G300区域单元格格式为数值，保留两位小数/B .设置G3:G300区域为百分比格式，保留两位小数/C .设置G3单元格格式为数值，保留两位小数，并对区域G4:G300进行自动填充）。
(3)、根据图a中的数据制作图表如图b所示，创建该图表的数据区域为A2，E2:G2，。(4)、小王想快速获知2017年及之后出版的图书中，降价幅度最大的五本图书信息，下列操作方案可行的是（单选，填字母：A .使用筛选工具筛选“出版年份”大于等于2017年的图书，再对“降价幅度”按“最大的5项”进行筛选/B .以“出版年份”为主关键字进行降序排序、“降价幅度”为次要关键字进行升序排序/C .先用筛选工具筛选“出版年份”大于等于2017年的图书，再对“降价幅度”进行降序排序）。 -
18、数组a中依次存放6个有序数据“23 33 44 55 66 77”。
Dim a(1 To 10) As Integer
Dim s As String, n, key As Integer
a(1) = 23: a(2) = 33: a(3) = 44: a(4) = 55: a(5) = 66: a(6) = 77
i = 1: j = 6: c = 0: key = 35
Do While i <= j
c = c + 1
m = (i + j) \ 2
If (j - i + 1) Mod 2 = 0 Then m = m + 1
If a(m) = key Then Exit Do
If key < a(m) Then j = m - 1 Else i = m + 1
Loop
该程序段运行后，下列各变量的值不正确的是：（ ）
A、i=3 B、j=2 C、c=3 D、m=2 -
19、某对分查找算法的VB程序如下：
i = 1:j = 8:s = ""
key = Text1. Text
Do While i <= j
m = (i +j)\2
If key = a(m) Then
s = s+ "M"
Exit Do
ElseIf key <a(m) Then
j = m -1:s = s+ "L"
Else
i = m+1:s = s + "R"
End If
Loop
Text1. Text = s
数组元素a(1)到a(8)的值依次为“4，22，27，32，35，44，56，59”，该程序段执行后，文本框Text1中显示的内容不可能是（ ）
A、M B、LR C、RM D、LM -
20、（加试题） 有如下 VB 程序段：
Dim a(1 To 10) As Integer
Dim s As String, n, i As Integer
s = "54851845236": n = Len(s)
For i = 1 To n - 1
a(i) = Val(Mid(s, i, 2))
Next i
For i = 1 To n - 2
k = i
For j = i + 1 To n - 1
If a(k) < a(j) Then k = j
Next j
If k <> i Then
t = a(k): a(k) = a(i): a(i) = t
End If
Next i
Text1.Text = Str(a(1))
该程序段运行后，文本框 Text1 中显示的内容是：（ ）
A、18 B、54 C、85 D、8