学进去

用Goldwave软件打开某音频文件，该音频的量化位数是16bit，其操作界面如下图所示。

下列说法不正确的是（    ）。

A．将该音频文件按原始参数保存后，其存储容量为10.09MB

B．执行“删除”后，直接保存，该文件的存储容量保持不变

C．执行“插入静音”，并设置静音时长为10秒，则左声道的第60至70秒会出现静音

D．利用“设标”设置开始时间为20秒，结束时间为50秒，单击“剪裁”，则右声道前后均会出现静音

学校投票选最佳德育导师，候选老师有30位，现给每位参选老师一个从1到30的编号，在全校师生中投票，并从中选出最高得票数的教师作为年度最佳德育导师小李设计了一个计票的VB程序，将各位师生投票的编号输入到文本框Text1，每票之间用“，”隔开，单击“计票”按钮 Command1，在列表框中显示各位导师的得票数，在文本框Text2、Text3中显示总得票数和最高得票，在标签Label2中显示最高得票的教师编号，如果最高得票有多位教师，则全部显示他们的编号。程序运行界面如图所示。

实现上述功能的VB程序如下。
Private Sub Command1_Click()

Dim s As String,i As Integer,j As Integer,s1 As String

Dim a(30)As Integer,max As Integer,c As String,sum As Integer

s=Text1. Text

i=1:t=0:sum=0

Do While i<= Len(s)

c=Mid(s,i,1)
If c="," Or    ①   Then
a(t)=a(t)+1
t=0
sum=sum+1
Else
   '改错
End If
i=i+1

Loop

max=a(1)

For i=1 To 30

List1. Additem "编号为"+Str(i)+"的教师，得票数为"+Str(a(i))
If max<a(i) Then
max=a(i)
sl="最高教师编号为："+Str(i)
   ② 
s1=s1+"，"+Str(i)
End If

Next i

Text2. Text=Str(sum)

Text3. Text=Str(max)

Label2. Caption=sl

End sub
（1）文本框Text1有一个名为 Multiline的属值，当其值为True时，可以显示多行文本，为了使Text1能显示多行文本，应在FormLoad事件中应添加的语句是________（单选，填字母：

A．Text1=True/

B．Multiline=True/

C．Text1. MultiLine True /

D．Text1. MultiLine=True）。

（2）上面加框处代码有错误，请改正。
应改为_______________________
（3）请在划线处填入适当的代码。
①处代码为________________________ ，②处代码为________________________

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

以下描述不正确的是（   ）。

A．右击“左”图层选择“复制图层”命令，新图层中也有图层样式

B．可以使用“自由变换”命令旋转、缩放“风车”图层中的风车

C．可以用仿制图章去除“背景”图层中几片树叶

D．删除“右”图层，“左”图层也同时被删除了

将n个元素转换成(n\m)*m矩阵（n是m的倍数）。例如有42个元素，m=7，则可转换成6*7（6行7列）的矩阵转换示例如下：
转换前元素次序为：
12 2 5 3 6 9 4 10 8 5 6 9 6 3 5 8 11 2 8 9
转换为矩阵如下：
   
现要在矩阵中找一个规模为3*3的子方阵，使得该子方阵的各元素之和最大。
（1）若n=25，m=5，则该矩阵中共有3*3的子方阵个数为________。（填数字）
（2）实现上述功能的VB程序如下，请在划线处填入合适代码。
Private Sub Command1_Click()
Dim a(1 To 100) As Integer
Dim sum(0 To 101) As Long ’sum(i)=a(1)+a(2)+a(3)+…+a(i)
Dim i As Integer, j As Integer, n As Integer, m As Integer, k As Integer
Dim ans As Long, begin As Integer, maxi As Integer
Dim maxsum As Long, s As String
n=Val(Text1.Text)
m=Val(Text2.Text)
If n Mod m <> 0 Then List1.AddItem “输入数据不符合要求”:Exit Sub
For i=1 To n
a(i)=Int(Rnd*50+1)
s=s+Str(a(i))
If i Mod m=0 Then List1.AddItem s:s=“”
Next i
k=3
sum(1)=a(1)
For i=2 To n  ’求sum(i)
_______
Next i
maxsum=0
ans=0
For i=1 To n\m-k+1
For j=k To m
begin=(i-1)*m+j-k+1
maxsum=maxsum+sum(j+(i-1)*m)-sum(j-k+(i-1)*m)
________
maxsum=maxsum+(j+(i+1)*m)-sum(j-k+(i+1)*m)
If maxsum>ans Then ans=maxsum:maxi=begin
maxsum=0
Next j
Next i
s= “”
For i=1 To k
For j=1 To k
s=s+Str(a (（________）))
Next j

List2.AddItem s

s=“”

Next i
List2.AddItem “maxsum=”+Str(ans)
End Sub

小王用VB编写了一个考场座位编排程序，实现从考生数据库里读出所有学生的姓名和前一次考试成绩，分别存入数组xm和数组cj中，并按成绩从高到低排序后显示在List1中。输入考场规格和考场号，单击考场座位编排按钮Command1后，从第一位考试开始按S型依次安排座位，并在List2中输出该考场的座位表。每个姓名输出占4个汉子字符宽度：运用fm函数来解决此问题，尾试场多余位置显示“空”字。


实现上述功能的VB程序如下，请在划线处填入合适的代码。
’加载所有考生信息代码略
’函数m代码略
Private Sub Command1_Click()
Dim kc As Integer

Dim p As Integer, q As Integer    ’p为行，q为列

