① 早上6:30校园广播自动响起，提醒同学们起床
② 上课时，老师在一体机上通过手写输入录入文字
③ 教学楼走廊的灯检测到有人靠近时会自动打开
④ 英语课上，老师通过有道词典的在线翻译功能辅助进行翻译
⑤ 晚自习结束， 通过人脸识别系统进行入寝点名
使用了人工智能技术的有（ ）
For i = 1 To Len(Text1.Text)
c = Mid(Text1.Text, i, 1)
If c >= "0" And c <= "9" Then c = Chr(Asc(c) + 1)
If c >= "A" And c <= "Z" Then c = Chr(Asc(c) + 32)
s =s + c
Next i
若文本框Text1的内容为“Number 2468！”执行程序后，变量s的值为（ ）
s=Text1.Text
ans=0
For i=1 To Len(s)
t=Mid(s,i,1)
If t>="a" And t<="z" Then
c=c+1
Else
End If
Next i
Text2.Text=Str(ans)
填空处的代码可由以下部分组成：
①c=0
②c=1
③If c>ans Then ans=c
④If c<ans Then c=ans
⑤ans=ans+1
正确的代码顺序是( )
图b
图b
图c
Private Sub Command1_Click()
Dim x As Integer, y As Integer, t As Integer
Dim i As Integer, n As Integer, count As Integer
x = Val(Text1.Text)
y = Val(Text2.Text)
count = 0
For i = x To y
List1.AddItem Str(i)
n = i
Do While n > 0
If n Mod 10 = 1 Then
count = count + 1
End If
Loop
Next i
Label3.Caption = "X到Y之间1的个数有" + +"个"
End Sub
Private Sub Command1_Click()
Dim i As Integer, j As Integer, k As Integer
Dim min As Single, max As Single
Dim d As Single, v As Single, s As String
s = Text1.Text
d = 0: maxd = 0
j = 1: k = 1
For i = 1 To Len(s)
If Mid(s, i, 1) = "," Then
j = i + 1
If Then
max = v
Else
min = v
d = max - min
If d > maxd Then
End If
k = k + 1
End If
Next i
Label1.Caption = "本周温差最大值为" & Str(maxd)
End Sub
