vb现在都用什么版本-vb用的电脑系统是什么

1.求解，用VB获取系统信息问题

2.VB VBA VBS有什么区别？

3.VB能做些什么？

4.VB如果获取电脑的名称

求解，用VB获取系统信息问题

Private?Sub?Command1_Click()

Dim?TEXzh()

n?=?0

strComputer?=?"."

Set?objWMIService?=?GetObject("winmgmts:\\"?&?strComputer?&?"\root\cimv2")

Set?colItems?=?objWMIService.ExecQuery("Select?*?from?Win32_Processor",?,?48)

For?Each?objItem?In?colItems

ReDim?Preserve?TEXzh(n)

TEXzh(n)?=?"?CPU信息如下："

TEXzh(n)?=?TEXzh(n)?&?vbCrLf?&?"处理器位数:?"?&?objItem.AddressWidth?&?"位"

If?objItem.Architecture?=?0?Then

TEXzh(n)?=?TEXzh(n)?&?vbCrLf?&?"平台的处理器的设计:X86?"

ElseIf?objItem.Architecture?=?1?Then

TEXzh(n)?=?TEXzh(n)?&?vbCrLf?&?"平台的处理器的设计:MIPS?"

ElseIf?objItem.Architecture?=?2?Then

TEXzh(n)?=?TEXzh(n)?&?vbCrLf?&?"平台的处理器的设计:Alpha?"

ElseIf?objItem.Architecture?=?3?Then

TEXzh(n)?=?TEXzh(n)?&?vbCrLf?&?"平台的处理器的设计:PowerPC?"

Else

TEXzh(n)?=?TEXzh(n)?&?vbCrLf?&?"平台的处理器的设计:ia64?"

End?If

TEXzh(n)?=?TEXzh(n)?&?vbCrLf?&?"用性和状态:?"?&?kyx(objItem.Availability)

TEXzh(n)?=?TEXzh(n)?&?vbCrLf?&?"标签:?"?&?objItem.Caption

TEXzh(n)?=?TEXzh(n)?&?vbCrLf?&?"管理程序错误编码:?"?&?objItem.ConfigManagerErrorCode

TEXzh(n)?=?TEXzh(n)?&?vbCrLf?&?"是否使用用户定义的配置:?"?&?objItem.ConfigManagerUserConfig

TEXzh(n)?=?TEXzh(n)?&?vbCrLf?&?"处理器的当前状态:?"?&?objItem.CpuStatus

TEXzh(n)?=?TEXzh(n)?&?vbCrLf?&?"创建范例类别的名称:?"?&?objItem.CreationClassName

TEXzh(n)?=?TEXzh(n)?&?vbCrLf?&?"当前速度:?"?&?objItem.CurrentClockSpeed?&?"HZ"

TEXzh(n)?=?TEXzh(n)?&?vbCrLf?&?"处理器的电压:?"?&?objItem.CurrentVoltage?&?"V"

TEXzh(n)?=?TEXzh(n)?&?vbCrLf?&?"处理器数据宽度:?"?&?objItem.DataWidth?&?"位"

TEXzh(n)?=?TEXzh(n)?&?vbCrLf?&?"描述:?"?&?objItem.Description

TEXzh(n)?=?TEXzh(n)?&?vbCrLf?&?"DeviceID:?"?&?objItem.DeviceID

TEXzh(n)?=?TEXzh(n)?&?vbCrLf?&?"错误是否已经清除:?"?&?objItem.ErrorCleared

TEXzh(n)?=?TEXzh(n)?&?vbCrLf?&?"错误描述:?"?&?objItem.ErrorDescription

TEXzh(n)?=?TEXzh(n)?&?vbCrLf?&?"外部时钟频率:?"?&?objItem.ExtClock

TEXzh(n)?=?TEXzh(n)?&?vbCrLf?&?"处理器系列类型:?"?&?objItem.Family

TEXzh(n)?=?TEXzh(n)?&?vbCrLf?&?"安装日期:?"?&?objItem.InstallDate

TEXzh(n)?=?TEXzh(n)?&?vbCrLf?&?"2?级高速缓存的大小:?"?&?objItem.L2CacheSize

TEXzh(n)?=?TEXzh(n)?&?vbCrLf?&?"2?级高速缓存的速度:?"?&?objItem.L2CacheSpeed

TEXzh(n)?=?TEXzh(n)?&?vbCrLf?&?"最后一次出错代码:?"?&?objItem.LastErrorCode

TEXzh(n)?=?TEXzh(n)?&?vbCrLf?&?"处理器类型.Level:?"?&?objItem.Level

