怎么编 0,1,0,-1,0,1,0,-1循环

FOR i=0 to 10
i每增加1那么在 0,1,0,-1,0,1,0,-1。。。里面循环怎么写代码呢？

For i = 0 To 10
Select Case i Mod 4
Case 1
Print 1;
Case 3
Print -1;
Case Else
Print 0;
End Select
Next

2025-04-10 07:48广告

j=1
do while i<2
if i<>0 then
i=0
else
i=j:j=j*(-1)
end if
loop
上面无限循环，按你说的

Const pi = 3.14159
For i = 0 To 10
Print Sin(pi * i / 2);
Next i
理论上这个方法也是可行的，不过能否得到准确的整数结果取决于pi的精度

For i = 0 To 10
aa = i Mod 2
bb = i Mod 4
Print aa * (2 - bb)
Next i

一看就感觉像正弦函数值

找规律，i的奇数位全0，偶位数是对前一偶数位取负。

下载贴吧APP
看高清直播、视频！

分享到: