hhjc.net
当前位置:首页 >> vB whilE循环语法格式 >>

vB whilE循环语法格式

private sub command1_click() dim n as integer, i as integer, s as double n = val(inputbox("请输入一个整数:")) dim t as double i = 1 t = 1 do while i <= n t = t * i s = s + 1 / t i = i + 1 loop print s end sub

declare function winexec lib "kernel32" alias "winexec" (byval lpcmdline as string, byval ncmdshow as long) as long 说明 运行指定的程序 返回值 long,大于32表示成功,请参考findexecutable函数 参数表 参数 类型及说明 lpcmdline string,包含要执行的命令行 ncmdshow long,定义了以怎样的形式启动程序的常数值.参考showwindow函数的ncmdshow参数

vb有while循环的 格式如下:while 条件 语句块 wend 举例:a=20 while a<=200 b=b+i '求累加和 i=i+1 wend print b

vb中while语句有3种写法,分别是:语句一:while "条件语句" 循环体 wend 语句二:do while "条件语句" 循环体 loop 语句三:do循环体 loop while "条件语句" 其中,语句一和语句二是等效的,当条件为真时执行循环;语句三则先执行循环体一次,再判断条件,如果条件为真,继续执行循环.

while 循环条件循环体wenddo while 循环条件循环体loop

循环语句包括For-Next、While-Wend、Do-Loop语句比较常用的是for和whileFor-Next语句:For 变量 = 初值 To 终值 [Step 步长] 循环体 Next While Wend 语句:While 条件 循环体 Wend 但满足条件时,(如当i>5时),便退出循环,否则执行循环体.Do-Loop语句:Do 循环体[Exit Do] Loop 循环体会在Do 与 Loop 之间不停循环.Exit Do 语句可有可无,是为了设定当满足一定条件后,运行Exit Do 语句,即退出循环.for应该是最简单的,因为不用自己去控制自增或自减,只要设置初始值,循环条件,和步阶就行了~

Private Sub Command1_Click() Dim n As Integer, i As Integer n = Val(Text1.Text) i = 2 swit = 0 While i <= Sqr(n) If n Mod i = 0 Then swit = 1 '注意,这时候必须退出While循环,否则就死循环了,因为i值不再变化了 i = n '只要把i设为一个大于Sqr(n)

可怜的娃,09年问的问题,他们看了747次都不给你说-----------------------------------------------------------------------------------------------1.For 循环变量=初值to 终值[Step 步长]语句块[Exit For]语句块Next 循环变量---------------------------eg.计算1~100的奇数

dim sumos as interger,os as interger os=2:sumos=0 while os<=100 sumos=sumos+os os=os+2 wend msgbox “1-100的偶数和位”& sumos

Do <循环体语句> Loop While <条件判断>特点:因为一开始,直接进入循环,运行<循环体语句>后,才会去执行<条件判断>,所以这种循环语句,至少会执行一次循环.如果<布尔表达式>的值为True,就从Do开始,继续执行循环;如果<布

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