作者fumizuki (蒙面加菲狮)
看板Visual_Basic
标题Re: [VB6]请问一个问题
时间Sat Apr 29 15:46:46 2006
※ 引述《jaaj3 (jinin)》之铭言：
: ※ 引述《luludo (林小猴)》之铭言：
: : 输入一终止值e(用inputbox做)
: : 且e需>5且为5的倍数,否则要求重输入
: : 请问这个要怎麽做阿,想很久想不出来
: : 请各位帮帮我吧!!
: dim e as integer
: do while e<=5 and (e mod 5 =0)
: e=val(inputbox("input a number:"))
: loop
使用回圈可以有6种写法...
-------------------------------------------
Dim e As Integer
Do While e <= 5 Or (e Mod 5 <> 0)
e = Val(InputBox("input a number:"))
Loop
-------------------------------------------
Dim e As Integer
Do
e = Val(InputBox("input a number:"))
Loop While e <= 5 Or (e Mod 5 <> 0)
-------------------------------------------
Dim e As Integer
Do Until e > 5 And (e Mod 5 = 0)
e = Val(InputBox("input a number:"))
Loop
-------------------------------------------
Dim e As Integer
Do
e = Val(InputBox("input a number:"))
Loop Until e > 5 And (e Mod 5 = 0)
-------------------------------------------
Dim e As Integer
Do While Not (e > 5 And (e Mod 5 = 0))
e = Val(InputBox("input a number:"))
Loop
-------------------------------------------
Dim e As Integer
Do
e = Val(InputBox("input a number:"))
Loop While Not (e > 5 And (e Mod 5 = 0))
-------------------------------------------
结果都一样，While 或 Until 放後面的写法比较符合需求...
--
▃▅▇▆▄ ▆▂▃ `
逝去感情如何能留住，半点痴情遗留殊不易，██▅▇▄▃ ▇▃▂" .
█████████▃i ▁▄▇
更多凄凄惨惨的遭遇…………██▆▃ █▅▆▃ˍ▄*
◢ ▂█▄▇▅▂▌.
我不知道，王～八～蛋～～！ ▂▆███ █▄▃ 。fumizuki。Check。
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 210.58.156.43