学进去

2018年12月29日，小明举行了生日聚会，场面非常热闹，同学们玩的很高兴。
1．多媒体的主要特征是（ ）

A．标准化、娱乐化	B．动态性、丰富性
C．集成性、交互性	D．网络化、多样性

2．一般的手机摄像头分辨率越高，拍摄的视频文件就(　　)

A．越大

B．越小

C．不变

D．以上都有可能

3．欲为此视频文件加上背景音乐，（ ）文件可以考虑

A．2019.bmp

B．2019.mp4

C．2019.mp3

D．2019.mov

4．小明打算从拍摄视频中捕捉一张吹蜡烛的图片，可利用下列哪个软件捕捉图片（ ）

A．Authorware

B．CorelDraw

C．3DMAX

D．Snagit

5．把声音通过麦克风录制到计算机，并且存储为一个文件，这个过程是声音的（ ）

A．数字化

B．模拟化

C．复制

D．存储

6．计算机系统中的下列工具软件中属于专业视频编辑的软件是（）

A．GoldWave

B．Photoshop

C．Flash

D．Premiere

7．小明在整理文件时，发现名为“2018122905.bmp”的图片，该图片素材参数为：1024*768像素、24位真彩色，该图片的大小为（  ）

A．1024*768*24KB	B．1024*768*24/8/1024KB
C．1024*768*24/8KB	D．1024*768*24/8/1000KB

8．由于一张照片不小心拍摄到他人隐私的信息，在网络上分享前，需要用Photoshop选定这部分信息处理一下，用到的滤镜是（ ）

A．模糊

B．风格化

C．锐化

D．渲染

9．Photoshop CS软件工具箱中可以选取不规则形状选区的工具是（ ）

A．移动工具

B．矩形选框工具

C．套索工具

D．裁切工具

10．里约奥运会上,中国游泳运动员傅园慧因其夸张的表情、率真幽默的语言被做成了许多表情包。下图是利用Photoshop制作傅园慧表情包的界面,以下说法正确的是(　　)

A．“傅园慧”图层可以直接添加“风”滤镜

B．由图层面板可以看出“洪荒之力”图层添加了描边滤镜

C．图片另存为gif格式就可用作微信表情

D．背景图层可直接添加图层样式

11．使用Photoshop 软件进行创作，编辑界面如图所示。

以下描述正确的是(　　)

A．背景图层处于叠加模式

B．“地球”图层添加了3 种图层样式

C．背景图层中的水印文字“Huanjin”可用仿制图章工具去除

D．可以使用文字工具修改“环境你我他”图层中的文字字体

12．下图是会声会影(Ulead VideoStudio)软件的时间轴，可以放转场效果的位置是(　　)

A．1

B．2

C．3

D．4

13．对于Audition 3软件，为了将干涩的录音效果处理为在空旷的房间的特殊效果，应该使用(   )

A．混响效果处理

B．均衡效果处理

C．压限效果处理

D．延迟效果处理

14．用Flash制作文字“我的美食节”形变为文字“美”的动画，结果没有成功。界面如图所示，其原因可能是(  )

A．未创建补间动画

B．加了空白关键帧

C．未添加后面的关键帧

D．文字未分离

15．在PowerPoint 2003中，要将某张幻灯片版式更改为“垂直排列文本”，应选择（ ）菜单下的“幻灯片版式”。

A．幻灯片放映

B．格式

C．编辑

D．幻灯片切换

