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

level 1

郁闷之涛楼主

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

2024年03月04日 06点03分 1

level 8

tbzp666

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

2024年03月04日 08点03分 2

2024年03月04日 08点03分

level 13

2024年03月04日 08点03分 3

2024年03月04日 08点03分

level 1

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

2024年03月04日 08点03分 4

好的谢谢

2024年03月04日 08点03分

level 15

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

2024年03月04日 10点03分 5

KSPprince

秀儿，你坐下，你隔着秀起数学啊 [滑稽]

2024年03月07日 01点03分

level 7

牵牛游

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

2024年03月05日 01点03分 6

吧务

level 14

一看就感觉像正弦函数值 [滑稽]

2024年03月05日 02点03分 7

level 1

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

2024年03月18日 02点03分 8