jwbf.net
当前位置:首页 >> vB中lEn(worD_s)是什么意思 >>

vB中lEn(worD_s)是什么意思

words 话 拼音 双语对照 words 英 [wɜ:dz] 美 [wɜ:dz] n. 字( word的名词复数 ); (说的)话; 诺言; 口令 网络 消息; 语词; 语 形近词: Words WORDS

FindTexts = s(0) YesNo = "1" Do While YesNo = "1" 没看完 但是你这句有问题吧,Do While 前有一个赋值 ,那么你这个循环是不可能循环的,后面的代码跟没有是一样的

Private Sub Command1_Click() Call maxlength(Text1, n) Text2 = n End Sub Sub maxlength(s, maxword) maxword = "" For n = 1 To 10000 i = InStr(s, " ") If i = 0 And Len(s) > 0 Then i = Len(s) + 1 word = Left(s, i - 1) If Len(word) ...

这样: Private Sub Command1_Click() Text2 = maxword(Text1) End Sub Function maxword(s) As String Dim mw As Long, i As Integer Dim word() As String word = Split(s, " ") For i = 0 To UBound(word) If Len(word(i)) > mw Then mw = Le...

首先引用word,再增加以下代码 Dim W As Word.Application Set W = New Word.Application W.Visible = True W.WindowState = wdWindowStateMaximize W.Documents.Add s = Dir("f:\doc\\*.doc") While s "" W.Selection.InsertFile FileName:="f:\...

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, ",", " "...

for 【介词】 支持 They are all for him. 他们都拥护他。 所以没有fors and againsts的用法,只有【for and against】 There are strong arguments 【for and against】 capital punishment. 对於执行死刑,赞成与反对的双方都有强有力的论据。...

Function MaxLength(s, MaxWord) Do While s "" i = InStr(s, " ") If i > 0 Then word = Left(s, i - 1) s = Right(s, Len(s) - i) Else word = s s = "" End If If Len(word) > Len(MaxWord) Then MaxWord = word Loop MaxLength = MaxWord En...

网站首页 | 网站地图
All rights reserved Powered by www.jwbf.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com