（加试题）在文本框Text1中输入待加密的n个字符（仅由ASCII码字符构成，最多支持960个字符），输入后单击加密按钮，在文本框Text2中产生密文。加密方式如下：
①   定义一个数组a(1 to 961)。产生一个3到6之间的随机整数k，将十进制数960均分成k份，字符在字符串中的位置除以k的余数决定该字符存放在第几份数据中（余数为1保存在第一份数据中，余数为2保存在第二份数据中……，余数为0保存在第k份数据中）；
②   用十进制数127减去每个字符的ASCII码值，得到的差作为该字符的密文,并保存在数组a中，同一段内的密文依次存放；
③   将随机产生的数k加64后保存在数组元素a(961)中，并一起参与加密；
④   将数组a中所有有密文值的数组元素从后往前依次存放到数组b中；
⑤   将数组b中的每个密文用3位数字保存，不足3位的前面用0补足，然后依次连接保存在变量sc中；
⑥   在文本框Text2中输出sc。
例如：
①   若现有待加密的字符串为“zp123”,产生的随机数k=3，则960分成3份，每份可存放320个值，分别为a(1)至a(320)，a(321)至a(640)，a(641)至a(960)；
②   由于Asc(“z”) =122，则127-122=5。字符“z”在待加密字符串中的位置是1，除以k的余数为1，因此数字“5”放在第一份数据的第一个位置，即a(1)=5；同理可得，第一份数据为a(1)=5,a(2)=77；第二份数据为a(321)=15,a(322)=76；第三份数据为a(641)=78；
③   将随机产生的k与十进制数64的和保存到a数组的最后一个值中，即a(961)=64+3=67；
④   将数组a中所有有密文值的数组元素从后往前依次存放到数组b中，得到b(1)=67,b(2)=78,b(3)=76,b(4)=15,b(5)=77,b(6)=5；
⑤   将数组b中的每个元素用0补足3位后依次连接并保存在sc中，得到sc=“067078076015077005”；
⑥   输出sc。
注：（asc（“0”）=48，asc（“A”）=65，asc（“a”）=97）

Private  Sub  command1_Click()
Dim  a(1 To 961)  As  Integer
Dim  sr, sc  As  String
Dim  i, j, k, m, n, t  As  Integer
Dim  b(1 To 961)  As  Integer
Randomize
k = Int(Rnd * 4 + 3)
sr = text1.Text
For  i = 1  To  961
a(i) = -1         
Next  i
a(961) = k + 64
t = 960 / k
For  i = 1  To  Len(sr)
m = i Mod k - 1
n = i \ k + 1
If  i  Mod  k = 0  then  n = n - 1: m = m + k
①   = 127 - Asc(Mid(sr, i, 1)) ’将密文存储到数组a中
Next  i
For  i = 1  To  Len(sr) + 1
j = j + 1
Do  While  a(j) = -1
j = j + 1
Loop
b(Len(sr) + 2 - i) = a(j) ’将有密文值的a数组元素存储到数组b中
Next  i
For  i = 1  To  Len(sr) + 1
sc = ②                 ’连接密文并保存到sc中
Next  i
text2.Text = sc
End  Sub
Function  space(x As Integer)  As  String
For i = 1 To ③    
space = space & "0"
Next  i
End  Function
（1）若加密后的密文为“068029041”，则随机数是____；在Text1中输入的明文是____。
（2）在填写空白处缺失的代码。
①________________________________________
②________________________________________
③________________________________________

（加试题）数组a中存储的是一组正整数，特征是：①以三个数为一组的话，每组中任意一个数都比前面一组中的任意一个数要大；②每组中三个数依次递减；③数组中数的总个数为3的倍数。依据对分查找思想，设计一个在数组a中查找数据key的程序。实现该功能的VB程序如下，但加框处代码有错，请改正。

8

5

3

17

15

10

32

23

18

53

43

37

82

72

63

……

 
Private Sub Command1_Click()
Const n = 15
Dim a(1 To n) As Integer, search As Integer, key As Integer
Dim i As Integer, j As Integer, m As Integer
'读取一组正整数,按上述规则存入数组a中,代码略。
key = Val(Text1.Text)
i = 1: j = n: search = 0
Do While i <= j
m = (i + j) \ 2
If m Mod 3 <> 0 Then    '(1) 把m调整到三个一组的最后一个数的位置
If key = a(m) Then
search = m : Exit Do
ElseIf key < a(m) Then
j = m - 3
ElseIf  Then    '(2)
i = m + 1
ElseIf key = a(m - 2) Then
search = m - 2 : Exit Do
ElseIf key = a(m - 1) Then
search = m - 1 : Exit Do
Else
search = 0 : Exit Do
End If
Loop
If search <> 0 Then
Text2.Text = Str(search)
Else
Text2.Text = "找不到"
End If
End Sub
加框处代码应修改为：（1）_____________ （2）______________

（加试题）一个简单的四则混合运算式子（算式中只包含整数、+、-、*、/、=）的运算规则是先进行“*”或“/”，再进行“+”或“-”，下列是用 VB编写的简单四则混合运算的程序，运行程序时在文本框 Text1 中输入四则运算式子，单击命令按钮 Command1，在标签Label1 中输出结果。程序界面及代码如下。请回答以下问题。
(1) 若在文本框 Text1 中输入式子“12*5-32/4+20=”，则运行程序后在标签 Label1 中显示的内容是_________。

