ZetCode

FreeBasic ULongInt 关键字

最后修改日期：2025 年 6 月 16 日

FreeBasic 的 ULongInt 关键字代表一个无符号 64 位整数数据类型。它可以存储从 0 到 18,446,744,073,709,551,615 的值。此类型对于不需要符号位的非常大的正数很有用。

基本定义

在 FreeBasic 中，ULongInt 是一种内置数据类型，占用 8 字节（64 位）内存。它只能包含非负整数值。范围是从 0 到 2^64-1。

当处理大量数据、内存地址或需要无符号算术时，通常会使用 ULongInt 变量。它们可以防止大正数出现溢出问题。

声明 ULongInt 变量

此示例展示了如何声明和初始化 ULongInt 变量。

ulongint_declare.bas 
Dim population As ULongInt
Dim fileSize As ULongInt = 4294967296
Dim maxValue As ULongInt = &HFFFFFFFFFFFFFFFF

Print "population: "; population
Print "fileSize: "; fileSize
Print "maxValue: "; maxValue

在这里，我们声明了三个 ULongInt 变量。第一个未初始化，默认为 0。其他变量被显式设置为值。最后一个使用十六进制表示法设置了 ULongInt 的最大可能值。

ULongInt 算术运算

ULongInt 支持标准的算术运算，但有一些限制。

ulongint_arithmetic.bas 
Dim a As ULongInt = 18446744073709551615
Dim b As ULongInt = 10000000000
Dim result As ULongInt

result = a - b
Print "Subtraction: "; result

result = b * 2
Print "Multiplication: "; result

result = a / 2
Print "Division: "; result

此示例演示了 ULongInt 值的算术运算。请注意，从最大值中减去会显示正确的无符号行为。乘法和除法在值范围内按预期工作。

循环计数器中的 ULongInt

ULongInt 可用于非常大的循环计数器。

ulongint_loop.bas 
Dim counter As ULongInt
Dim limit As ULongInt = 10

For counter = 0 To limit
    Print "Counter: "; counter
Next

这个简单的例子展示了一个用作循环计数器的 ULongInt。虽然这个例子使用了较小的限制，但 ULongInt 可以处理非常大的循环计数。语法与其他整数类型的用法相同。

带位运算的 ULongInt

ULongInt 支持所有标准的位运算。

ulongint_bitwise.bas 
Dim flags As ULongInt = &B1010101010101010
Dim mask As ULongInt = &B1111000011110000

Print "Original: "; Bin(flags, 64)
Print "AND: "; Bin(flags And mask, 64)
Print "OR: "; Bin(flags Or mask, 64)
Print "XOR: "; Bin(flags Xor mask, 64)
Print "NOT: "; Bin(Not flags, 64)

此代码演示了 ULongInt 值的位运算。Bin 函数显示二进制表示。请注意，NOT 运算会反转所有 64 位，显示 ULongInt 值的完整范围。

文件操作中的 ULongInt

ULongInt 非常适合处理大文件大小。

ulongint_files.bas 
Function GetFileSize(filename As String) As ULongInt
    Dim As ULongInt size
    Open filename For Binary As #1
    size = LOF(1)
    Close #1
    Return size
End Function

Dim size As ULongInt = GetFileSize("largefile.dat")
Print "File size: "; size; " bytes"
Print "File size in GB: "; size / (1024 * 1024 * 1024)

此示例显示了 ULongInt 如何处理大文件大小。LOF 函数返回一个 ULongInt，我们将其存储和操作。除法显示了如何在不溢出的情况下将字节转换为千兆字节。

ULongInt 类型转换

FreeBasic 处理 ULongInt 和其他数字类型之间的转换。

ulongint_conversion.bas 
Dim bigNum As ULongInt = 5000000000
Dim regularInt As Integer = bigNum
Dim doubleNum As Double = bigNum

Print "ULongInt: "; bigNum
Print "To Integer: "; regularInt
Print "To Double: "; doubleNum

这演示了隐式类型转换。转换为较小的整数类型可能会丢失精度。转换为浮点数可以保留值，但对于非常大的数字可能会丢失一些精度。

ULongInt 的局限性

虽然 ULongInt 功能多样，但它也有一些重要的局限性。

ulongint_limits.bas 
Dim max As ULongInt = &HFFFFFFFFFFFFFFFF
Dim min As ULongInt = 0

Print "Max ULongInt + 1: "; max + 1  ' Wraps around to 0
Print "Min ULongInt - 1: "; min - 1  ' Wraps around to max

此示例显示了无符号整数回绕行为。将最大值加 1 会回绕到 0。从 0 减去 1 会回绕到最大值。为了避免错误，了解这些行为很重要。

最佳实践

本教程通过实际示例介绍了 FreeBasic 的 ULongInt 关键字，展示了它在不同场景下的用法。

作者

我叫 Jan Bodnar，是一位充满热情的程序员，拥有丰富的编程经验。我自 2007 年以来一直撰写编程文章。至今，我已撰写了 1400 多篇文章和 8 本电子书。我在编程教学方面拥有十多年的经验。

列出所有 FreeBasic 教程。