TEXzh(n)?=?TEXzh(n)?&?vbCrLf?&?"处理器在最后一秒钟内的负载能量:?"?&?objItem.LoadPercentage

TEXzh(n)?=?TEXzh(n)?&?vbCrLf?&?"制造商:?"?&?objItem.Manufacturer

TEXzh(n)?=?TEXzh(n)?&?vbCrLf?&?"最大时钟频率:?"?&?objItem.MaxClockSpeed

TEXzh(n)?=?TEXzh(n)?&?vbCrLf?&?"名称:?"?&?objItem.Name

TEXzh(n)?=?TEXzh(n)?&?vbCrLf?&?"内核总数:?"?&?objItem.NumberOfCores

TEXzh(n)?=?TEXzh(n)?&?vbCrLf?&?"逻辑处理器数:?"?&?objItem.NumberOfLogicalProcessors

TEXzh(n)?=?TEXzh(n)?&?vbCrLf?&?"其他描述:?"?&?objItem.OtherFamilyDescription

TEXzh(n)?=?TEXzh(n)?&?vbCrLf?&?"逻辑设备的?Win32?即插即用设备?ID:?"?&?objItem.PNPDeviceID

TEXzh(n)?=?TEXzh(n)?&?vbCrLf?&?"电源的功能:?"?&?objItem.PowerManagementCapabilities

TEXzh(n)?=?TEXzh(n)?&?vbCrLf?&?"PowerManagementSupported:?"?&?objItem.PowerManagementSupported

TEXzh(n)?=?TEXzh(n)?&?vbCrLf?&?"ProcessorId:?"?&?objItem.ProcessorId

TEXzh(n)?=?TEXzh(n)?&?vbCrLf?&?"ProcessorType:?"?&?objItem.ProcessorType

TEXzh(n)?=?TEXzh(n)?&?vbCrLf?&?"版本:?"?&?objItem.Revision

TEXzh(n)?=?TEXzh(n)?&?vbCrLf?&?"Role:?"?&?objItem.Role

TEXzh(n)?=?TEXzh(n)?&?vbCrLf?&?"芯片插槽种类:?"?&?objItem.SocketDesignation

TEXzh(n)?=?TEXzh(n)?&?vbCrLf?&?"状态:?"?&?objItem.Status

TEXzh(n)?=?TEXzh(n)?&?vbCrLf?&?"StatusInfo:?"?&?objItem.StatusInfo

TEXzh(n)?=?TEXzh(n)?&?vbCrLf?&?"修改等级:?"?&?objItem.Stepping

TEXzh(n)?=?TEXzh(n)?&?vbCrLf?&?"作用系统的创建类名:?"?&?objItem.SystemCreationClassName

TEXzh(n)?=?TEXzh(n)?&?vbCrLf?&?"系统名:?"?&?objItem.SystemName

TEXzh(n)?=?TEXzh(n)?&?vbCrLf?&?"UniqueId:?"?&?objItem.UniqueId

TEXzh(n)?=?TEXzh(n)?&?vbCrLf?&?"CPU?插座信息:?"?&?objItem.UpgradeMethod

TEXzh(n)?=?TEXzh(n)?&?vbCrLf?&?"修订版号:?"?&?objItem.Version

TEXzh(n)?=?TEXzh(n)?&?vbCrLf?&?"处理器的电压能量:?"?&?objItem.VoltageCaps

TEXzh(n)?=?TEXzh(n)?&?vbCrLf?&?""

n?=?n?+?1

Next

For?i?=?0?To?n?-?1

MsgBox?TEXzh(i)?'显示所有CPU信息?其实个人只有一个，大型电脑多CPU

Next

End?Sub

Function?kyx(a)

Select?Case?a

Case?3

kyx?=?"设备正在运行并且拥有全部能量"

Case?4

kyx?=?"警告！"

Case?5

kyx?=?"测试"

Case?10

kyx?=?"降低"

Case?13

kyx?=?"节能.未知：设备处于节能模式，但是该设备在这个模式中的准确状态未知"

Case?14

kyx?=?"节能.降低：设备处于节能模式，但是仍旧运行并且反映出降低的功能"

Case?15

kyx?=?"待机：设备没有在运行，但是可以“快速”进入全能状态"

Case?17

kyx?=?"节能。警告：设备虽然处于警告状态，但是还处于节能状态"

Case?Else

kyx?=?"未知"

End?Select

End?Function

VB VBA VBS有什么区别？

Excel

