s="Cc12BbAa":t=""
For i=1 To len(s)
ch=Mid(s,i,1)
If ch>="a" And ch<="z" or ch>="A" And ch<="Z" Then
If ch>="a" And ch<="z" Then
ch=Chr(Asc(ch)-32)
End If
t=ch+t
End If
Next i
| 会员编号 | 姓名 | 积分 | 性别 | 余额 | 出生日期 |
| V101 | 张小明 | 461 | 男 | ¥820.0 | 1999-12-21 |
| P103 | 李小红 | 5000 | 女 | ¥786.0 | 2000-01-24 |
| …… | …… | …… | …… | …… | …… |
若用Access数据表“会员信息”来存储上述表的信息，下列说法错误的是（ ）
①在搜索引擎里找到相关内容的英文扫描件，并下载到本地计算机中；
②使用OCR软件将扫描件中的内容识别为文本，并保存；
③使用翻译软件把识别结果转换为中文；
④将翻译结果复制到Word中进行编辑。
以上过程中体现了人工智能技术应用的有（ ）
图1
图2
Private Sub Command1_Click()
Dim a(1 To 100) As String ,s As String, ch As String, word As String
Dim i As Integer, j As Integer, k As Integer, numb As Integer
s = Text1.Text : k = 0 : word = ""
For i = 1 To Len(s)
ch = Mid(s, i, 1)
If ch >= "a" And ch <= "z" Or ch >= "A" And ch <= "Z" Then
If ch >= "A" And ch <= "Z" Then
word = word + ch
Else
flag = False
For j = 1 To k
If a(j) = word Then flag = True
Next j
If Not flag And word <> "" Then
a(k) = word
numb = numb + 1
End If
End If
Next i
Text2.Text = str(numb)
End Sub
