Re: [VB6]請問一個問題

看板Visual_Basic作者fumizuki (矇面加菲獅)時間19年前 (2006/04/29 15:40)推噓0(0推 0噓 0→)

留言0則, 0人參與討論串4/4 (看更多)

※ 引述《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