：是微软开发的表格处理文件，功能强大。

VB：Visual

Basic

是一种由

Microsoft

公司开发的结构化的、模块化的、面向对象的、包含协助开发环境的事件驱动为机制的可视化程序设计语言。从任何标准来说，VB都是世界上使用人数最多的语言——不仅是盛赞VB的开发者还是抱怨VB的开发者的数量。它源自于BASIC编程语言。VB拥有图形用户界面（GUI）和快速应用程序开发（RAD）系统，可以轻易的使用DAO、RDO、ADO连接数据库，或者轻松的创建ActiveX控件。程序员可以轻松的使用VB提供的组件快速建立一个应用程序。

VBA：

Visual

Basic

for

Applications（VBA）是Visual

Basic的一种宏语言，是微软开发出来在其桌面应用程序中执行通用的自动化(OLE)任务的编程语言。主要能用来扩展Windows的应用程式功能，特别是Microsoft

Office软件。也可说是一种应用程式视觉化的Basic

脚本。该语言于1993年由微软公司发行。微软在1994年发行的Excel5.0版本中，即具备了VBA的宏功能。

VBS：VBScript(Microsoft

Visual

Basic

Script

Editon).，微软公司可视化BASIC脚本版).

正如其字面所透露的信息，

VBS(VBScript的进一步简写)是基于Visual

Basic的脚本语言。

我进一步解释一下，

Microsoft

Visual

Basic是微软公司出品的一套可视化编程工具，

语法基于Basic.

脚本语言，

就是不编译成二进制文件,

直接由宿主(host)解释源代码并执行，

简单点说就是你写的程序不需要编译成·exe,

而是直接给用户发送·vbs的源程序，

用户就能执行了。

VB能做些什么？

VB可以做数据库前台开发，也可做后台，还可以做很多应用软件。

一般开发游戏很少用到VB。游戏编程指利用计算机编程语言，如C编程语言、C++、java等，编写计算机、手机或游戏机上的游戏。?

目前流行的游戏编程语言为C++编程语言，游戏编程接口为DirectX9.0、OpenGL和SDL(Simple DirectMedia Layer)等。

现在手机上玩的游戏分为Android与IOS两种平台，分别是用java和object-c(或swift)。当然时下也流行一些跨平台的编程引擎，例如cocos2d-x、unity 3D等。

Visual Basic源自于BASIC编程语言。VB拥有图形用户界面（GUI）和快速应用程序开发（RAD）系统，可以轻易的使用DAO、RDO、ADO连接数据库，或者轻松的创建Active?X控件，用于高效生成类型安全和面向对象的应用程序 ?。

在 Visual Basic.NET程序设计中，整个应用程序就是一个对象，应用程序中又包含着窗（Form），命令按钮（Command），菜单（Menu）等对象。

扩展资料：

VB的编程一般用的是VB6.0。

VB6.0全称为VisualBasic 6.0，是微软公司推出的可视化编程工具MSDN之一，是目前世界上使用最广泛的程序开发工具。如果你是一个对编程一无所知，而又迫切希望掌握一种快捷实用的编程语言的初学者，那选择VB 6.0没错的。

即使考虑到VB程序本身编译和运行效率较低的不足（嘻嘻速度现在不是问题吧），单是它的快捷的开发速度，简单易学的语法，体贴便利的开发环境，它仍不失一款优秀的编程工具，是初学者的首选。

用VB开发应用程序，包括两部分工作：一是设计图形用户界面；二是编写程序代码。设计图形用户界面通过窗体设计器来完成；而代码编辑器的作用就是用来编写应用程序代码。

参考资料：

百度百科-Visual Basic

百度百科-游戏编程

VB如果获取电脑的名称

VB获取计算机名称的方法如下：

说明：计算机名就是打开控制面板-系统-网络标识-完整的计算机名称

Private Declare Function GetComputerName Lib "kernel32"

Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Private Sub Command1_Click()

Dim Name As String, Length As Long

Length = 225

Name = String(Length, Chr(0))

GetComputerName Name, Length

Name = Left(Name, Length)

Label1.Caption = Name

End Sub

Private Sub Form_Load()

End Sub

注意：该方法是通过kernel32.dll来获取的，chr(0)返回的就是计算机名。

kernel32.dll是Windows9x/Me中非常重要的32位动态链接库文件，属于内核级文件。它控制着系统的内存管理、数据的输入输出操作和中断处理，当Windows启动时，kernel32.dll就驻留在内存中特定的写保护区域，使别的程序无法占用这个内存区域。