用getcomputername获得计算机名得到不同的结果，求解！

Question

为什么我会得到不同的结果呢？

Answer 1

'看不到楼主的图片，可以这样试试：Public Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As LongPublic Function computerName() As String    Dim tmpstr As String
    Dim l As Long
    tmpstr = String(256, 0)
    l = GetComputerName(tmpstr, 256)
    computerName = Left$(tmpstr, InStr(tmpstr, Chr(0)) - 1)
    cClientName = computerName
 End Function

Answer 2

Private Sub Form_Click()
 MsgBox Environ("computername")
End Sub