作者MOONRAKER (㊣ＯＧＣ-１７０１)
看板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!
▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄ https://www.youtube.com/user/JamesBondXD▄▄
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 59.115.16.12
1F：推 lovemurder:谢谢你罗！:) 10/28 07:31
2F：推 samchung:好厉害的解答！ 10/30 12:37
3F：→ MOONRAKER:观察这种数列应该要当作一个重要的训练 我刚开始还把周 10/30 21:16
4F：→ MOONRAKER:期当作6 後来才发现不对 10/30 21:17
5F：→ MOONRAKER:据称35年前电脑工程师的就业考试一开始就是填数列 10/30 21:17