①新款相机带有识别人眼功能，实现快速跟踪对焦的功能。
②某软件实时将主持人说话内容转换为字幕，显示在投影屏幕上。
③倒车雷达实时提醒后方障碍物距离
④实现将老照片上的人物能眨眼、能微笑等表情动作的过程
| 报名序号 | 出生日期 | 姓名 | 户籍所在地 | 考生类别 | 少数民族 |
| 1 | 2001.01.29 | A同学 | 丽水 | 普通 | 是 |
| 2 | 2001.02.12 | B同学 | 湖州 | 普通 | 否 |
| 3 | 2000.12.11 | C同学 | 温州 | 艺术 | 否 |
| … | … | … | … | … | … |
下列关于“考试信息”数据表的描述，正确的是（ ）
c = 1: Max = 0
s = "19491001ZHong20211001"
For i = 2 To Len(s)
If Asc(Mid(s, i - 1, 1)) < Asc(Mid(s, i, 1)) Then
c = c + 1
ElseIf c > Max Then
Max = c
c = 1
Else
c = 1
End If
Next i
Text1.Text = Str(Max)
执行上述程序段后，文本框 Text1 中显示的是（ ）
k = 0
For i = 1 To 10
If b(a(i)) = 0 Then k = k + 1
b(a(i)) = b(a(i)) + 1
Next i
For i = 1 To k
p = 1
For j = 2 To 10
If b(j) > b(p) Then p = j
Next j
b(p) = 0
s = s + Str(p)
Next i
数组a(1)～a(10)的元素分别为2,5,3,8,8,5,8,9,5,3。数组b(1)～b(10)的元素初始值均为0，执行程序后，变量s的值为（ ）
key=
i = 1: j = 10
Do While i <= j
m = (i + j) \ 2
If a(m) < Key Then
i = m + 1: n = n + 1
Else
j = m - 1: n = n - 1
End If
Loop
数组元素a(1)到a(10)的值依次是“2,2,4,6,9,15,15,20,25,30”若n值为2，则key的值可能为（ ）
|
图a |
|
图b |
|
场景名：主界面 |
序号类别：2 |
进入方式：来自“片头”场景，通过“开始”按钮进入 |
|
呈现方式： 1、“垃圾”文字从舞台左上侧飞入，最终停在舞台中央（偏左）。 2、“分类”文字从舞台上侧飞入，旋转一圈后静止在“垃圾”右侧。 …… |
呈现顺序： 1、一开始出现城市背景，“垃圾”文字从舞台左上侧飞入，补间动画持续1秒，静止在舞台中央（偏左）。 2、动画开始1秒后，“分类”文字从舞台上侧飞入，补间动画持续1秒，静止在舞台中央（偏右）。 …… |
|
游戏规则如下：
1）第1轮，将所有灯都关闭
2）第2轮，将所有偶数（编号为2的倍数的灯打开）
3）第3轮，如果编号为3的倍数的灯开着，则关闭，如果灯关闭着，则打开
4）重复游戏直到第n轮结束
现在给定灯的数目n(5<=n<=200)，求最后灯关闭的数目。
编写VB程序，实现上述功能，运行程序，在文本框Text1中输入n盏灯数，单击“确定”按钮Command1，在文本框Text2中显示灯灭掉的数量。程序运行界面如、图所示。
请回答下列问题：
Private Sub Command1_Click()
Dim n As Integer, k As Integer, tmp As Integer, num As Integer
Dim a(1 To 200) As Integer, i As Integer, j As Integer
n = Val(Text1.Text)
For i = 1 To n
a(i) = 1
Next i
For i = 1 To n
Do While tmp <= n
If _ Then
a(tmp) = 0
Else
a(tmp) = 1
End If
Loop
Next i
num = 0
For j = 1 To n
If a(j) = 0 Then num = num + 1
Next j
Text2.Text = Str(num)
End Sub
例如：
分析：如果词典中的单词数量比较少，我们可以采取将第i个单词与第j个单词拼接成“新单词”并在字典中查找，但如果词典中单词数量多（如12000个）此种方法速度慢，我们发现词典中的单词是有序排列，可以加快查找复合单词的速度，本题的算法策略是：对第i个单词，从第j（j=i+1）个开始判断，如果第j个单词前半部分（长度为第i个单词的长度）跟第i个单词一致，则在词典中查找第j个单词的后半部分。如果找到，则为一个复合单词。
编写vb程序，寻找词典中所有复合单词并输出显示。运行程序，在列表框list1中显示从词典数据库中导入的单词，单击“统计”按钮command1，在列表框list2中按降序显示该词典中所有复合单词。程序运行界面如图所示。
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim n As Integer
Dim a(1 To 200) As String
Function search(key As String) As Boolean
i = 1: j = n
Do While i <= j
m = Int(i + (j - i) / 2)
If key = a(m) Then
search = True: Exit Do
ElseIf key > a(m) Then
i = m + 1
Else
j = m - 1
End If
Loop
End Function
Private Sub Command1_Click()
Dim i As Integer, j As Integer, temp2 As String
Dim out(0 To 100)
For i = 1 To n
For j = i + 1 To n
If a(i) = Mid(a(j), 1, Len(a(i))) Then
If search(temp2) = True Then
cnt = cnt + 1
k = cnt
Do While a(j) > out(k) And k > 0 '找到a(j)应该插入的位置k
k = k - 1
Loop
For p = cnt To k + 1 Step -1 'k到末尾元素均后移一位
out(p) = out(p - 1)
Next p
End If
End If
Next j
Next i
For i = 1 To cnt
List2.AddItem out(i)
Next i
End Sub
Private Sub Form_Load()
Dim i As Integer
连接字典数据库
打开数据库中字典数据表，代码略
n = 0
Do While Not rs．EOF
n = n + 1
a(n) = rs/Fields("words")
rs/MoveNext
Loop
关闭数据连接，代码略
List1.Clear
For i = 1 To n
List1.AddItem a(i) '在列表框List1中显示单词
Next i
End Sub
