学进去

有一段时长为40分钟，1920* 1080，32位真彩色，采用PAL制的未经压缩的AVI无声视频，此段视频通过5G网络下载（5G网络理论下载速度可达到10Gbps） ，所需的时间约为（　　）

A．796s

B．398s

C．49s

D．16s

有如下VB程序段：
s = Textl．Text
ch = Mid(s,1,1):Max= 0
For i=2 To Len(s)
If Mid(s,i,1)>= Mid(s,i-1,1) Then
ch=ch+Mid(s,i,1)
If Len(ch)> Max Then Max = Len(ch): ans = ch
Else
ch = Mid(s,i,1)
End If
Next i
在文本框Text1中输入“Access2010*”。执行该程序段后，变量ans的值为（）

A．“Access”

B．“2010”

C．“Acc”

D．“ces”

将无序数据“8，23，4，16，77，-5，53，100”按从大到小的顺序排列，每次可以交换任意两个元素，最少需要交换（  ）次

A．4

B．5

C．6

D．7

有如下VB程序段：
Dim(0 To 5) As Integer
Dim p(0 To 5)As Integer
For i =0 To 5
a(i)=1:p(i)=1
Next i
For i 1 To 2
X= Int(Rnd*5)+1
p(x)=p(x)+ Int(Rnd*3)
Next i
For i =1 To 5
a(i)=a(i-1)+p(i)
Next i
执行该程序段后，在下列选项中a(1)至a(5)各元素值可能的是

A．1 2 3 4 5

B．3 4 5 8 9

C．1 3 4 5 6

D．2 3 4 6 6

有如下VB程序段：
s=0
For k=1To3
i=1:j=10
Do While i<=j
m= Fix((i+j)/2)
If a(m)< b(k) Then i= m+ 1 Else j= m-1
Loop
s=s+(11-i)
Next k
数组元素a(1)到a(10)依次为2，3，7，9，10，11，15，15，19，21，数组元素b(1)到b(3)依次为5，9，15，执行程序后，变量s中的值为（  ）

A．19

B．16

C．13

D．21

小章想将a数组中n个元素排列成合唱队列形态，具体方法如下：
①如果n是奇数，选出所有数据中最大元素，将其放在a数组正中间位置。
②从剩下待处理数据中选出最大的两个元素，同时将较大元素放在已处理数据段的右侧，较小元素放在已处理数据段的左侧。
③反复执行操作②，直到所有数据处理完毕。按上述要求，小章编写一个 VB 程序，功能如下：
在文本框 Text1 中输入 n，单击“生成”按钮 Command1，并在文本框 List1 中显示排序前数据；单击“排序”按钮 Command2，在列表框 List2 中输出处理后的结果。程序运行界面如下图所示。

（1）下列哪个选项，可以将窗体Form1标题改为：“生成合唱队列”_____（单选，填字母：A．Form．Caption="生成合唱队列"/ B．Label1．Caption ="生成合唱队列"/ C．Form1．Caption="生成合唱队列")
（2）实现上述功能的VB程序如下，请在划线处①②③填入合适代码。
①________________
②________________
③________________
（3）程序加框处代码有错，请改正。
改正：__________________
Dim a(1 To 100) As Integer
Dim n  As Integer
Private Sub Command1_Click()
'在文本框 Text1 中输入 n(n<=100)
'排序前数据存储在数组 a 中,并在文本框 List1 中显示
'代码略
End Sub
Private Sub Command2_Click()
Dim i As Integer, j  As Integer, t As Integer
Dim pMax1 As Integer, pMax2 As Integer pMax1 = n \ 2 + 1: pMax2 = n  \ 2
If      ①      Then
For i = 1 To n
If a(i) > a(pMax1) Then t  = a(pMax1): a(pMax1) = a(i): a(i) = t
Next i
pMax1 = pMax1 + 1
End If
For i = 1 To n  \ 2
If      ②     Then t = a(pMax1): a(pMax1) = a(pMax2): a(pMax2) = t j  = pMax1 Mod n  + 1
Do While j <> pMax2
If a(j) > a(pMax1) Then
t = a(pMax1): a(pMax1) = a(j): a(j) = t
t  = a(pMax2): a(pMax2) = a(j): a(j) = t

