作业帮VB程序、、编写应用程序,要求在TextBox控件的文本框中输入一个英文句子后完成如下操作：1) 分析并显示控件的值中含有几个字母“a”.2) 若英文句子用“.”号结束,英文单词间用空格字符和
来源：学生作业帮助网 编辑：作业帮 时间：2024/11/03 03:45:54
VB程序、、编写应用程序,要求在TextBox控件的文本框中输入一个英文句子后完成如下操作：1) 分析并显示控件的值中含有几个字母“a”.2) 若英文句子用“.”号结束,英文单词间用空格字符和
VB程序、、编写应用程序,要求在TextBox控件的文本框中输入一个英文句子后完成如下操作：
1) 分析并显示控件的值中含有几个字母“a”.
2) 若英文句子用“.”号结束,英文单词间用空格字符和逗号字符作为分隔字符,分析显示TextBox控件的Text值中含有几个英文单词.
3) 把找到的单词按从小到大的次序排序后显示到另一个TextBox控件的文本框中.
VB程序、、编写应用程序,要求在TextBox控件的文本框中输入一个英文句子后完成如下操作：1) 分析并显示控件的值中含有几个字母“a”.2) 若英文句子用“.”号结束,英文单词间用空格字符和
请用以下代码要求一个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