www.5129.net > vB Do whilE 语句用法

vB Do whilE 语句用法

VB有两种Do循环语句,只要或者直到某个条件为真,它们就会重复一系列的语句.只要条件为真,Do…While循环就允许你重复某个操作.这个循环的语法如下: Do While 条件语句1语句2语句NLoop

VBA 中Do while Loop用法如下: VBA中如果不知道重复中国次,使用 DoLoop 语句. DoLoop 语句重复执行某段代码直到条件是 true 或条件变成 true. 重复执行代码直到条件是 true 使用 While 关键字来检查 Do Loop 语句的条件. Do

do loop while 特点:因为一开始,直接进入循环,运行后,才会去执行,所以这种循环语句,至少会执行一次循环.如果的值为true,就从do开始,继续执行循环;如果的值为false,就循环结束,执行loop while 下面的语句.例如:i = 1do print i i = i + 1 loop while i 就是i 评论0 0 0

Private Sub Command1_Click()i = 0Do While x <> -1x = Val(InputBox("输入数据,输入-1结束"))If x Mod 2 = 0 Then i = i + 1LoopPrint "偶数有" & i & "个"End Sub

Private Sub Command1_Click() Dim i As Long, s As Long, t As Long 'i统计输入的个数,s乘积,t存储输入的数字 s = 1 t = 1 i = -1 Do s = s * t t = InputBox("请输入一个数,如果输入为0则结束") i = i + 1 Loop While t Print "共输入了" & i & "个数,乘积为:" & sEnd Sub

数值0等同于布尔值常量的False,而Do Until则是当表达式为真时跳出循环,这与Do While刚好相反,所以:Do Until 0相当于Do Until False相当于Do While Not(False)相当于Do While True所以,如果不在循环体中跳出循环或跳出所在过程或End或Goto的话,这将是一个死循环.自然,循环体将至少被执行一次.

private sub command1_click() i = 0 do while x -1 x = val(inputbox("输入数据,输入-1结束")) if x mod 2 = 0 then i = i + 1 loop print "偶数有" & i & "个" end sub

for to,用在知道循环次数的时候比较方便 DO WHILE.LOOP 用在在循环时判断条件,条件满足执行,不满足就退出例如你要计算1+2+3++100的值则用for to 要计算1+2+3+4+5+什么时候大于1000,并返回最后一个数时用DO WHILE.LOOP

给你做到第4题吧:Private Sub Command1_Click() Dim i As Long, x As Long, y As Long, c As Double'第一题&n

do while i<10i=i+1s=s+iloopprint s

网站地图

All rights reserved Powered by www.5129.net

copyright ©right 2010-2021。
www.5129.net内容来自网络,如有侵犯请联系客服。zhit325@qq.com