t = a(pMax2): a(pMax2) = a(j): a(j) = t
End If
    ③     
Loop
pMax1 = pMax1 + 1
pMax2 = pMax2 - 1
Next i
For i = 1 To n
List2.AddItem Str(a(i))
Next i
End Sub

某数列由 10 个正整数组成，先对数列中的每个数按照从小到大的顺序进行编号，编号规则为：最小数编号为 1，次小数编号为 2，如此循环（若出现两个相同的数字，则编号相同，直到出现不同的数字再赋值新编号）。例如，数列 80，63，67，38，40，87，11，86，91，80 中每个数所对应的编号分别为：6，4，5，2，3，8，1，7，9，6。程序运行界面如下图所示。

（1）实现上述功能的程序代码如下，其中加框处代码有误，请改正。
（2）为完善程序，在划线处填入合适的代码。
Const n = 10
Dim a(1 To 11) As Integer 'a 数组存储原数列
Dim n1(0 To 11) As Integer 'n1 数组存储数据原始的位置
Dim n2(0 To 11) As Integer 'n2 数组存储编号
Dim i As Integer, j As Integer, k As Integer Private Sub Command1_Click()
For i = 1 To 10
 _______
Next i
For i = n To 2 Step -1
For j = _____
If a(j) > a(j + 1) Then
a(j) = a(j) + a(j + 1): a(j + 1) = a(j) - a(j + 1): a(j) = a(j) - a(j + 1)
n1(j) = n1(j) + n1(j + 1): n1(j + 1) = n1(j) - n1(j + 1): n1(j) = n1(j) - n1(j + 1) End If
Next j
Next i
k = 1
For i = 1 To n
_____
If a(i) <> a(i + 1) Then k = k + 1
Next i
For i = 2 To n
tmp1 = n1(i): tmp2 = n2(i): j = i - 1
Do While _____
n1(j + 1) = n1(j): n2(j + 1) = n2(j)
j = j - 1
Loop
n1(j + 1) = tmp1: n2(j + 1) = tmp2
Next i
For i = 1 To n
Text2.Text = Text2.Text + " " + Str(n2(i))
Next i
End Sub
Private Sub Form_Load()
For i = 1 To n
a(i) = Int(Rnd * 100 + 10)
Text1.Text = Text1.Text + Str(a(i))
Next i
End Sub

某算法部分流程图如图所示。执行这部分流程，依次输入 2、-5、12、-4、11、-3，则输出ans 的值为（  ）

A．16

B．19

C．23

D．25

某对分查找算法的 VB 程序段如下：
n  = 0: i = 1: j = 6
Key = Val(Text1.Text)
Do While i <= j
m=(i+j)\2
n=n+1
If Key = d(m) Then Exit Do
If Key < d(m) Then j = m - 1
Else i= m + 1
Loop
If i <= j Then s = m – n
Else  s = n
数组 d(1)到 d(6)的值依次为“4，6，9，13，20，25”，输入某个 Key 值后，运行该程序段后，变量 s 结果为 3，则输入 key 的值不可能是（  ）

A．25

B．20

C．5

D．3

有一数组a(1 to 6)，其数值分别为“45、39、78、37、93、64”，想要从小到大排序，编写如下程序代码：
Dim flag As boolean
Dim a(1 to 6) As integer
i =1: n=6: flag=True
Do While i <=n-1 And flag= True
Flag=False
For j=n To i+1 Step -1
If a(j)< a(j-1) Then
k=a(j):a(j)=a(j-1):a(j-1)=k
Flag=True
End if
Next j
i=i+1
Loop
以上代码在整个排序过程中，数据总比较次数和总交换次数分别是（  ）

A．9次和4次	B．9次和6次
C．12次和6次	D．15次和12次