http://topic.csdn.net/u/20100703/10/95ca83c4-54a2-4ebc-9291-86faad828d99.html
在这个帖子,感谢vbman2003提供了(x <> y)的用法.
有关这个知识的应用需要进一步消化理解.
Dim nn As Double
Dim x As Double
Dim y As Long
nn = rnd * 100
x = nn / 5
Select Case x 'nn<=10
Case Is <= 2
nn = 10
Case 2 To 6 'nn=10~30
y = nn \ 5
nn = y * 5 - (x <> y) * 5 '非5倍数,整除5后再加5
Case Else: 'nn>30
x = nn / 10
y = nn \ 10
nn = y * 10 - (x <> y) * 10 ''非10倍数,整除10后再加10
End Select
此程序解决的问题,"自定义数据进位的规则运算",请vbman2003大侠看一这个定义是否准确.谢谢
假设输入数据nn=14.5
y:--- 2
y * 5:-- 10
(x <> y) * 5:-- -5
目标需求成立
nn = y * 5 - (x <> y) * 5 结果为 15
问题提出
(x <> y) * 5 的结果为 -5,这个知识点需要从哪里获得.谢谢