Question

求助，怎么用VB编写同时满足三个条件并修改至满足所有条件为止的代码？

θ，θ1，θ2若为负值，那么应分别用θ+180，θ1+180，θ2+180来代替，若不为则数值不变。

Answer 1

if θ < 0 then θ = θ + 180
if θ1 < 0 then θ1 = θ1 + 180
if θ2 < 0 then θ2 = θ2 + 180

追问

谢谢，这个我也写过，其实是希望能用一个IF句把三个情况都包括了，不知道行不行

追答

用一个if可以把三个情况包括，但关键是要有三个不同的输出结果，这就不是一个if可以解决的了。
另外要记住，并不是说语句越少就越好，关键要看执行效率，有时候一条很长很长的语句执行效率可能还比不上100条短的语句。这是程序设计的一个大忌！事实证明，对于你所说的目的，用三条if语句就是最简单、最高效的算法！

Answer 2

do while θ<0
θ = θ + 180
Loop
do while θ1<0
θ1 = θ1 + 180
Loop
do while θ2<0
θ2 = θ2 + 180
Loop

追问

这样也可以，其实是希望能用一个IF句把三个情况都包括了，不知道行不行

追答

因为考虑你这个负值，到底负多少？
用一句If 的格式不可能？
也是要分三句
If θ<0 Then θ = θ + 180
If θ1<0 Then θ1 = θ1 + 180
If θ2<0 Then θ2 = θ2 + 180
但是如果原来的值负的比较多，还不能保证它们大于0

追问

哦，这样啊，因为是公式编写，不会负过180，那知道了，谢谢！啊，不好意思了，一楼先回答，就把分给他了 ，也很感谢你了！

Answer 3

用if
if x=0 and y=01 and z=02 then
x=x+180 y=y+180 z=z+180
end if

追问

你这不对吧，题是这三个角为负的话就加180化为正的意思。而且也有可能1个为负，另外两个为正等情况，为正的就不用加180了。