①以语音交互的方式在智能音箱上选择歌曲
②烟雾探测器探测到浓烟后自动启动喷淋系统
③扫描学生试卷后，计算机自动批改选择题部分的答案
④智慧教室可以刷脸识别学生，提供学生信息
⑤使用有道词典在线翻译
S="ABCDEFG"
n=Len（s）
m=Int（Rnd*5+1）
i=0：c=1：ans=""
Do While c<= 3
i=（i+m-1）Mod n+ 1
ans=ans+Mid（s，i，1）
c=c+1
Loop
Text 1.Text=ans
执行该程序段后，文本框中不可能的输出是（ ）
Dim i As Integer, sum As Integer, a(0 To 7) As Integer
Dim s As String , ch As String , num As String
s="2-3-4-5-6-7-0"
sum=1：num=""
For i=1 To Len（s）
ch=Mid（s，i，1）
If ch>="0" And ch<="9" Then
num=num+ch
Else
sum=sum*Val（num）
a（Val（num））=Val（num）
End If
Next i
Text1.Text=Str（sum）
执行该程序段后，下列说法正确的是（ ）
图b
①以“类别”进行筛选，选择的值为“在线视频”
②以“10月覆盖人数（万人）”进行筛选，选择“10个最大的值”并设置最大的1项
③以“类别”为关键字（按字母排序）升序排序
④以“类别”为关键字（按笔画排序）升序排序
⑤以“10月覆盖人数（万人）”为主要关键字降序排序
⑥以“10月覆盖人数（万人）”为主要关键字升序排序
则下列选项中的步骤组合（按顺序）可以实现上述功能的是 （多选，填字母）。
图c
计算机的管理规则如下：
·对于某人需要的物品数量，若仓库有足够的物品，将直接分配给该人。
·若某人需要的物品数量超过了当前的库存量，仓库会拒绝该人的请求。
管理员希望知道有多少人没有顺利取到物品。
现编写VB程序实现对物品的管理，在文本框Text 1中输入物品库存总量，在文本框Text 2中输入每人所需要物品的数量（以逗号分隔），单击“统计”按钮count，在Label 4中显示一天中没有取到物品的人数。程序设计界面如图所示。
Private Sub count_Click（）
Dim sum As Integer，num As Integer
Dim cnt As Integer
Dims As String，chAs String，tmp As String
cnt= 0
sum=Val（Text 1.Text）
s=Text 2.Text
For i=1 To Len（s）
ch=Mid（s，i，1）
If ch="，"Then
num=Val（tmp）
If num>sum Then
cnt=cnt+ 1
Else
End If
tmp=""
Else
End If
Next i
Label 4.Caption=Str（cnt）
End Sub
第一排正中间安排1人；第二排正中间安排3人；第三排正中间安排5人……，如此循环，直至班级人数不足以站满一排后结束编排。
三角队形外围一圈的同学对服装有特殊要求，需要进行标记（中间的同学用“●”标记，外围的同学用“▲”标记）
编写VB程序，实现队形编排功能：在文本框Text l中输入班级人数，单击“展示队形”按钮Command1后，将班级学生队形显示在列表框List 1中。例如，当班级学生数为54的时候，程序运行界面如图所示。
Private Sub Command 1_Click( )
Dim i As Integer，j As Integer
Dim cnt As Integer，nAs Integer，tmp As Integer
Dim kw As String，zw As String，c As String
List 1.Clear
cnt=Val（Text 1.Text）
n=0：tmp= 1
Do While 
‘计算三角队形的行数
cnt=cnt-tmp
tmp=tmp+ 2
n=n+1
Loop
For i=1 T on
kw=""：zw=""
For j=i T on-1
kw=kw+" "
Next j
If i=n The nc="▲" Else c="●"
For j= 1 To 2*（i-1）-1
zw=zw+c
Next j
IfThen
ZW="▲"
Else
zw="▲"+zw+"▲"
End If
List 1.Add Item
Next i
End Sub
Private Sub Command1_Click( )
Dims As String，ch As String
Dim i As Integer，t As Integer
Dim ans As Long，px As Long
s=Text1.Text
ans=0：t=0：px= 1
For i=1 To Len（s）
ch=Mid（s，i，1）
IfThen
t=t*10+Val（ch）
Else
px=px*t
If ch= "_" Then
px=-1
End If
t=0
End If
Next i
Label 1.Caption=Str（ans+）
End Sub
