相关试卷
-
1、使用会声会影软件制作视频，部分操作界面如图所示：
以下说法正确的是( )
A、视频轨使用了3个不同的图片或视频素材 B、mova.wmv素材结束时，movb.wmv开始播放 C、标题轨使用了“公益宣传. txt”素材文件 D、movb.wmv素材播放时将被picc.jpg遮挡部分画面 -
2、使用会声会影软件进行作品制作，部分操作界面如下图所示。
下列说法正确的是（ ）
A、该作品中使用了4个视频素材 B、该作品不可以被导出成AVI格式的视频文件 C、测试影片时，素材“V2.mpg”将在1秒后进行播放 D、测试影片时，素材“V3.avi”将遮挡素材“V1.avi”的部分内容 -
3、使用Goldwave软件编辑某音频时的部分界面截图如下图所示。
A、该音频文件只有左声道 B、该音频素材是Wave格式，这是一种常用的音频压缩格式 C、执行“剪裁”操作后，该音频的存储容量不变 D、该音频素材的采样频率是44.1kHz，即每秒钟采样44.1个样本 -
4、使用GoldWave软件打开某音频文件，选中其中一段音频后的部分界面如下图所示。
下列说法正确的是( )
A、该音频设置了淡入的效果 B、当前状态下执行“剪裁”操作，左声道不会发生变化 C、将当前选中部分设置为静音，则存储容量变小 D、当前状态下执行“删除”操作后直接保存，容量变为原来的2/3 -
5、使用Goldwave软件编辑某音频时的部分界面截图如下图所示。
下列说法正确的是( )
A、执行“删除”操作后，该音频的存储容量将减少 B、执行“删除”操作后，被选中的部分音频将变成“静音 C、执行“剪裁”操作后，该音频的存储容量不变 D、执行“剪裁”操作后，被选中的部分音频将变成“静音 -
6、用GoldWave软件编辑某作品片头音乐，界面如下图所示。
从图中可以看出，该音频( )
A、是MP3格式 B、包含2个声道 C、采样频率是22050Hz D、时长299秒 -
7、将某播放时长为20秒的音频文件进行如下操作：
①删除前10秒的声音数据
②将左声道设置为静音
③保存处理后的音频文件
则处理后的音频文件存储容量约是原文件的（ ）
A、1/2 B、1/3 C、1/4 D、3/4 -
8、使用GoldWave软件编辑某音频文件，部分界面如图所示。
下列说法正确的是( )
A、当前状态下，插入5秒静音后，右声道时长仍为40秒 B、当前状态下，执行“剪裁”操作后，整个音频只剩下当前选中的部分 C、当前状态下，单击“删除”按钮，然后直接保存，保存后音频文件容量约为5.17MB D、执行“编辑”下的“静音”操作，音频文件的容量不变 -
9、使用GoldWave软件编辑音频文件“蓝鸟.wav”，选中一段音频后的部分界面如图所示。
下列说法正确的是（ ）
A、该音频是mp3格式，量化位数是16 bit，采样频率是44100Hz B、当前状态下，执行“删除”命令，则该音频左声道的第20秒到第50秒变为静音 C、当前状态下，执行“静音”命令，按原参数保存文件，则该音频容量变为原来的1/3 D、当前状态下，执行“剪裁”命令，按原参数保心存文件，则该音频容量保持不变 -
10、使用GoldWave软件对声音文件进行处理，部分界面如图所示，以下说法不正确的是（ )
A、正在编辑的声音采样频率为44.1KHz，音频格式为mp3 B、右声道设置了淡入的效果 C、在当前状态下选择“剪裁”操作，声音容量保持不变 D、在当前状态下设置静音效果，声音容量会减小 -
11、汉字可以使用N * N的黑白点阵图案来表示，例如汉字“上”和“二”使用8* 8的点阵图案表示，如图a所示。转化为0和1的点阵，其中0表示白色，1表示黑色，则“上”字可以表示为：
使用以下规则对01点阵进行编码(以“上”为例)：
①编码的第一个数为点阵的行列数N，如示例中“上”对应的行列数N为8；
②按行列顺序从上到下，由左到右依次进行编码；
③第一个数表示连续有几个0，第二个数表示接下来连续有几个1，第三个数表示再接下来连续有几个0，依此类推……
根据以上规则，“上”的编码为8，3，1，7，1，7，1，7，3，5，1，7，1，7，1，4，8。 依据上述描述的编码规则，设计一个解码程序，根据输入的压缩编码，输出01点阵和黑白点阵。程序运行界面如图b所示，其VB代码如下。请回答下列问题：
(1)、依据图a中“二”字点阵图案以及上述压缩编码的规则，“二”字的编码为(填数字，中间用逗号分隔)。(2)、请在划线处填入合适的代码。
Private Sub Command1_ Click()
Dim n As Integer, m As Integer, flag As Integer
Dima(1 To 100) As Integer, sum As Inte-ger, num As Integer
Dim s As String, tmp As String
读取一组数据，并对数据处理后存入相应变量
s= Text1. Text ： s=s+","
num=0： i=1
Do While Mid(s, i, 1) <","
i=i+1
Loop
n=
p=i+1
num=0 : m=0
For i=p To Len(s)
ch= Mid(s, i, 1)
If ch="," Then
m=m+1
num= 0
Else
num= num* 10+Va1(ch)
End If
Next i
下列代码为按规则对编码进行解码，输出01点阵sum=n * n
i=1 : flag=0 : tmp=" "
Do While sum > 0
For j=1 To a(i)
If flag=0 Then
tmp= tmp+"0"
Else
tmp=tmp+"1"
End If
If Then
List1. AddItem tmp
tmp =" "
End If
Next j
i=i+1
flag=1- flag
Loop
'按规则对编码进行解码，输出黑白汉字点阵，代码略
End Sub
-
12、小明用VB编写了一个单词统计的程序，用于统计单词数量(单词数量不超过100个)，并且在列表框List1中输出单词和单词出现的次数，程序界面如下图所示，VB程序代码如下。
请回答下列问题：
(1)、若删除加框处代码后，输入数据“Hello>>world！”则输 出数据共行。(2)、请在划线处填入合适的代码。Dim f(100) As Integer, cnt As Integer
Dim words(100) As String, s As String, c As String, tmp As String
Function search(g As String) As Integer
Dim flag As Boolean
flag= True
For i=1 Tocnt
If Then search=i : flag= False
Next i
If flag Then
cnt= cnt+ 1
words(cnt)=g
search= cnt
End If
End Function
Private Sub Command1_ Click( )
s=Text1.Text
tmp=" "
cnt= 0
For i=1 To Len(s)
c= Mid(s, i, 1)
If c>= "a" And c<= "z" Or c>= "A" And c<= "Z" Then
tmp= tmp+ C
Else
f(search( tmp))=
tmp=""
End If
Next i
For i=1 To
List1. AddItem words(i) +Str(f(search( words(i))))
Next i
End Sub
-
13、编写“输出所有子串”程序，实现如下功能：在文本框Text1中输入一串不重复的字符串，单击命令按钮“生成子串”，在列表框List1中输出该字符串的所有子串并输出子串的总数。程序运行界面以及工程资源窗口如下图所示，VB程序代码如下
(1)、在程序运行后，发现文本框Text1中已经有内容显示，若要做到程序运行后文本框中内容默认为空，则应在下列事件过程中添加代码Text1. Text=“”。(单选，填字母：A .Command1_ Click/ B .Text1_ Click/C .Form_ Load / D .List1_Click )。(2)、请在划线处填入合适的代码。Private Sub Command1_Click()
Dim s As String，sum As Integer
Dim i As Integer，j as Integer
s= Text1. Text
n= 0
For i=1 To Len(s)
For j=1 To Len(s)-i+1
List1. AddItem
n=n+1
Next j
Next i
List1. AddItem "总共有" + Str(n)+"个子串"
End Sub
(3)、如果输入的字符串是“desk”，则输出中有个子串。 -
14、编写“输出所有子串”程序，实现如下功能：在文本框Text1中输人一串不重复的字符串，单击命令按钮“生成子串”，在列表框List1中输出该字符串的所有子串并输出子串的总数。程序运行界面以及工程资源窗口如下图所示，VB程序代码如下。
(1)、根据程序代码可知，当前窗体中添加的按钮对象的名称为 。(2)、请在划线处填入合适的代码。Private Sub Command1_Click()
Dim s As String，sum As Integer
Dim i As Integer，j as Integer
s= Text1.Text
n=0
For i=1 To Len(s)
For j=i To Len(s)
List1. AddItem
n= 1+1
Next j
Next i
List1. AddItem "总共有" +Str(n)+ "个子串"
End Sub
(3)、如果输入的字符串是“China”，则输出中有个子串。 -
15、有如下VB程序段：
s=Text1. Text
s1=" "
For i=1 To Len(s)
c= Mid(s, i, 1)
If c>= "A" And c <= "Z" Then
c= Chr(Asc(c)+ 32)
ElseIf c>="a"Andc<(="z"Then
c=Chr( Asc(c)-32)
End If
s1=c+s1
Next i
Text2. Text=s1
该程序段运行后，若在文本框Text1中输入 “Ab12CD”，则 文本框Text2中显示的内容是( )
A、aBcd B、dcBa C、aB12cd D、dc21Ba -
16、在字符串s中找连续数字(仅限1位数)之和为n的子串，如字符串“142176”中，和为10的子串为“217”。假设所给字符串中必存在满足条件的子串，实现该功能的VB程序段如下：
i=1：sum==0
For j=1 To Len(s)
sum= sum+ Val(chl)
Do While sum > n
ch2= Mid(s，i，1)
i=i+1
Loop
If sum=n Then List1. AddItem (3)
Next j
上述程序段3个方框处的表达式分别为( )
A、(1)ch1= Mid(s, i, 1) (2)sum=sum- Va1(ch2)(3)Mid(s, i, j) B、(1)ch2= Mid(s, i, 1) (2)sum= sum+ Va1(ch2)(3)Mid(s, i, j- i) C、(1)ch1= Mid(s, j, 1) (2)sum=sum- Va1(ch2)(3)Mid(s, i, j-i+1) D、(1)ch2= Mid(s, j, 1) (2)sum= sum+ Va1(ch2)(3)Mid(s, i, j - i计1) -
17、某VB程序实现如下功能：在文本框Text1中输入字符串，在文本框Text2 中产生对称字符串，如输人“abc”，产生“abccba”。程序段如下：
s= Text1. Text : n= Len(s)
s1=s : i= 1
Do While i <= Len(s)
i=i+ 1
Loop
Text2. Text=s1
上述程序中加框处(1)的可选语句有：
①ch= Mid(s，i，1)
②ch= Mid(s，n-i+1，1)
③s1=s1+ch
④s1= ch+s1
则正确的语句为( )
A、①③ B、②③ C、①④ D、②④ -
18、有如下程序段
Private Sub Command1_ Click()
Dim s As String,a As String,b As String
Dim t As Long,sum As Long
s= Text1. Text+".”
t=0: sum= 0
For i=1 To Len(s)- 1
a= Mid(s, i, 1)
b= Mid(s, i+1, 1)
If (a>= "0" Anda<= "9") And (b >= "0" And b <= "9") Then
t=t * 10+ Val(a)
ElseIf (a >= "O" And a <= "9") And(b<= "0" Or b>= "9") Then
t=t *10+Val(a)
sum= sum- t
t=0
End If
Next i
Text2.Text= Str( sum)
End Sub
程序运行时，在文本框Text1中输入“yy2019mm03dd12”，单击按钮Command1后，在文本框Text2中显示的内容为( )
A、20190312 B、2322 C、-2304 D、-2034 -
19、两个长度相同的字符串s1和s2，若所含字符及各字符的数量均相等时可以归为一类。如字符串“ABDAC”与字符串“AABCD”可以归为一类，与“AABBC”不可以归为一类。实现该功能的VB程序段如下：
For i=1 To Len(s1)
c= Mid(s1, i, 1)
j=1
Do While j <= Len(s2)
If c=Mid(s2, j, 1) Then
s2=
Exit Do '退出 Do循环
Else
j=j+1
If j=Len(s2)+1 Then
Label1.Caption="不可以归为一类！"
Exit For '退出For循环
End If
End If
Loop
Next i
If i=
Then Label1.Caption="可以归为一类！"加框处应填写的代码是( )
A、①Mid(s2, i, j- 1) + Mid(s2, j, Len(s2)-j) ②Len(s1) B、①Mid(s2, 1, j- 1) + Mid(s2, j+1, Len(s2)-j) ②Len(s1)+ 1 C、①Mid(s2, 1, j- 1)+ Mid(s2, j+1, Len(s2)-j) ②Len(s1) D、①Mid(s2, i, j-1)+ Mid(s2, j, Len(s2)-j) ②Len(s1)+ 1 -
20、某VB程序段如下：
s="491053”
For i=1 To 3
n=Len(s)
k=1
For j=2 To n
If Mid(s, k, 1) > > = Mid(s, j, 1) Then
k=j
Else
Exit For 'Exit For表示退出循环
End If
Next j
s= Mid(s, 1, k-1)+ Mid(s, k+1, n- k)
Next i
Label1.Caption= s
执行该程序段后，标签Labe1中显示的值是( )
A、053 B、953 C、913 D、103