高手，我的VB出现了什么问题
答案:2 悬赏:40 手机版
解决时间 2021-04-01 23:57
- 提问者网友：斑駁影
- 2021-04-01 15:41
高手，我的VB出现了什么问题
最佳答案
- 五星知识达人网友：人類模型
- 2021-04-01 15:53
为什么不描述一下出现了什么问题？
全部回答
- 1楼网友：平生事
- 2021-04-01 16:47
Function MaxLength(s, MaxWord)
Do While s <> ""
i = InStr(s, " ")
If i > 0 Then
word = Left(s, i - 1)
s = Right(s, Len(s) - i)
Else
word = s
s = ""
End If
If Len(word) > Len(MaxWord) Then MaxWord = word
Loop
MaxLength = MaxWord
End Function
Private Sub Command1_Click()
m = Text1
n = ""
k = MaxLength(m, n)
Text2.Text = k
End Sub
Do While s <> ""
i = InStr(s, " ")
If i > 0 Then
word = Left(s, i - 1)
s = Right(s, Len(s) - i)
Else
word = s
s = ""
End If
If Len(word) > Len(MaxWord) Then MaxWord = word
Loop
MaxLength = MaxWord
End Function
Private Sub Command1_Click()
m = Text1
n = ""
k = MaxLength(m, n)
Text2.Text = k
End Sub
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