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

布满荆棘的人生 2022-05-26 06:45 97阅读 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 条评论，97人围观）

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

相关阅读

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

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

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

相关 17-找出最长单词

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

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

相关 C#找出字符串数组中最长的元素

using DocumentFormat.OpenXml.Drawing.Charts; using System; using System.Coll

- 日理万妓/ 2022年11月25日 10:10/ 0 赞/ 158 阅读

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

相关找出最长连续子序列

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

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