作者MOONRAKER (㊣OGC-1701)
看板Visual_Basic
標題Re: [VBA ] 如何讓資料在固定值中循環
時間Tue Oct 28 02:48:49 2008
※ 引述《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