VB程序题：编一子过程MaxLength(s,MaxWord),在已知的字符串s中，找出最长的单词MaxWord。假定字符串s内只含有字母和空格，空格分隔不同的单词。程序运行界面如图F.5所示。龚沛曾

VB程序题：编一子过程MaxLength(s,MaxWord),在已知的字符串s中，找出最长的单词MaxWord。假定字符串s内只含有字母和空格，空格分隔不同的单词。程序运行界面如图F.5所示。

提示：
(1) 首先利用Instr函数从s中从左边开始查找第一个出现的空格，利用Left函数分离出空格左边的单词，与MaxWord最长单词进行比较（MaxWord初态为空）：
        i=InStr(s," ")   '找第一个出现的空格
        Word=Left(s,i-1) ' 分离出空格左边的单词
        word与MaxWord 比较决定是否替换为MaxWord

(2) 取S中剩余字符串，重复(1)，直到S为空。
        s=Mid(s,i+1)   ' 取S中剩余字符串

解题，画2个文本框，1个按钮，2人标签，代码如下：  http://www.wb86.com

Private Sub Command1_Click()
    Dim maxw$
    maxlen Text1 & " ", maxw
    Text2 = maxw
End Sub
Sub maxlen(s$, maxw$)
    Dim word$
    maxw = ""
    Do While s <> ""
        i = InStr(s, " ")
        word = Left(s, i - 1)
        If Len(word) > Len(maxw) Then maxw = word
        s = Mid(s, i + 1)
    Loop
End Sub

运行程序,效果图 F.5 如下：

Visual Basic程序设计教程(第3版) (龚沛曾等编)课后实验源码

打赏 支付宝打赏 微信打赏

来源：济亨网

本文链接：http://wb86.com/post/96.html