当前位置:首页 » VB程序题 » 正文

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

    << 上一篇 下一篇 >>

    湘公网安备 43011102000514号 - 湘ICP备08100508号