(2) 请在划线①②③处填入合适的代码，让程序能实现计算功能。
Private Sub Command1Click
Dim a(1 To 100) As Single, b(0 To 100) As String
Dim s As String, c As String   
Dim sz As Integer, i As Integer, k As Integer
s = Text1.Text:k = 0
For i = 1 To Len(s)

c = Mid(s, i, 1)

If c >= "0" And c <= "9" Then

sz = 0
Do While c >= "0" And c <= "9"
sz= ①________
i = i + 1
c = Mid(s, i, 1)
Loop
k = k + 1: a(k) = sz: b(k) = c
End If
Do While k > 1 And ②________
If b(k - 1) = "+" Then a(k - 1) = a(k - 1) + a(k)
If b(k - 1) = "-" Then a(k - 1) = a(k - 1) - a(k)
If b(k - 1) = "*" Then a(k - 1) = a(k - 1) * a(k)
If b(k - 1) = "/" Then a(k - 1) = a(k - 1) / a(k)
b(k-1) = b(k)
k = k - 1
Loop
Next i
Label1.Caption = "运算的结果是：" + Str(a(1))
End Sub
Function yxj(x As String) As Integer

If x = "*" Or x = "/" Then

yxj = 1

ElseIf x = "+" Or x = "-" Then

yxj = 2

Else

 ③________

End If

End Function

某数据加密方法描述如下：
先将字符转化为二进制的位数据并显示在文本框text2中，数据位数显示在标签Label1中
以16个数据为一段，将k个待加密数据依次分割成若干个数据段，剩余数据（个数小于16）为独立数据段。
数据加密规则：
数据个数等于16的数据段，在段内进行位置变换，得到加密数据段。
数据个数小于16的数据段，直接得到加密数据段。
依次合并加密数据段，即为最后的加密数据。
位置变换的规制，方法如下：

具体界面如下图所示：

（1）已知k=38，则数组元素b（26）对应值是数组a中的______________________。
（2）实现该功能的VB程序如下:

Private Sub Command1_Click()

Dim a(1 To 1000) As Integer, b(1 To 1000) As Integer

Dim n As Integer, m As Integer

Dim s As String, s1 As String, c As Integer, ch As String

s = Text1.Text: Text2.Text = ""

n = Len(s)

k = 1

For i = 1 To n                  '获取字符的二进制数据存放在数组a()中

  n = Asc(Mid(s, i, 1))

  Do While n <> 0

   a(k) = n Mod 2

   n = n \ 2

   Text2.Text = Text2.Text + Str(a(k))

   k = k + 1

  Loop

Next i

             ①                   

List1.Clear

 

For m = 1 To (k - 1) \ 16    '对字符二进制按规则进行位变换，变换后的数据存放在数组b()中并输出

  For i = 1 To 4

    b(16 * (m - 1) + 4 * (i - 1) + 1) = a((m - 1) * 16 + i)

            ②              

  Next i

  For i = 1 To 3

    b(16 * (m - 1) + 4 * (i - 1) + 3) = a((m - 1) * 16 + 10 + i)

   b(16 * (m - 1) + 4 * (i - 1) + 2) = a((m - 1) * 16 + 17 - i)

  Next i

  For i = 1 To 2

    b(16 * (m - 1) + 13 + i) = a((m - 1) * 16 + 4 + i)

  Next i

 

 For i = 1 To 4

  s1 = ""

  For j = 1 To 4

  s1 = s1 + Str(b(16 * (m - 1) + (i - 1) * 4 + j))

  Next j

  List1.AddItem s1

  Next i

List1.AddItem ""

Next m

 

s1 = ""

For i = ((k - 1) \ 16) * 16 + 1 To k - 1

   b(i) = a(i)

    If          ③        Then

    s1 = s1 + Str(a(i))

    List1.AddItem s1

    s1 = ""

    Else

    s1 = s1 + Str(a(i))

    End If

Next i

List1.AddItem s1

 

Text3.Text = ""

For i = 1 To k - 1

Text3.Text = Text3.Text + Str(b(i))

Next i

End Sub

实现上述功能，请在划线处填入适当的代码：
程序中①处填入的是________________________________________。
程序中②处填入的是________________________________________。
程序中③处填入的是________________________________________。

数组a中存储的是左右交替上升的n个正整数，如下表所示：

