①识别前没有进行倾斜校正
②识别前没有进行合理的区域划分
③识别前没有放大显示
④扫描原始文稿设置的扫描分辨率较低
a(1)=1：a(2)=1
b(1)=1：b(2)=2
For i=3 To 5
a(i)=a(i-1)+a(i-2)
b(i)=b(i-1)+a(i)
Next i
执行该程序段后，数组元素b(5)的值为（ ）
i=1:j=10
Key=Val(Text1．Text)
If a(m)=Key Then Exit Do ‘Exit Do表示退出循环
If Key Mod 2=1 And a (m)Mod 2=0 Then
ElseIf Key Mod 2=0 And a(m)Mod 2=1 Then
Else
End If
Loop
If i>j Then s=“没有找到!”Else s=“位置：”+Str(m)
Text2.Text=s
上述程序中方框处可选语句为：
①i=m+1
②j=m-1
@If Key<a(m)Then j=m-1 Else i=m+1
则(1)(2)(3)处语句依次是（ ）
(提示：COUNTIF函数用于统计某个区域中满足给定条件的单元格个数。例如：=COUNTIF(B4：B20，“<100”)表示在数据区域B4：B20中统计数值小于100的单元格个数。)
Private Sub Command1_Click()
Dim s As String，c As String，d As String
Dim n As Integer，b1 As Integer，b2 As Integer，v As Integer，i As Integer
s=Text1．Text：n=Len(s)：i=1
Do While i<=n
c=Mid(s，i，2)
If c=“00”Then
d=“东”
Elself c=“01”Then
d=“南”
EiseIf c=“10”Then
d=“西”
Else
d=“北”
End If
b1=Val(Mid(s，i+2，1))
b2=Val(Mid(s，i+3，1))
v= ①
List1.AddItem d+” ”+Str(v)
②
Loop
End Sub
① ②
图中“人物”图层第1帧到第10帧的补间动画实现了“人物”实例从完全透明到完全显示的效果，第1帧中“人物”实例的Alpha值是。
|
排序前 |
86 |
71 |
5 |
41 |
81 |
79 |
37 |
89 |
|
排序后 |
5 |
37 |
41 |
71 |
79 |
89 |
86 |
81 |
实现上述功能的VB程序如下，但加框处代码有错，请改正。
Const n=8
Dim a(1 To n) As Integer
Private Sub Command1_Click()
Dim i As Integer，j As Integer，k As Integer，t As Integer
Dim flag As Boolean
‘读取一组正整数，存储在数组a中。代码略
For i=1 To n-1
‘(1)
If IsPrime(a(k))Then flag=True Else flag=False
For j=i+1 To n
If IsPrime(a(i))Then
If 
Then ‘(2)
k=j
flag=True
End If
End If
Next j
If k<>i Then
t=a(k)：a(k)=a(i)：a(i)=t
End If
If Not flag Then Exit For ‘Exit For表示退出循环
Next i
‘依次输出排序后的数据。代码略
End Sub
Function IsPrime(m As Integer)As Boolean
‘本函数判断m是否是素数：是素数返问值为True，不是素数返回值为False
‘代码略
End Function
●变化段：数组中相邻两个元素构成一个变化段。变化段有上升段(a(i)>a(i-1))、下降段(a(i)<a(i-1))和持平段(a(i)=a(i-1))。数组a中的n个元素可构成n-1个依次排列的变化段。
●波峰：从上升段转到下降段形成一个波峰。波峰的起点是峰顶前所有连续上升段中的第1个，终点是峰顶后所有连续下降段中的最后1个。
●对称波峰：上升段与下降段个数相同的波峰称为对称波峰。
下图为一组数据的变化段及波峰示意图。
现要求统计数组a各元素依次变化过程中“对称波峰”的个数。小李依据上述描述设计了如下VB程序。请回答下列问题：
Const n=20
Dim a(1 To n)As Integer
Private Sub FormLoad()
‘读取数据，并存储到数组a中。代码略
End Sub
Private Sub Command1_Click()
Dim flag As Integer ‘存储变化段的状态：1表示升；-1表示降；0表示平
Dim count As Integer ‘存储对称波峰的个数
Dim steps As Integer
Dim i As Integer
flag=0：steps=0：count=0
For i= ① To n
If a(i)>a(i-1)Then
If IsSymPeak(flag，steps)Then count count+1
If flag=0 Or flag=-1 Then
②
Else
steps=steps+1
End If
flag=1
EIself a(i)=a(i-1)Then
If IsSymPeak(flag，steps)Then count=count+1
steps=0
flag=0
Else
steps=steps-1
flag=-1
End If
Next i
If IsSymPeak(flag，steps)Then count=count+1
Text1．Text=Str(count)
End Sub
Function IsSymPeak(flag As Integer，steps As Integer)As Boolean
If ③ Then
IsSymPeak=True
Else
IsSymPeak=False
End If
End Function
① ② ③
