图a
请回答下列问题：
图b
图c
图a
函数 IsLetter(x)功能，若 x 是字母，则返回值为字母 x 在字母序列“A”～“Z”中的序号，如字母“A”的序号为 0，字母“D”的序号为 3。若 x 不是字母，则返回值为－1。
Function IsLetter(x As String) As Integer
If ”A” <＝ x And x <＝ ”Z” Then
IsLetter ＝ Asc(x) － Asc(”A”)
ElseIf ”a” <＝ x And x <＝ ”z” Then
IsLetter ＝ Asc(x) － Asc(”a”)
Else
①
End If
End Function
Private Sub Command1_Click()
Dim f(25) As Integer, m As Integer, n As Integer
Dim s As String, c As String
List1.Clear
For m ＝ 0 To 25 '初始化数组 f
f(m) ＝ 0
Next m
s ＝ Text1.Text
For m ＝ 1 To Len(s)
c ＝ Mid(s, m, 1) '依次读取字符串中的每个字符进行判断
②
If n <> －1 Then f(n) ＝ f(n) ＋ 1
Next m
For m ＝ 0 To 25
If ③ Then '输出统计结果，没有出现的字母不输出
List1.AddItem(Chr(m ＋ Asc(”a”)) & ”：” & f(m))
End If
Next m
End Sub
①{#blank#}1{#/blank#} ②{#blank#}2{#/blank#} ③{#blank#}3{#/blank#}
”按钮可以移动到第6条记录
C . 当前数据表的数据不能导出到Excel电子表格
D . “住宿”字段的数据类型可能为文本
图a
图b
Private Sub Command1_Click()
Dim s As String, c As String, tmp As String
Dim i As Integer, cnt As Integer
Dim flag As Boolean
cnt=0 : flag = True
List.Clear: s = Text1.Text: Text1.text=""
For i = 1 To Len(s)
ch = Mid(s, i, 1)
If ch >= "0" And ch <= "9" Then
tmp = tmp + ch
If Len(tmp) > 1 Then
If ① Then flag = False
End If
Else
If flag Then
List1.AddItem tmp: cnt = cnt + 1
Else
flag = True
End If
tmp = ""
End If
Next i
If flag Then List1.AddItem tmp: cnt = cnt + 1
If ② Then Text2.Text = "找不到" Else Text2.Text = Str(cnt)
End Sub
①{#blank#}1{#/blank#} ②{#blank#}2{#/blank#}
“11 456 7 4443 488 666666”，单击“筛选密码”按钮，文本框Text2中显示的内容是{#blank#}1{#/blank#}。
下列说法正确的是（ ）
Private Sub Command1_Click()
Dim s1 As String, s2 As String, ch As String
s1 ＝ Text1.Text
s2 ＝””
ch ＝””
For i ＝ 1 To Len(s1)
ch ＝ Mid (s1, i, 1)
If Asc(ch) <＝ 122 And Asc(ch) >＝ 97 Then
ch ＝Chr(Asc(ch) － 32)
End If
If Asc(ch) >＝ 65 And Asc(ch)<＝ 90 Then
ch ＝ Chr(65 ＋ (Asc(ch) － 62) Mod 26)
End If
s2 ＝ s2 ＋ ch
Next i
Text2.Text ＝ s2
End Sub
已知大写字母A的ASCII码值为65，且小写字母的 ASCII 码为对应的大写字母的ASCII码加上32。运行上述程序，若文本框Text1 中的内容为“Text1”，单击命令按钮 Command1，则文本框Text2中将显示（ ）
VIP申请
组卷通申请