a（1）	a（2）	a（3）	……	a（n —2）	a（n—1）	a（n）
3	25	38	……	55	31	12

 
依据对分查找思想，设计一个在数组a中查找数据key的程序。实现该功能的VB程序如下，但加框处代码有错，请改正。
Private Sub Command1_Click（）
Const n = 6
Dim a（1 To n）As Integer，flag As Boolean
Dim i As Integer，j As Integer，m As Integer，key As Integer
'读取一组正整数，按上述规则存入数组a中，代码略。
key = Val（Text1. Text）
i = 1
j = (n + 1)\2
flag = False
Do While  And Not flag         '（ 1）
m =(i + j)\2
If key = a(m) Then
flag = True
ElseIf  key< a(m) Then
j = m - 1
Else
i = m + 1
End If
Loop
If Not flag And j > 0 Then
m=n-i
If key = a(m)  Then flag = True
End If
If flag Then
Text2. Text = Str(m)
Else
Text2. Text = "找不到"
End If
End Sub

（加试题）编写一个成绩查询程序，输入要查找的分数，输出该分数的名次及同分人数，其算法是：用数组a存放不同的分值，数组m存储相同分数的人数，数组mc存储不同分数的名次。例如，数据库中有一组成绩（已按降序排列）：98，95，95，92，90，90，87，按该算法，各数组值如下表所示：

i	1	2	3	4	5
a	98	95	92	90	87
m	1	2	1	2	1
mc	1	2	4	5	7

程序界面如下图所示，在文本框Text1中输入查询成绩，点击“查找”按钮，若找到，则输出该分数的名次和同分数的人数，若找不到，则输出“查无此分”。

程序代码如下，请在划线处填入合适的代码。
Dim n As Integer
Dim a(l To 1000) As Integer     ’存放不同的分数值
Dim m(0 To 1000) As Integer ’存放相同分数的人数
Dim mc (0 To 1000) As Integer ’存放此分数的名次
Private Sub Form_Load()
Dim conn As New ADODB. Connection
Dim rs As New ADODB. Recordset
Dim tmp As Integer
Dim s As Integer
tmp = -1: n = 0
conn. Connectionstring = 〃provider=Microsoft. ACE. OLEDB. 12. 0; data source=〃 & App. Path & 〃\mydb. accdb〃
conn. Open
Set rs. ActiveConnection = conn
rs.Open "Select * from score"
mc(0) = 1: m(0) = 0

Do While Not rs. EOF

s = rs. Fields (〃成绩〃)
If s = tmp Then ’当前读入分数与上一个分数相同
m(n) = __________
Else
n = n + 1
a(n) = s
m(n) = 1
mc(n) = ___________ 
End If
_____________
rs. MoveNext

Loop

End Sub
Private Sub Command1_Click0
Dim key As Integer, i As Integer, j As Integer, mid As Integer
key = Val (Text1.Text)
i = 1: j = n
mid = (i + j) \ 2
Do While i <= j And ____________ 

mid = (i + j) \ 2

If a(mid) < key Then

j = mid – 1

Else

i = mid + 1

End If

Loop
If a(mid) = key Then

Label2. Caption = 〃名次: 〃+ Str(mc (mid)) + 〃同分人数: 〃+ Str(m(mid))

Else

Label2. Caption = 〃查无此分〃

End If
End Sub

（加试题）幸运数。一组1开始的奇数数列为：
1，3，5，7，9，11，13，15，17，19，21，23，25，……
此数列的第二项为3，将此数列的第3n个数删除，留下的数为：
1，3，7，9，13，15，19，21，25，……
新数列的第三项为7，将新数列的第7n个数删除，留下的数为：
1，3，7，9，13，15，21，25，……
若一直重复上述步骤，最后剩下的数就是幸运数：
1，3，7，9，13，15，21，25，31，33，37，43，49，51，……
下列程序的功能是找出1000以内的幸运数，但加框处代码有错，请改正。
Private Sub Command1_Click()
Dim a(500) As Integer, b(500) As Integer
Dim i As Integer, m As Integer, k As Integer
Dim top As Integer, bott As Integer
’产生由1开始的奇数数列，依次存储在数组a中，代码略
top = 2: bott = 500
Do While top < bott

①

For i = 1 To bott

If i Mod a(top) < > 0 Then

b(k) = a(i)

___________________②

End If

Next i

③

top = top + 1

For i = 1 To bott

a(i) = b(i)

Next i

Loop
For i = 1 To bott

List1.Addltem Str(a(i))

