修改时间:2024-07-31 浏览次数:123 类型:期中考试
会员编号 | 姓名 | 积分 | 性别 | 余额 | 出生日期 |
V101 | 张小明 | 461 | 男 | ¥820.0 | 1999-12-21 |
P103 | 李小红 | 5000 | 女 | ¥786.0 | 2000-01-24 |
…… | …… | …… | …… | …… | …… |
若用Access数据表“会员信息”来存储上述表的信息,下列说法错误的是( )
图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
试题篮