VB中的 while wend 怎么用的
发布网友
发布时间：2022-04-20 22:50
我来回答
共5个回答
热心网友
时间：2023-06-28 08:36
VB中的while…… wend是循环的意思，等效于do while，想要跳出循环必须使用goto语句。
while wend
读音：英 [waɪl wend] 美 [waɪl wend]
释义：循环，语句。
语法：while用作连词时，表示“在…(过程)中，在…期间”。常用来引导时间状语从句，当主句的主语和while所引导的从句的主语一致时，while从句中的主语、谓语往往可以省去while还可引导让步状语从句，意思是“虽然，尽管”，含有对比意味。
例句：
Good to know you tell them, and continue to move on following them as they wend through the cloud paths.
你告诉他们听到这样的话你很高兴，当他们顺着云朵穿行时，你跟着他们继续前行。
扩展资料
近义词：loop
读音：英 [luːp] 美 [luːp]
释义：环形，环状物，圆圈，(绳、电线等的)环，圈，循环电影胶片。
语法：loop的基本意思是“使成环或圈”“把某物打成环”。loop可用作及物动词，也可用作不及物动词，作及物动词时，后可接名词或代词作宾语。loop后可接同源宾语，loop the loop特指“飞机翻筋斗飞行”。
例句：
He wore the watch and chain looped round his neck like a medallion.
他将链表绕挂在脖子上，就像戴了一枚大奖章。
热心网友
时间：2023-06-28 08:37
在VB中，While Wend是用在循环语句中的，在数学中称为“当型语句”。很好理解，当条件满足时，才执行循环语句，直到不满足才退出循环。其具体使用方式如下：
Private Sub Command1_Click()
Dim a As Integer
a=1
s=a+1
While s>5
s=a+1
a=a+1
Wend
Input s
End
热心网友
时间：2023-06-28 08:37
输出7,6，5While...Wend的用法While 条件.......Wend只要指定的条件为 True，则会重复执行While和Wend之间的语句
热心网友
时间：2023-06-28 08:38
VB中的 while…… wend循环等效于do while ……loop循环，唯一的区别是do while ……loop循环可以用exit do跳出循环，而while…… wend循环想要跳出循环必须使用goto语句。
vb的循环语句还包括：do……loop while，do until ……loop，do……loop until，for……next，这些循环都可以用exit语句中途跳出。
此外，还可以用if结合goto语句组建循环，不过这种循环可读性差，对基本功要求相对比较高，不建议使用。
热心网友
时间：2023-06-28 08:39
while 对应是end while吧？
怎样在VB中控制WORD[2]
（1）有一些语句和函数不能使用，包括：控制结构，如While…Wend和If…Then…Else；声明语句，如Dim；定制对话框相关的语句：FileExit语句；要求数组变量作为参数的语句或函数。（2）也有一些指令使用方法不同。①返回字符串以一个美元符（$）结束的WordBasic函数的关键字必须括在方括号中。例如，在Word...
如何用VB实现在已经有文字的WORD的最后插入文字
Function bytetobin(m As Byte) As String '讲字节型数据转换成八位二进制字符串 Dim c c$ = ""Do While m <> 0 r = m Mod 2 m = m \ 2 c$ = r & c Loop c$ = Right("00000000" & c$, 8)bytetobin = c End Function '--- Function reverse(m As String) As String ...
请问在word用VBA如何批量将不同文件中的部分内容顺序复制到一个word文件...
' 1 新建一个文件 ' 2 (用Do..Loop)依次打开D:\目录下Z开头的.DOCx文件 ' 3 复制其中满足条件的部份到剪切板，并关闭这个文件，回到新建的空白文件 ' 4 粘贴 ' 5 重复2－4 ’6 结束，保留复制粘贴的内容为当前文件 Sub DoThis()Dim myPath, myFile myPath = "d:\"Documents.Add Docum...
vb实现已有word指定位置输入
If MsgBox("是否保存对" & SaveFile & "更改？", vbYesNo vbQuestion, "保存") = vbYes Then wordDoc.Save '保存在原文件中 End If End If End If WordReplace = I '返回替换次数 wordDoc.Close '关闭文档实例 wordApp.Quit '关闭WORD实例 Set wordDoc = Nothing '清除文件实例 Set word...
要写词霸的输出程序,do while那里不知道怎么错了,vb大神指导
i = 1 Open ".\words.dat" For Random As #1 Len = Len(word)Do While Not EOF(1)Get #1, i, word If word.W = Text1.Text Then Text2.Text = word.T + vbCrLf + word.S Exit Do End If Loop Close #1 End Sub 应该先读出word,再来判断,否则word.W = Text1.Text 永远不能...
我有几千word文档。要对其进行分类放到不同文件夹中...
回答：你自己编辑个程序,读出文档的第一行内容,然后关闭这个文档,用程序把它复制到指定的地方。 下面是用VB读WORD文件的方法: 'VB读取WORD文件的例子 '向窗体添加Command,Text,CommonDialog控件 '单击工程\引用,添加Microsoft Word 11.0 Object Library (即是Word.Application) 'http://bbs.bccn....
急求vb程序编写!!在顺序文件words.dat 中有一批英文单词,将他们以a打 ...
sub form1_load open "words.data" for input as #1 dim word as string while eof(1)=0 input #1,word if left(word,1)="a" then print word end if wend close #1 end sub
如何用VBA实现VB中的timer控件功能
不能，我前几天刚好也遇到这个问题，无论是EXCEL、WORD、POWERPOINT里的VBA，都没有这个控件，无解。后来换WPSOFFICE，结果一年是个人版的，不支持宏，果断卸载。后来我换用LibreOffice了，这几天正在摸索中。
VB怎么实现一个窗口弹出几秒后消失
不要指望用msgbox来实现这样的功能了，即使用API函数使它在运行一段时间后自动关闭，但是它在显示期间，你的程序是处在停止状态的，这是因为msgbox是模态窗口。其实你可以自己设计一个类似的窗体，然后用Timer来控制它的显示与关闭，这个一点也不难。
VB中如何实现以下功能,用数组
While Not EOF(1)Line Input #1, t make = Split(t, "=")Counts = Counts + 1 ReDim Preserve R(1 To Counts)R(Counts).Code = make(0)R(Counts).Word = make(1)Wend Close #1 MsgBox "读取完毕！"End Sub 其中，需要输入文件，例如c:\a.txt 内容如下（例子）：50=中 51=国 F...
