相关试卷
-
1、新华书店准备举行“买3送1”周年大酬宾活动，顾客只要每买三本书就可以免除其中一本最便宜的书的书款，上不封顶。其结算系统如图所示。图中左侧显示了顾客已挑选的书的款额，款额保存在数组s中，单击“结算”按钮后，系统会统计出所有书籍的金额数，并自动统计顾客最少所需的付款额。假设顾客买了7本书，价钱分别是10、3、2、4、4、6、9，总金额是38元，则顾客实付只需29元。
以下程序加框处有错，请改正。
Private Sub Command1_Click()
Dim s(1 To 1000)As Single, n As Integer, x As Integer
Dim payment As Single, cost As Single, tmp as Single
‘假设顾客共挑选了n本书，各本书金额数都已存放在数组s中
‘先对n本书按价格降序排序
For i=1 To n-1
x=i
For j=i+1 To n
If
Then x=j ’Next j
If x <> i Then
tmp=s(x)
s(x)=s(i)
s(i)=tmp
End If
Next i
‘降序排序后，每隔两本就是一本可以减免的书
cost=0 : payment=0
For i=1 To n
cost=cost+s(i)
If
Then ‘payment=payment+s(i)
End If
Next i
Label1.Caption=“总金额:” & cost
Label2.Caption=“实付:” & payment
End Sub
-
2、有如下程序段：
For i=1 To 9
For j=10 To i+2 Step-1
If a(j) < a(j-2) Then
t=a(j): a(j)=a(j-2): a(j-2)=t
End If
Next j
Next i
数组元素a(1)到a(10)的值依次为“10,9,8,7,6,5,4,3,2,1”，执行该程序段后,数组元素a(8)中的值为（ ）
A、7 B、8 C、9 D、10 -
3、下面程序是一个改进过的冒泡排序：
Dim a(1 To 5) As Integer
a(1)=5: a(2)=10: a(3)=9: a(4)=3: a(5)=7
n=5: p=0
swap=True
Do While swap=True
swap=False
For i=1 To n-1
If a(i) > a(i+1) Then
t=a(i): a(i)=a(i+1): a(i+1)=t
swap=True
End If
Next i
If swap=True Then p=p+1
Loop
Text1.Text=p
该程序段执行后，在文本框Text1中显示的内容为（ ）
A、1 B、2 C、3 D、4 -
4、有以下VB程序段：
For i=1 To 3
For j=i To 5
If a(j) > a(j+1) Then
t=a(j): a(j)=a(j+1): a(j+1)=t
End If
Next j
List1.AdcIItem Str(a(i))
Next i
a(1)到a(6)的初始值依次为“8 6 5 7 9 3 ”，经过该程序段“加工”后，列表框List1中显示的是（ ）
A、8 7 6 B、8 7 9 C、6 5 3 D、5 6 7 -
5、有如下VB程序段：
For i=1 to 3
For j=1 to 5-i
If a(j)>a(j+1) Then
t=a(j):a(j)=a(j+1):a(j+1)=t
End If
Next j
Text1.Text=Text1.Text+Str(a(i))
Next i
数组元素a(1)到a(5)的值依次为“3,9,6,8,4”。该程序段执行后，文本框Text1显示的内容是（ ）
A、3 4 6 B、6 8 9 C、3 6 4 D、3 6 6 -
6、有如下VB程序段：
s=“26170534”:n=Len(s):y=“”
For i=1 To n
ch(i)=Mid(s, i, 1)
Next i
For i=1 To n
k=i
For j=i To n Step 2
If ch(j)< ch(k) Then k=j
Next j
If k <> i Then t=ch(k): ch(k)=ch(i): ch(i)=t
y=y & ch(i)
Next i
Label1.Caption=y
该程序段运行后，标签Label1中显示的内容是（ ）
A、0123 B、4567 C、01234567 D、04152637 -
7、有如下Visual Basic程序段：
Dim a(1 To 7) As Integer, i As Integer, j As Integer
Dim k As Integer, c As Integer
a(1)=4: a(2)=9: a(3)=1: a(4)=5
a(5)=8: a(6)=6: a(7)=2
s=“”
For i=1 To 3
For j=i+1 To 7
If a(j) < a(i) Then
k=a(j): a(j)=a(i): a(i )=k
c=c+1
End If
Next j
s=Str(a(i))+s
Next i
Text1.Text=Str(c) & “:” & s
该程序段运行后，文本框Text1中显示的内容是（ ）
A、5:4 2 1 B、3:9 8 6 C、4:1 2 4 D、5:6 8 9 -
8、有如下程序段：
b(0)=0
For i=1 To 6
k=i
For j=i+1 To 7
If a(k) > a(j) Then k=j
Next j
If i <> k Then t=a(k): a(k)=a(i): a(i)=t
If a(i) <> a(i-1) Then
b(i)=i
Else
b(i)=b(i-1)
End If
Next i
若数组元素a(1)到a(7)的值依次为“6,7,6,3,9,2,3”，则经过上述程序加工后，b(5)的值是（ ）
A、3 B、4 C、5 D、6 -
9、有如下程序段：
For i=1 To 2
For j=1 To 6-i
If a(j)<a(j+1) Then
k=a(j):a(j)=a(j+1):a(j+1)=k
End If
Next j
Next i
数组元素a(1)到a(6)的值依次为“71，54，58，29，31，78”，经过该程序段处理后，数组元素a(1)到a(6)的值依次为（ ）
A、29,31,54,58,71,78 B、78,71,58,54,31,29 C、54,29,31,58,71,78 D、71,58,54,78,31,29 -
10、某算法的部分程序段如下：
For i=1 To 7
k=i
For j=i+1 To 8
If a(j)>a(k) And a(j)>85 Then k=j
Next j
If k<>i Then t=a(i): a(i)=a(k): a(k)=t
Next i
数组元素a(1)到a(8)的原始数据依次为“89，70，79，85，99，80，82，74”，则第3遍“加工”后数组元素a(1)到a(8)的数据依次是（ ）
A、99,89,79,85,80,70,82,74 B、99,89,85,79,70,80,82,74 C、99,89,79,85,70,80,82,74 D、99,89,85,82,80,79,74,70 -
11、有如下程序段，数组元素a(1)到a(5)的值依次为“33，24，4，16，77”，执行该程序段后，变量t的值为（ ）
t=0
For i=1 To 4
flag=False
For j=5 To i+1 Step-1
If a(j)>a(i) Then flag=True
t=t+1
temp=a(j):a(j)=a(i):a(i)=temp
End If
Next j
If flag=False Then Exit For
Next i
A、2 B、3 C、4 D、5 -
12、有一段VB程序，代码如下:
For i=1 To 3
For j=8 To i+1 Step-1
If a(j) < a(i) Then
t=a(j): a(j)=a(i): a(i)=t
End If
Next j
Next i
数组元素a(1)到a(8)的值依次为“35， 18， 14， 20， 30， 15， 28， 26”，运行该程序段后，a(5)到a(8)的值依次是（ ）
A、30,26,28,35 B、14,15,18,20 C、26,15,18,14 D、26,28,30,35 -
13、使用GoldWave软件新建2段音频，参数设置分别如图A和图B所示：
若按此设置保存为相同量化位数的Wave格式文件，则这2个音频文件容量大小之比(A∶B)约为（ ）
A、1∶1 B、2∶1 C、4∶1 D、8∶1 -
14、使用GoldWave软件进行作品制作，部分操作界面如图所示。
下列说法不正确的是（ ）
A、当前编辑的文件格式为Wave，这是一种未经压缩的声音格式 B、该音乐的前2秒使用了“淡入”效果，其比特率为1411 kbps C、若将当前选中部分音频转为“静音”，则声音容量将保持不变 D、在当前编辑状态下单击“删除”按钮，原参数不变，保存文件，其大小约516 KB -
15、用GoldWave软件对某音频文件进行编辑，GoldWave状态栏如下图所示:
以下说法正确的是（ ）
A、该文件类型为Wave格式，属于无损压缩格式 B、该音频每秒钟采样1411次，选中部分音频时长为10秒 C、当前状态下插入5秒静音，按原参数保存，文件大小约为4.2 MB D、当前状态下，点击“删除”，以原参数保存，则声音存储容量约为原来的一半 -
16、天天同学用GoldWave软件打开某声音文件，状态栏如图所示，下列说法错误的是（ ）
A、量化位数一定是128位 B、这是一个MP3格式的音频文件 C、执行“删除”操作后声音总长度为1分30秒 D、执行“剪裁”操作后声音总长度为1分 -
17、使用GoldWave软件编辑某音频时的部分界面截图如图所示:
以下说法正确的是（ ）
A、执行“删除”操作后，该音频的存储容量将减少 B、执行“删除”操作后，被选中的部分的音频将变成“静音” C、执行“剪裁”操作后，该音频的存储容量不变 D、执行“剪裁”操作后，被选中的部分的音频将变成“静音” -
18、小张用GoldWave软件打开“沂蒙山小调.mp3”文件，编辑界面如图所示。
下面说法正确的是（ ）
A、单击工具栏里的“剪裁”，声音文件存储容量变小 B、当前选中的音频时长为22分钟 C、选择整个右声道，单击工具栏里的“删除”，音频将由双声道变成单声道 D、不改变其他参数，执行另存为单声道文件操作后，音频文件的存储容量约为原来的1/2 -
19、某视频文件属性窗口如图所示，由图可知，该视频（ ）
A、编码标准为JPEG B、制式为NTSC C、所包含的音频格式为MP3 D、各帧图像宽度为360像素 -
20、使用会声会影软件编辑影片，部分时间轴如图所示：
分析图中信息，当前使用的媒体素材有（ ）
A、3个视频素材、2个图片素材、3个音频素材 B、2个视频素材、3个图片素材、4个音频素材 C、3个视频素材、3个图片素材、2个音频素材 D、2个视频素材、2个图片素材、2个音频素材