Dim sComputerName As String'计算机的名字 Dim COmputer Name As Long 计算机名字的长度 Dim REsult as long Get Computer Name的返回值 Dim rv as boolean GetCName返回值,若为TRUE则表示操作成功 IComputerNameLen=256 cOmputer Name=Space(COmputer NameLen) IResult-Get Computer Name(cOmputer Name, ICompputer NameLen If rEsult (>0 Then Cname=Left $(sComputer Name, I Computer NameLen) RV=True Else Rv=False GetcNameRV End Function 定义一个修改计算机名字的函数 Public Function SetCName(CName )As boolean Dim lresult as long Dim rv as boolean IResult-SetComputer Name(CName If REsult(〉0Then R=True修改成功 Else rv=false End lf Setcname=rv End function 2).在窗体中添加一命令按钮 Command1,双击该按钮并在其中添加如下代码: Sub Commandl-Click O DIM CN AS String gEt CName(CN Print "This Computer Name is: ",CN CN=〃 MYCOMPUTER〃 -SetCName(CN) Print Now the Computer name is: ", CN End sul 1)对于完成同一个实际的任务来说,一般而言菜单驱动方式较数据表格驱动方式和事件驱动方式容易 2)相对于用户的工作量来说,菜单驱动方式较数据表格驱动方式和事件驱动方式的工作量大Dim sComputerName As String ’计算机的名字 Dim lComputerName As Long ’计算机名字的长度 Dim lResult As Long ’GetComputerName 的返回值 Dim RV As Boolean ′GetCName 返回值，若为 TRUE 则表示操作成功 lComputerNameLen=256 sComputerName=Space (lComputerNameLen) lResult=GetComputerName (sComputerName,lCompputerNameLen) If lResult 〈〉0 Then Cname=Left＄ (sComputerName,lComputerNameLen) RV=True Else RV=False End If GetCName=RV End Function ′定义一个修改计算机名字的函数 Public Function SetCName (CName ) As Boolean Dim lResult As Long Dim RV As Boolean lResult=SetComputerName (CName) If lResult 〈〉0 Then RV=True′修改成功 Else RV=False End If SetCName=RV End Function 2）.在窗体中添加一命令按钮 Command1，双击该按钮并在其中添加如下代码： Sub Command1－Click () DIM CN AS String x=GetCName (CN) Print 〃This Computer Name is:〃,CN CN=〃MYCOMPUTER〃 x=SetCName (CN ) Print 〃Now the Computer name is :〃,CN End Sub 1）对于完成同一个实际的任务来说，一般而言菜单驱动方式较数据表格驱动方式和事件驱动方式容易 2）相对于用户的工作量来说，菜单驱动方式较数据表格驱动方式和事件驱动方式的工作量大