VB程序、、编写应用程序,要求在TextBox控件的文本框中输入一个英文句子后完成如下操作:
来源:学生作业帮 编辑:搜狗做题网作业帮 分类:综合作业 时间:2024/05/02 17:59:05
VB程序、、编写应用程序,要求在TextBox控件的文本框中输入一个英文句子后完成如下操作:
1) 分析并显示控件的值中含有几个字母“a”.
2) 若英文句子用“.”号结束,英文单词间用空格字符和逗号字符作为分隔字符,分析显示TextBox控件的Text值中含有几个英文单词.
3) 把找到的单词按从小到大的次序排序后显示到另一个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吧怀疑 我没用过
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吧怀疑 我没用过
VB程序、、编写应用程序,要求在TextBox控件的文本框中输入一个英文句子后完成如下操作:
编写VB程序,在文本框中输入一个简单的英文句子,找出这个句子中最长的单词
编写程序VB,在一个文本框中输入一个简单的英文句子,找出这个英文句子中最长的单词
设计一个应用程序,其界面如图4.1所示.要求定义一个判断奇偶数的自定义函数过程,程序运行时,在文本框控件Text1中输入
编写程序,在一个文字框中输入一个简单的英文句子,找出这个英文句子中最长的单词.用vb做
使用VB在文本框中输入一行英文句子,统计其中的单词个数?
用VC++6.0编写程序如下:编写一个函数,统计一条英文句子中字母的个数,在主程序中实现输入、输出.
VB编写一个程序,实现在文本框内输入一个长度值,单位为“厘米”,点击名利按钮转化为X米X分米X厘米的形式
vb编程求和代码我在左侧输入了一个textbox,右面建立了10个textbox,想编写一段代码,当左面输入为5时则求右
vb编写判断奇,偶数的函数过程.从文本框输入一个正整数,调用函数过程判断奇偶函数,判断结果显示在标签中
vb,我想要问的是我要在文本框输入一串英文句子,然后按单词分解到列表框中!该怎么办?
编写一个VB循环程序用line方法或line控件对象在屏幕上随机产生20条长度、颜色、宽度各异的直线段