①家用电饭锅的预约功能
②科考人员利用无人机进行地貌航拍
③通过语音向某智能音箱发出指令
④烟雾探测器探测到浓烟时自动启动喷淋系统
⑤某搜索引擎使用“识图”功能对上传的图片进行相似图片查找
如下图所示的数据，下列关于该职工管理信息系统的描述，正确的是（ ）
| 编号 | 姓名 | 性别 | 出生年月 | 党员 | 联系方式 |
| S001 | 宋琪 | 女 | 1997-06-12 | 是 | 138****5555 |
| M002 | 张同一 | 男 | 1996-12-16 | 否 | 186****6666 |
| … | … | … | … | … | … |
Dim tmp As Single ,s As String ,ch As String ,i As Integer s = "1,20,36,29,3,"
tmp = 0
For i = 1 To Len(s)
ch = Mid(s, i, 1)
If ch <> "," Then
Else
If Then
List1.AddItem Str(tmp)
End If
tmp = 0
End If
Next i
上述程序段中横线处可选语句为：
① tmp = tmp * 10 + Val(ch)
② tmp = tmp + ch
③ Sqr(tmp) ^ 2 = tmp
④ Int(Sqr(tmp)) = Sqr(tmp)
则方框处处语句依次为： （ ）
Ma = 0: Mb = 0
For i = 1 To 10
If d(i) > Ma Then
Mb = Ma
Ma = d(i)
ElseIf d(i) > Mb Then
Mb = d(i)
End If
Next i
数组元素d(1)至d(10)的值依次为：4,2,5,7,10,8,3,9,1,6，执行该程序段后，变量Ma和Mb的值分别为（ ）
s = "582319476"
i = 1: max = 0: res = ""
Randomize
Do While i <= Len(s) \ 3
tmp = Int(Rnd * 9 + 1)
If tmp >= max Then
res = res + Mid(s, tmp, 1)
max = tmp
i = i + 1
End If
Loop
执行该程序段后，变量res的值不可能是（ ）
(提示:公式“=COUNTIF(D3:D27,J2)”统计区域 D3:D27 中值等于J2的单元格个数，即参加“小学美术”职位的报考人数。)
图b
①从左往右依次获取各字符的ASCII码值；
②对奇数位字符的ASCII码值做加法处理，对偶数位字符的ASCII码值做减法处理；
③将上述结果取绝对值后除以26求余数，余数为0~25，分别对应大写字母A~Z，则该大写字母即为验证字符。
小李编写字符串验证程序，功能如下:在文本框Text1中输入待检验字符串（最后一位为验证字符），点击按钮Command1，在标签Label1中显示输入字符串是否验证成功。程序运行界面如图所示。
Private Sub Command1_Click()
Dim s As String, t As String
Dim cha As Integer, ans As Integer
Dim a As Integer, b As Integer, i As Integer
s =
t = Mid(s, Len(s), 1)
ans = 0
For i = 1 To Len(s) - 1
cha = Asc(Mid(s, i, 1))
If Then
ans = ans - cha
Else
ans = ans + cha
End If
Next i
ans = Abs(ans) Mod 26
If 
Then
Label1.Caption = "验证成功！"
Else
Label1.Caption = "验证失败！"
End If
End Sub
①3个数中包含1-9的全部数字，且不重复；
②3个数的大小之比为1:2:3。
如“192、384、576”是符合规则的一种组合。
现编写程序功能如下：单击“计算”按钮Command1，在列表框List1中输出符合条件的数字组合，在标签Label1中输出组合数量。程序运行界面如图所示。
Private Sub Command1_Click()
Dim f(0 To 9) As Integer
Dim i As Long, j As Integer, s As Integer
Dim tmp As Long, t As Integer, count As Integer
count = 0
For i = 123 To 333
For j =
f(j) = 0
Next j
tmp = i + 2 * i * 1000 + 3 * i * 1000000
Do While tmp > 0
t =
tmp = tmp \ 10
f(t) = 1
Loop
s = 1
For j = 1 To 9
s = s * f(j)
Next j
IfThen
List1.AddItem Str(i) + Str(2 * i) + Str(3 * i)
count = count + 1
End If
Label1.Caption = "共有" + Str(count) + "种组合"
Next i
End Sub
