面试题：Visual Basic 低级操作之内存管理

在Visual Basic中，可以使用Windows API函数GlobalAlloc和GlobalFree来进行非托管内存的分配和释放。以下是详细步骤及代码示例：

1. 内存分配

使用GlobalAlloc函数分配内存。该函数的声明如下：

Private Declare Function GlobalAlloc Lib "kernel32" (ByVal wFlags As Integer, ByVal dwBytes As Long) As Long

其中，wFlags参数指定分配内存的类型，常用的值有GMEM_FIXED（分配固定内存块）和GMEM_ZEROINIT（分配并初始化为零的内存块）。dwBytes参数指定要分配的字节数。

2. 内存释放

使用GlobalFree函数释放已分配的内存。该函数的声明如下：

Private Declare Function GlobalFree Lib "kernel32" (ByVal hMem As Long) As Long

hMem参数是由GlobalAlloc函数返回的内存句柄。

代码示例

Option Explicit

Private Declare Function GlobalAlloc Lib "kernel32" (ByVal wFlags As Integer, ByVal dwBytes As Long) As Long
Private Declare Function GlobalFree Lib "kernel32" (ByVal hMem As Long) As Long

Private Const GMEM_FIXED = &H0
Private Const GMEM_ZEROINIT = &H40

Sub Main()
    Dim hMem As Long
    Dim bufferSize As Long
    bufferSize = 1024 '分配1024字节的内存
    
    '分配内存
    hMem = GlobalAlloc(GMEM_FIXED Or GMEM_ZEROINIT, bufferSize)
    If hMem = 0 Then
        MsgBox "内存分配失败"
        Exit Sub
    End If
    
    '在这里可以使用分配的内存
    
    '释放内存
    Dim result As Long
    result = GlobalFree(hMem)
    If result <> 0 Then
        MsgBox "内存释放失败"
    End If
End Sub

3. 检测和避免内存泄漏

检测内存泄漏：
- 使用工具：在开发环境中，可以使用像Visual Studio的内存诊断工具，它可以帮助识别未释放的内存块。在运行程序时，该工具会跟踪内存分配和释放的情况，并在程序结束时报告任何未释放的内存。
- 手动日志记录：在代码中，可以手动添加日志记录，每次调用GlobalAlloc时记录分配的内存地址和大小，每次调用GlobalFree时记录释放的内存地址。通过比较分配和释放的记录，可以发现是否有内存未被释放。
避免内存泄漏：
- 确保配对使用：始终确保对每个GlobalAlloc调用都有相应的GlobalFree调用。在复杂的代码逻辑中，要特别注意不同的执行路径，保证在所有可能的情况下内存都能被正确释放。例如，可以使用On Error语句来捕获异常，并在异常处理中释放已分配的内存。
```
Sub Main()
    Dim hMem As Long
    Dim bufferSize As Long
    bufferSize = 1024
    
    On Error GoTo ErrorHandler
    
    hMem = GlobalAlloc(GMEM_FIXED Or GMEM_ZEROINIT, bufferSize)
    If hMem = 0 Then
        MsgBox "内存分配失败"
        Exit Sub
    End If
    
    '使用内存
    
    Dim result As Long
    result = GlobalFree(hMem)
    If result <> 0 Then
        MsgBox "内存释放失败"
    End If
    Exit Sub
    
ErrorHandler:
    If hMem <> 0 Then
        GlobalFree hMem
    End If
    MsgBox "发生错误，内存已释放"
End Sub
```
- 封装内存操作：将内存分配和释放操作封装在一个类或模块中，通过类的生命周期管理内存。例如，在类的Initialize事件中分配内存，在Terminate事件中释放内存，这样可以确保内存的正确管理。

面试题：Visual Basic 低级操作之内存管理

知识考点

面试题答案

1. 内存分配

2. 内存释放

代码示例

3. 检测和避免内存泄漏