VB 获取本机当前操作系统 CPU 的数量，VB 获取本机当前操作系统的 CPU 数量，VB 获取本机当前操作系统 CPU 数量，VB 获取当前操作系统 CPU 数量，VB 获取本机当前系统 CPU 数量，VB 获取本机操作系统 CPU 数量，VB 获取本机系统 CPU 数量，VB 获取操作系统 CPU 数量，VB 获取当前系统 CPU 数量，VB 本机系统 CPU 数量，VB 操作系统 CPU 数量，VB 当前系统 CPU 数量，VB 获取系统 CPU 数量，VB 获取本机 CPU 数量，VB 获取 CPU 数量，VB 本机 CPU 数量，VB 系统 CPU 数量，VB CPU 数量，VB CPU，GetSystemInfo，SYSTEM_INFO，dwOemID，dwPageSize，lpMinimumApplicationAddress，lpMaximumApplicationAddress，dwActiveProcessorMask，dwNumberOrfProcessors，dwProcessorType，dwAllocationGranularity，dwReserved，SysInfo.dwNumberOrfProcessors。

VB 获取本机当前操作系统 CPU 的数量：

Private Type SYSTEM_INFO
    dwOemID                  As Long
    dwPageSize               As Long
    lpMinimumApplicationAddress As Long
    lpMaximumApplicationAddress As Long
    dwActiveProcessorMask    As Long
    dwNumberOrfProcessors    As Long
    dwProcessorType          As Long
    dwAllocationGranularity  As Long
    dwReserved               As Long
End Type
Private Declare Sub GetSystemInfo Lib "kernel32" (lpSystemInfo As SYSTEM_INFO)

Dim SysInfo                  As SYSTEM_INFO
GetSystemInfo SysInfo
MsgBox SysInfo.dwNumberOrfProcessors