编写程序VB,在一个文本框中输入一个简单的英文句子,找出这个英文句子中最长的单词
来源:学生作业帮 编辑:神马作文网作业帮 分类:综合作业 时间:2024/09/21 03:23:50
编写程序VB,在一个文本框中输入一个简单的英文句子,找出这个英文句子中最长的单词
Private Sub Command1_Click()
Dim word() As String,s As String
Dim k As Integer,maxw As String,n As Integer
s = Text1.Text
Do
n = InStr(s," ")
If n 0 Then
k = k + 1
ReDim Preserve word(k)
word(k) = Left(s,n - 1)
List1.AddItem word(k)
s = Right(s,n + 1)
End If
Loop Until n = 0
ReDim Preserve word(k + 1)
word(k + 1) = Left(s,Len(s) - 1)
List1.AddItem word(k + 1)
maxw = word(1)
For n = 2 To UBound(word)
If Len(word(n)) > Len(word(1)) Then
maxw = word(n)
End If
Next n
Text2 = maxw
End Sub
提示为溢出,k=k+1 变黄色
Private Sub Command1_Click()
Dim word() As String,s As String
Dim k As Integer,maxw As String,n As Integer
s = Text1.Text
Do
n = InStr(s," ")
If n 0 Then
k = k + 1
ReDim Preserve word(k)
word(k) = Left(s,n - 1)
List1.AddItem word(k)
s = Right(s,n + 1)
End If
Loop Until n = 0
ReDim Preserve word(k + 1)
word(k + 1) = Left(s,Len(s) - 1)
List1.AddItem word(k + 1)
maxw = word(1)
For n = 2 To UBound(word)
If Len(word(n)) > Len(word(1)) Then
maxw = word(n)
End If
Next n
Text2 = maxw
End Sub
提示为溢出,k=k+1 变黄色
Private Sub Command1_Click()
If Text1.Text = "" Then Exit Sub
Dim word As Variant,s As String
Dim k As Integer,maxw As String,n As Integer
s = Replace(Replace(Text1.Text,","," "),"."," ")
s = Replace(Replace(s,","," "),"."," ")
s = Replace(s,vbCrLf," ")
s = Trim(Replace(s," "," "))
If s = "" Then Exit Sub
word = Split(s," ")
n = UBound(word)
For k = 0 To n
If n = k Then Exit For
If Len(CStr(word(k + 1))) > Len(maxw) Then
maxw = word(k + 1)
End If
Next
MsgBox maxw & "=" & Len(maxw) & "字节"
End Sub
再问: 我要改我追问的。。。谢谢
再答: 哦,我看一下,就怕看别人代码 测试了,没有看到问题,你是在什么情况下有的提示错? 经过空测试,错误: 应该在 s = Text1.Text 下面判断: if s="" then exit sub
If Text1.Text = "" Then Exit Sub
Dim word As Variant,s As String
Dim k As Integer,maxw As String,n As Integer
s = Replace(Replace(Text1.Text,","," "),"."," ")
s = Replace(Replace(s,","," "),"."," ")
s = Replace(s,vbCrLf," ")
s = Trim(Replace(s," "," "))
If s = "" Then Exit Sub
word = Split(s," ")
n = UBound(word)
For k = 0 To n
If n = k Then Exit For
If Len(CStr(word(k + 1))) > Len(maxw) Then
maxw = word(k + 1)
End If
Next
MsgBox maxw & "=" & Len(maxw) & "字节"
End Sub
再问: 我要改我追问的。。。谢谢
再答: 哦,我看一下,就怕看别人代码 测试了,没有看到问题,你是在什么情况下有的提示错? 经过空测试,错误: 应该在 s = Text1.Text 下面判断: if s="" then exit sub
编写VB程序,在文本框中输入一个简单的英文句子,找出这个句子中最长的单词
编写程序VB,在一个文本框中输入一个简单的英文句子,找出这个英文句子中最长的单词
编写程序,在一个文字框中输入一个简单的英文句子,找出这个英文句子中最长的单词.用vb做
VB程序、、编写应用程序,要求在TextBox控件的文本框中输入一个英文句子后完成如下操作:
使用VB在文本框中输入一行英文句子,统计其中的单词个数?
vb 编写一个程序,当任意输入一个英文句子,将此字符串中的最长的单词输出.若最长的单词有几个,则随便输一个.
用VB找出一个英文句子中最长的单词,并输出其长度
vb,我想要问的是我要在文本框输入一串英文句子,然后按单词分解到列表框中!该怎么办?
用VB编写过程,计算输入英文句子中单词的平均长度
c语言 写一个函数,找出一个英文句子中最长的单词
用VC++6.0编写程序如下:编写一个函数,统计一条英文句子中字母的个数,在主程序中实现输入、输出.
编写一个JavaScript脚本,检测一个文本框中输入的内容是否都是由英文大小写字母以及数字构成.