如果VB6中的一个数字与另一个数字接近，请执行某些操作？

假设我有两个数字，5550和5650，我想知道这两个数字是否接近，彼此之间的距离是否在200以内。如何使用VB6执行此操作？我不知所措。

如果Abs（1号-2号）<200那么
If Abs(number1 - number2) < 200 Then
    'do something
EndIf

“做点什么
恩迪夫

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

如果Abs（number1-number2）<200那么
“做点什么
恩迪夫

---

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

只需从较小的数字（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

Dim number1为整数=5550
尺寸编号2为整数=5650
变暗范围为整数=200
如果Abs（number1-number2）只需从较小的数字（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

Dim number1为整数=5550
尺寸编号2为整数=5650
变暗范围为整数=200
如果防抱死制动系统（1号-2号）