①用天猫精灵语音控制房内电子设备
②人脸识别门禁考勤
③微信发送语音
④手机应用软件“作业帮”识别图片内容进行检索
⑤手机APP实时显示公交车行驶轨迹
Private Sub CmdTJ_Click()
Dim count(25) As Integer
Dim ch, ch2 As String
Dim m As Integer
ch = Text1.Text
For k = 1 To Len(ch)
n = Asc(ch2)-Asc(“a”)
If n >= 0 And n <= 25 Then
count(n) = count(n) + 1
List1.AddItem "字母" + ch2 + "出现" + Str(count(n)) + "次"
End If
Next k
m = count(0)
For k = 1 To 25
If Then m = count(k)
Next k
Label1.Caption = "字母最高出现" + Str(m) + "次"
End Sub