Next i
End Sub
(1)Private Sub Command1_Click()中的click是____________(A.对象名B.属性名C.事件名）
(2)改正加框处的代码，并在横线处填写合适的代码
①_____________________________
②_____________________________
③_____________________________

小明基于冒泡排序算法编写了一个VB程序，功能如下：单击“生成”按钮command1，生成n个[10，99]的随机整数赋值给a数组，并在列表框ists1中显示。单击“排序”按钮command2，对这组数据进行错位排序(即从前往后依次是最小的，最大的，第二小的，第二大的----依次类推)。在列表list2中依次输出数据排序的结果，程序运行界面如图所示：

实现上述功能的VB程序如下：
(1)程序测试运行后生成如下文件：(

A．paixu.frm

B．paixu.vbp

C．paixu.vbw

D．paixu.exe)，其中属于windows系统可执行文件是：(单选，填字母：_______)

(2)划线①处应填：__________
(3)加框①、②处代码有错，请改正。
Const n=10
Dim a(1 To 10) As Integer
Private Sub Command1_.Click()
For i=1 To n
                      ①
List1.Additem Str(a(i))
Next i
End Sub
Private Sub Command2_Click()
tmp= 1
For i=1To n-1
For j=n To i+1 Step-1
If  tmp*(a(j)-a(j-1))>0 Then ①______________________
t=a(j)；a(j)=a(j-1)：a(j-1)=t 
End If
Next j 
tmp=-1 ②______________________
Next i
For i=1 To 10
List2.Addltem Str(a(i))
Next i
End Sub

某学校要对班主任进行满意度调查，有20个评分项（为方便程序处理，评分项具体的名称本题中不显示，仅以序号代替），每个评分项学生可以打A、B、C 三个等级中的一个，现在已经收集所有学生对班主任的评价，为了保证隐私，不显示学生姓名，只显示班级，并存储在数据库的表中，点击command2（读取数据），读取原始数据显示在左侧list1中，左侧列表显示的原始评价数据第一条表示高二（01）班有1位同学在第9项给班主任打A，依次类推，点击command1（统计），统计出各项目的评价统计（A+B所占的百分比）。
（1）根据以下代码可知，本程序访问的数据库名称是___________
（2）完成划线处的代码填空：

Dim classname(1 To 8000) As String'存储原始数据中的班级名称
Dim selectabc(1 To 8000) As String'存储原始数据选项的值
Dim xiangmu(1 To 8000) As String'存储原始数据选项的序号
Dim n  As Integer
Private Sub Command2_Click()' 从数据库读取数据，并且按班级名称排序
Dim conn As New ADODB.Connection
conn.ConnectionString = "provider=microsoft.ace.oledb.12.0;data source="&App.Path&"\pingjia.accdb"
conn.Open
Dim rs As New ADODB.Recordset
Set rs.ActiveConnection = conn
rs.Open "select * from data"
n = 0' 记录评价的总条数
'读取数据，并按班级排序，代码略
End Sub
Private Sub Command1_Click()
Dim cstart(1 To 50) As Integer '存储每个班级在数组classname中的起始位置
Dim cend(1 To 50) As Integer   '存储每个班级在数组classname中的末尾位置
Dim k As Integer    '存储班级数量
Dim testall(1 To 20) As Integer '存储每一项总选择人数，例如testall（1）里存储这评价项目1里的总人数，testc（1）里存储评价项目1里选C的人数
Dim testc(1 To 20) As Integer   '存储每一题（项）选c的人数
' 确定每个班级的起止位置，存储到cstart数组和cend数组
cstart(1) = 1
temp = classname(1)
k = 1
For i = 1 To n
If classname(i) <> temp Then
________________
k = k + 1
cstart(k) = i
temp = classname(i)
End If
Next i
cend(k) = n
For i = 1 To k    '每个班级分别统计评价项目
_________________
For q = 1 To 20   '对testall和testc数组初始化，
testall(q) = 0
testc(q) = 0
Next q
For j = cstart(i) To cend(i)   '对第i个班级进行统计
testall(xiangmu(j)) = testall(xiangmu(j)) + 1
If selectabc(j) = "C" Then _________________
Next j
For p = 1 To 20  '统计完成后输出这个班级的20个项目的  A+B所占百分比
s = s &""&Str(Round((testall(p) - testc(p)) / testall(p) * 100, 1))
Next p
List2.AddItem s
Next i
End Sub