’初始化代码略

p=Val(Text1.Text):q=Val(text2.Text):kc=Val(text3.Text)

ks=p*q*(kc-1)

For i=1 To p

   ks=ks+1

s=fm(xm(ks),4)
For j=1 To q-1
If j Mod 2=1 Then
num=ks+p*2*(j+1)\2-1(i-1)*2
Else
num= ______
End If
If num>n Then
s=s+fm( “空”, 4)
Else
s=s+ _______
End If
Next j
List2, AddItem s
List2.AddItem “----------”
Next i
End Sub

对一个n×n的矩阵以“行”为单位进行升序排序，如下表所示是一个4×4的矩阵以行为单位进行升序排序。

小杜编写了实现上述功能的程序，程序功能如下：程序运行时，在文本框Text1中输入n(1<=n<=10)，单击“产生”按钮Command1产生n×n个随机数，随机数的范围为[0,9]，随机存储在数组a中，并以矩阵的形式在列表框List1上显示单击“排序”按钮Command2，对矩阵以“行”为单位进行升序排序，并在列表框List2输排序后的矩阵。在程序运行界面如下图所示，实现上述功能的VB程序如下，请在划线处填入合适的代码。

Dim n As Integer
Dim a(1 To 100) As Integer
’随机生成数并存储在List1中，代码略
Private Sub Command1_Click()  ’按行排序
Dim i As Integer, j As Integer, t As Integer
Dim s As String
s=“”
For i=1 To_______ 

k=i

For j=i+1 To _______ 

  If a(j)<a(k) Then k=j

Next j

If k<> i Then t = a(k):a(k)=a(i):a(i)=t

If I Mod n=0 Then List2.AddItem s:s= “’

Next i
End Sub
Private Sub Command2_Click()     ’按列排序
Dim i As Integer, j As Integer, t As Integer
Dim s As String
s= “”
For i=1 To i-1
k=i
For j= i+n To _______
If a(j)<a(k) Then k=j

Next j

If k<> i Then t=a(k):a(k)=a(i):a(i)=t

If I Mod n=0 Then List2.AddItem s:s= “”

Next i
End Sub

用Word软件编辑腾讯新闻，部分界面如下图所示。
          
下列有关图中批注与修订的说法，不正确的是（   ）

A．若删除批注，则“国足1-0韩国12强赛首胜”不会被删除

B．若删除“腾讯体育新闻3月23日”这几个字，则批注框不会被删除

C．若接受所有修订，正文第二行中将不出现“为国足”三字

D．若执行①处的“拒绝删除”，正文中的“日本”将变成“韩国”

下图所示的流程图实现的功能是求三角形的面积，回答以下问题：（共12分）

（1）判断①条件为? （2分）
（2）②处应填入的VB表达式是? （2分）
（3）③处应填入的VB表达式是? （2分）
（4）④处应填入的内容? （2分）
（5）⑤处应填入的内容? （2分）
（6）该算法采用的结构是? （2分）

如图a所示，已有若干学生从1开始编号，在文本框Text1中输入新增的学生姓名，填补到空缺的学号（2、3、6、11）位置。填补规则：从最小号开始依次填补。单击“新增”按钮后在列表框List1中完整显示所有学生信息，如图b所示。
  
实现上述功能的VB代码如下，但加框处有错，请改正。
Dim n As Integer '学生人数
Dim a(1 To 100) As Integer'存储学生的学号
Dim b(1 To 100) As String '存储学生的姓名
Private Sub Form_Load()
'从数据库中读取学生学号、学生姓名和总人数,分别存储在数组a,数b和变量n中,代码略
End Sub
Private Sub Command1_Click()
Dim L As Integer, R As Integer
Dim m As Integer, key as String
key=Text1.Text
L=1:R=n
Do While L<=R

m=(L+R)\2

If   Then     '(1)_________

L=m+1

Else

R=m-1

End If

Loop
For i=      '(2)_________

a(i+1)=a(i)

b(i+1)=b(i)

Next i
n=n+1
a(i+1)=L
b(i-1)=Key
'插入后的结果显示在列表框List2,代码略.
End Sub

编写一个 VB 程序，功能如下：随机产生 100 个 0到 99 之间的整数，在列表框 list1 中显示，单击“统计”按钮 Command1，统计落入各范围的整数个数，在列表框 List2 中按从高到低的顺序显示各范围的整数个数。程序运行界面如图所示。

实现上述功能的 VB 程序如下，但加框处代码有错，请改正。
（1）处应改为_____________________________________ ，（2）处应改为_____________________________________ 
Const n = 100
Dim a(1 To n)As Integer
Private Sub Form_Load()
'随机产生 100 个 0 到 99 之间的整数存数组a 中，并在列表框 list1 中显示。
End Sub
Private Sub Command1_Click()
Dim i As Integer, j As Integer, t As Integer
Dim b(0 To 9)As Integer, c(0 To 9)As Integer
For i = 1 To n
（1）
Next i
For i = 0 To 9
b(i) = i
Next i
i = 0
Do While i <= 8
For j = i + 1 To 9
If         Then （2）
t = b(i): b(i) = b(j): b(j) = t
t = c(i): c(i) = c(j): c(j) = t
End If
Next j
i = i + 1
Loop
List2.AddItem " 范围元素个数"
For i = 0 To 9
List2.AddItem Str(b(i) * 10) + "~" + Str(b(i) * 10 + 9) + ": " + Str(c(i)) + "个"
Next i
End Sub