问题描述：
VB程序、、编写应用程序,要求在TextBox控件的文本框中输入一个英文句子后完成如下操作：
1) 分析并显示控件的值中含有几个字母“a”.
2) 若英文句子用“.”号结束,英文单词间用空格字符和逗号字符作为分隔字符,分析显示TextBox控件的Text值中含有几个英文单词.
3) 把找到的单词按从小到大的次序排序后显示到另一个TextBox控件的文本框中.
问题解答：
我来补答
请用以下代码要求一个list1 用来排序单词 请将sorted属性设置为true .
Private Sub Command1_Click()
Dim ano
For i = 1 To Len(Text1.Text)
If Mid(Text1.Text, i, 1) = "a" Then
ano = ano + 1
End If
Next
MsgBox ano & "个a"
End Sub
Private Sub Command2_Click()
Dim Cmdarr() As String, cno As Long, mdarr() As String
Cmdarr = Split(Text1.Text, " ")
For i = LBound(Cmdarr) To UBound(Cmdarr) '分析有几个单词
mdarr = Split(Cmdarr(i), ",")
For c = LBound(mdarr) To UBound(mdarr) ' 为单词排序到list1
List1.AddItem mdarr(c)
Next
cno = cno + UBound(mdarr)
Next
For d = 0 To List1.ListCount - 1 '将排序好的单词输出到text2
Text2.SelText = List1.List(d) & " "
Next
MsgBox cno + UBound(Cmdarr) + 1 & "个单词"
End Sub
再问： 不用LIST 只用一个Textbox 这是数组的习题
再答： 能力有限不好意思 如果你解决了这个问题能发给我一份吗 学习一下 zuoms@126.com
再问： 我们用的是visual basic 2008 像你写的那个List1.AddItem mdarr(c) 在这上边用Listbox1.items.add mdarr(c) 代替了 但是For d = 0 To List1.ListCount - 1 Text2.SelText = List1.List(d) & " " 这两句不知道用什么代替了
再答： List1.ListCount - 1 = cno + UBound(Cmdarr) Text2.SelText = List1.List(d) & " " --------------TEXT2.TEXT=TEXT2.TEXT & LIST1.LIST(D) & " " List1.ListCount 是 这个控件里有多少项目 2008有对应的属性Listbox1.items.Count吧怀疑 我没用过
