Re: [VBA ] 如何讓資料在固定值中循環
※ 引述《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
推
10/28 07:31, , 1F
10/28 07:31, 1F
推
10/30 12:37, , 2F
10/30 12:37, 2F
→
10/30 21:16, , 3F
10/30 21:16, 3F
→
10/30 21:17, , 4F
10/30 21:17, 4F
→
10/30 21:17, , 5F
10/30 21:17, 5F
討論串 (同標題文章)
本文引述了以下文章的的內容:
完整討論串 (本文為第 2 之 2 篇):