VB：编一子过程MaxLength(s,MaxWord),在已知的字符串s中，找出最长的单词MaxWord。

布满荆棘的人生 2022-05-26 06:45 137阅读 0赞

题目来源：大工慕课 [链接][Link 1]  
原题：Visual Basic程序设计教程（第二版）龚沛曾主编，高等教育出版社 实验1-6  
作者：Caleb Sung

# 题目要求 #

编一子过程MaxLength(s,MaxWord),在已知的字符串s中，找出最长的单词MaxWord。假定字符串s内只含有字母和空格，空格分隔不同的单词。程序运行界面如图所示。  
![这里写图片描述][70]

# 题目提示 #

*  首先利用Instr函数从s中从左边开始查找第一个出现的空格，利用Left函数分离出空格左边的单词，与MaxWord最长单词进行比较（MaxWord初态为空）：

i=InStr(s," ") ' 找第一个出现的空格 
    Word=Left(s,i-1) ' 分离出空格左边的单词

word与MaxWord 比较决定是否替换为MaxWord

*  取S中剩余字符串，重复(1)，直到S为空。

s=Mid(s,i+1) ' 取S中剩余字符串

# 操作提示 #

## 关于vb里如何设置textbox的滚动条 ##

1、点击textbox，在属性中把MultiLine属性设置为True  
2、在属性中设置ScrollBars的值，可以根据自己需要选择

> 0：无  
> 1：水平滚动条  
> 2：竖直滚动条  
> 3：水平+竖直滚动条

--------------------

# 参考代码 #

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

[Link 1]: https://mooc.dlut.edu.cn/
[70]: /images/20220526/a6bf11b1919a41fd960ebdb120a9c33b.png

发表评论取消回复

表情：

评论列表（有 0 条评论，137人围观）

还没有评论，来说两句吧...

相关阅读

相关找出字符串中最长的回文子字符串算法

找出字符串中最长的回文子字符串算法回文字符串是指正向和反向读取都相同的字符串。在给定一个字符串的情况下，我们希望找到其中最长的回文子字符串。本文将介绍一种用Java实现的算

ゝ一纸荒年。/ 2023年10月15日 15:26/ 0 赞/ 63 阅读

相关每日一题——在字符串中找出连续最长的数字串

在字符串中找出连续最长的数字串 > 在字符串中找出连续最长的数字串 > 时间限制：3秒 > 空间限制：32768K > 题目描述 > 请一个在字符串中找出连

港控/mmm°/ 2023年01月12日 04:16/ 0 赞/ 159 阅读

相关 17-找出最长单词

include <stdio.h> include <assert.h> include <stdlib.h> include <string.

灰太狼/ 2022年12月21日 09:24/ 0 赞/ 185 阅读

相关华为OJ：在字符串中找出连续最长的数字串

<table> <tbody> <tr> <td>描述: </td> <td style="word-wrap:break-word; wo

末蓝、/ 2022年08月19日 13:13/ 0 赞/ 181 阅读

相关在字符串中找出连续最长的英文字符串

1、不区分大小写 2、返回连续最长串的长度 3、拷贝给新串例如：输入123abcdefg2141as324 返回最长字串为abcdefg 字串长度为7

叁歲伎倆/ 2022年06月13日 09:27/ 0 赞/ 226 阅读

相关找出字符串中的最长连续数字子串

题目 > 给出一个字符串作为输入，找出其中最长的连续数字串并返回其长度和起始index。如果存在长度相同的连续数字串，返回最后一个连续数字串。如果没有，返回0和0。

怼烎@/ 2022年06月08日 05:27/ 0 赞/ 219 阅读

相关在一个字符串中，找出最长回文子串

在一个字符串中，找出最长回文子串(manacher算法) 时间复杂度O(n) 空间复杂度O(n) 比如12321，先做预处理:\1\2\3\2\1\ 定义

桃扇骨/ 2022年06月08日 00:54/ 0 赞/ 198 阅读

相关 VB：编一个子过程DeleStr(s1,s2)，将字符串s1中出现的s2子字符串删去，结果存放在s1中

题目来源：大工慕课 [链接][Link 1] 原题：Visual Basic程序设计教程（第二版）龚沛曾主编，高等教育出版社实验6-8 作者：Caleb Sung

小咪咪/ 2022年05月26日 13:07/ 0 赞/ 169 阅读

相关 VB：编一子过程MaxLength(s,MaxWord),在已知的字符串s中，找出最长的单词MaxWord。

题目来源：大工慕课 [链接][Link 1] 原题：Visual Basic程序设计教程（第二版）龚沛曾主编，高等教育出版社实验1-6 作者：Caleb Sung

布满荆棘的人生/ 2022年05月26日 06:45/ 0 赞/ 138 阅读

相关找出最长连续子序列

![这里写图片描述][70] import java.util.; public class Solution { //方法一:时间

桃扇骨/ 2022年05月21日 05:17/ 0 赞/ 209 阅读