当前位置：文江博客话题详情

如果VB6中的一个数字接近另一个数字，该怎么办？

发布于 2024-12-05 05:02:58 字数 78 浏览 1 评论 0原文

假设我有 2 个数字，5550 和 5650，我想知道这两个数字是否接近，相差在 200 以内。我怎样才能用 VB6 做到这一点？我一无所知。

原文

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

清醇 2024-12-12 05:02:58

只需用较小的数字 (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

Simply subtract the larger number (5650) from the smaller number (5550) and check if the result is less than your range (200). I use Abs so you don't need to check which number is greater.

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

回复收藏 0 原文

╰ゝ天使的微笑 2024-12-12 05:02:58

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

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

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

Warning: this will not handle integer overflow very nicely. If number1 is a very large negative number and number2 is a large positive number, this may produce strange results.

回复收藏 0 原文

~没有更多了~