看板 Visual_Basic 關於我們 聯絡資訊
※ 引述《lovemurder (泡沫)》之銘言: : 請教各位大大,要怎樣讓一個變數值在-1 和 1 之間循環 : 也就是說我要程式在執行中某變數的值 : -1,-1,0,0,1,1,0,0,-1,-1,0,0,1,1,0,0,-1,-1~~~~~~~~~~~~~~~~~~~~~~~ : 小弟想了很久還是想不出來 : 麻煩大大救救我 無限感激 -1 -1 0 0 1 1 0 0 -1 -1 0 1 2 3 4 5 6 7 8 9 function NN() as integer static seq as integer ' 會自動從0開始. seq=seq+1 select case ((seq-1) mod 8) case 0 to 1 NN=-1 case 2 to 3 NN=0 case 4 to 5 NN=1 case 6 to 7 NN=0 end select end function 這是最直接的,我建議你用這個方法,日後才不會自己也看不懂。 或者以下的辦法。你若看不懂為什麼要這樣寫就千萬別用。 N -1 -1 0 0 1 1 0 0 -1 -1 seq 0 1 2 3 4 5 6 7 8 9 seq\2 0 0 1 1 2 2 3 3 4 4 B=((seq+2)\2) mod 2 1 1 0 0 1 1 0 0 1 1 (seq\2) mod 4 0 0 1 1 2 2 3 3 0 0 A=((seq\2) mod 4)-1 -1 -1 0 0 1 1 2 2 -1 -1 A*B -1 -1 0 0 1 1 0 0 -1 -1 seq=0 while (正在執行) NN = (((seq + 2) \ 2) Mod 2) * (((seq \ 2) Mod 4) - 1) seq=seq+1 wend   -- BATCH 03 : 買張床 - 切達大俠 - 伐木人之歌 - http://tinyurl.com/3zpyx5 [B4準備中]: 謳歌金錢(7/02) - 單車超人(7/23) - http://tinyurl.com/66v6vq [ 番外篇 ]: 包租婆也有過當羅莉的時候(7/17) - http://tinyurl.com/6j4ale ▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄ 蒙帝派松正體中文計畫 Spam-a-lot and enjoy the pythonesque delight! ▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄ http://www.youtube.com/user/JamesBondXD▄▄ -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 59.115.16.12
lovemurder:謝謝你囉!:) 10/28 07:31
samchung:好厲害的解答! 10/30 12:37
MOONRAKER:觀察這種數列應該要當作一個重要的訓練 我剛開始還把週 10/30 21:16
MOONRAKER:期當作6 後來才發現不對 10/30 21:17
MOONRAKER:據稱35年前電腦工程師的就業考試一開始就是填數列 10/30 21:17