作业帮 > 综合 > 作业

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 上面的,只不过是简写而已,呵呵。
再问: 哦!谢谢