找英文单词并统计每个单词的字母数量设计一个VB程序,程序实现功能如下:在文本框Text1中输入文章信息,点击“统计”按钮Command1,依次在列表框List1 中显示连续的字符,最后一行显示每个连续字母的数量,数字之间用“,”隔开。
程序界面如图所示,实现上述功能的VB代码如下,请回答下列问题:
(1)
代码中的AddItem属于( 单选,填字母:A .属性名/B .方法名/C .对象名)。
(2)
请在划线处填上合适的代码。
Private Sub Command1_Click()
Dim s As String, ans As String
Dim ch As String, n As Integer
Dim i As Integer
s= Text1.Text
ans =““: n=0
For i=1 To Len(s)
If ch>= "A" And ch<=
"Z" Or ch>>="a" And ch<=" z" Then
n=n+1
ElseIf n > 0 Then
ans=ans+Str(n) + ","
List1.AddItem
n=0
End If
Next i
List1.AddItem"连续字母的数量依次为:"+ans
End Sub
(3)
若在文本框Text1中输入的内容为“Summer vacation is comming”(不带双引号),运行程序后,ans的值为。
答案: 【1】B
【1】ch= Mid(s, i, 1)【2】Mid(s, i- n, n)
【1】6,8,2