vb 编写一个程序,当任意输入一个英文句子,将此字符串中的最长的单词输出.若最长的单词有几个,则随便输一个.
来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/04/27 22:50:48
vb 编写一个程序,当任意输入一个英文句子,将此字符串中的最长的单词输出.若最长的单词有几个,则随便输一个.
可以的话顺便也写那些代码的意思
可以的话顺便也写那些代码的意思
Private Sub Command1_Click()
Dim s$, i%, sMax$, sArr$()
s = InputBox("任意输入一个英文句子", "输入英文", "Hello, this is a test command!")
s = Replace(s, ",", " ") '处理一些符号
s = Replace(s, ".", " ")
s = Replace(s, "!", " ")
s = Replace(s, ";", " ")
sArr = Split(s) '分解到数组
For i = LBound(sArr) To UBound(sArr)
If Len(sMax) < Len(sArr(i)) Then sMax = sArr(i) '最长的单词
Next
Print sMax: MsgBox sMax, vbOKOnly, "输出最长的单词"
End Sub
再问: 有没有更详细的意思啊? 我不是很明白~ 特别这个( Dim s$, i%, sMax$, sArr$())
再答: Dim s$, i%, sMax$, sArr$() 定义变量,相当于 Dim s As String, i As Integer, sMax As String, sarr() As String 上面的,只不过是简写而已,呵呵。
再问: 哦!谢谢
Dim s$, i%, sMax$, sArr$()
s = InputBox("任意输入一个英文句子", "输入英文", "Hello, this is a test command!")
s = Replace(s, ",", " ") '处理一些符号
s = Replace(s, ".", " ")
s = Replace(s, "!", " ")
s = Replace(s, ";", " ")
sArr = Split(s) '分解到数组
For i = LBound(sArr) To UBound(sArr)
If Len(sMax) < Len(sArr(i)) Then sMax = sArr(i) '最长的单词
Next
Print sMax: MsgBox sMax, vbOKOnly, "输出最长的单词"
End Sub
再问: 有没有更详细的意思啊? 我不是很明白~ 特别这个( Dim s$, i%, sMax$, sArr$())
再答: Dim s$, i%, sMax$, sArr$() 定义变量,相当于 Dim s As String, i As Integer, sMax As String, sarr() As String 上面的,只不过是简写而已,呵呵。
再问: 哦!谢谢
vb 编写一个程序,当任意输入一个英文句子,将此字符串中的最长的单词输出.若最长的单词有几个,则随便输一个.
编写VB程序,在文本框中输入一个简单的英文句子,找出这个句子中最长的单词
编写程序VB,在一个文本框中输入一个简单的英文句子,找出这个英文句子中最长的单词
编写程序,在一个文字框中输入一个简单的英文句子,找出这个英文句子中最长的单词.用vb做
用VB找出一个英文句子中最长的单词,并输出其长度
用JAVA编写一个程序,判断一个字符串中有几个单词,例:I am tom.输出三个单词.单词之间的空格数不定!
用C编程:输入一个英文句子(小写字符串),将其中每个单词的首字母改成大字母,然后输出此句子.谢谢…
输入一个英文句子,统计其中单词的个数,输出最长单词在文本中的位置(是文本中的第几个字符)和长度;
pascal 程序 读入一个句子,单词之间用空格隔开 输出最长的单词,并输出这个单词的长度
C语言编程求一个英文句子中的单词数和最长单词的位置、长度及输出这个单词.
C语言 编写递归函数1.设计递归程序任意给定输入的一个小写英文字符串a1a2a3…an-1an (n≥5)输出:字符串A
用java求任意一个字符串中英文单词的总数,最长单词的长度,最短单词的长度