如果一个数字接近VB6中的另一个数字，那么做些什么？

Question

假设我有2个数字，5550和5650，我想知道这两个数字是否接近，彼此相差200。我怎么能用VB6做到这一点？我很无能。

Answer 1

只需从较小的数字（5550）中减去较大的数字（5650），然后检查结果是否小于范围（200）。我使用Abs，因此您无需检查哪个数字更大。

Dim number1 As Integer = 5550
Dim number2 As Integer = 5650
Dim range As Integer = 200

If Abs(number1 - number2) <= range Then
    ' Here is where your numbers are within 200.
End If

Answer 2

If Abs(number1 - number2) < 200 Then
    'do something
EndIf

警告：这不会很好地处理整数溢出。如果number1是一个非常大的负数，而number2是一个大的正数，这可能会产生奇怪的结果。