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上面的,只不过是简写而已,呵呵。哦!谢谢
vb 编写一个程序,当任意输入一个英文句子,将此字符串中的最长的单词输出.若最长的单词有几个,则随便输一个.
vb 编写一个程序,当任意输入一个英文句子,将此字符串中的最长的单词输出.若最长的单词有几个,则随便输一个.
可以的话顺便也写那些代码的意思
可以的话顺便也写那些代码的意思
其他人气:783 ℃时间:2020-05-12 07:01:20
优质解答
我来回答
类似推荐
猜你喜欢
- 1人剧烈运动后,隔一段时间血浆的PH会?
- 2如果两个有理数的商是负数,那么这两个数是 A同时正数或负数 B至少有一个是负 C和是正数 D一个正数一个负数
- 3二元一次方程组4x-y=1 2x=3y=-7的解
- 4用英文说一路顺风
- 5纬度不同,厚度有明显变化的地球大气层是
- 6甲,乙两船在静水中航行的速度相等,它们同时从A,B两个码头相对开出
- 7Diana has a lot of friends,but she wants to make_A many more B much more C many othersD much others
- 8你正计划下周三与你的家人外出游玩一天吗?(plan a day out)
- 9有谁知道四阶魔方还原公式,我不要网站,
- 10陆地上最大的动物是大象,海洋里最大的动物是鲸,为什么海洋里的动物比陆地上的动物要大?