|
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 ‘①
m = (i+j) \2
If key = a(m) Then
flag= True
ElseIf key < a(m) Then
j = m-1
Else
i = m+1
Loop
If Not flag And j > 0 Then
m =
‘②
If key = a(m) Then flag = True
End If
If flag Then
Text2.ext = str(m)
Else
Text2.Text= “找不到”
End if
End sub
①加框处应改为。
②加框处应改为。
If (a Mod 3 = 0) Or (b Mod 3 = 0) Then
c = a * b
Else
c = a + b
End If
执行后变量c的值为( )
执行该算法,依次输入a的值2,5,4后,变量b的值为( )



Dim n As Integer
Dim a(1 To 100)As Integer
Private Sub Command1_Click() ‘生成n个有序数,显示在List1中
‘代码略
End Sub
Private Sub Command2_Click()
Dim t As Integer
Dim i As Integer
Dim j As Integer
Dim temp As Integer
t=Val(Text2.Text)
For i=
To n ‘(1)
temp=a(i)
For j=i To i+1-t Step-1
a(j)=a(j-1)
Next j
=temp ‘(2)
Next i
For i=1 To n
List2.AddItem Str(a(i))
Next i
End Sub
①视频数据存在着时间冗余 ②单调背聚存在结构冗余 ③转换过程中进行了有损压缩
④数据压缩后视频文件视觉效果更好 ⑤视频文件在压缩过程中遵守JPBG压缩标准。
其中正确的是( )