在自己的小站上写这样的一系列教程，主要且唯一的目的就是为了复习自己的VB编程知识，这些基本上是我以前学习VB时的笔记，因为感觉编程这个东西一段时间不去学习不去接触，就会忘记的。等把VB复习巩固了，接下去就打算学习Delphi。记得葛军说过：把VB精通了，学起Delphi就像堆积木一样。

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 = 255
name = String(length, Chr(0))          '产生225个空字符，Chr(0)为空字符
GetComputerName name, length
name = Left(name, length)              '这行代码可以不要
MsgBox name
End Sub

VB获取系统目录：

Private Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Private Sub Command1_Click()
Dim mulu As String, length As Long
length = 200
mulu = String(length, Chr(0))
GetSystemDirectory mulu, length
mulu = Left(mulu, length)
MsgBox mulu, vbOKOnly + vbOKCancel, "系统提示"
End Sub

注意点

String函数：返回 Variant (String)，其中包含指定长度重复字符的字符串。