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) ...

把i = InStr(s, "")改为i = InStr(s, " ")

图貌似挂了 贴代码岂不更好

Private Sub maxlength(s, maxword) Dim temp, wmax, nmax temp = Split(s, " ") wmax = 0 For i = LBound(temp) To UBound(temp) If Len(temp(i)) > wmax Then wmax = Len(temp(i)) nmax = i End If Next maxword = temp(nmax) End Sub Private...

首先引用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:\...

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