请各位帮忙看看我的代码，

stvent

现要实现(D，N是输入值)

当D≤360/2N时，β=90°

当360/2N＜D≤360/2N+360/N时，β=90°-360/N

当360/2N+360/N＜D≤360/2N+2*360/N时，β=90°-2*360/N

当360/2N+2*360/N＜D≤360/2N+3*360/N时，β=90°-3*360/N

我的代码如下：

Dim x As Integer

For x = 0 To 5

  If x = 0 Then

    If d <=360 / 2n Then  B = 90

  Else

    If  d > 360 / 2n + (x-1)*360/n  And d <= 360 / 2n+ x*360/n  Then B= 90 - x * 360/n

End If

Next

但总觉有问题，B的结果与手动计算的不同

stvent

早晨……

smilingkiss

大于号或小于号后面的表达式，试试用括号括着

stvent

smilingkiss 发表于 2014-6-19 08:22
大于号或小于号后面的表达式，试试用括号括着

试过了，还是一样的！

yanwei82123300

把例子发上来，让大家看看

smilingkiss

stvent 发表于 2014-6-19 10:00
试过了，还是一样的！

上传例子吧o(^▽^)o

roych

请确定输出结果是哪个？理论上应该有两个输入值，一个输出结果或者两个输出结果一个输入值

stvent

roych 发表于 2014-6-20 11:38
请确定输出结果是哪个？理论上应该有两个输入值，一个输出结果或者两个输出结果一个输入值

谢谢版主，问题已解决了！~

yanwei82123300

stvent 发表于 2014-6-20 12:08
谢谢版主，问题已解决了！~

能否与大家分享一下你的例子，感觉就是解数学题！