vb 编写一个程序,当任意输入一个英文句子,将此字符串中的最长的单词输出.若最长的单词有几个,则随便输一个.
问题描述:
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) 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上面的,只不过是简写而已,呵呵。哦!谢谢