关于余杰老师精通QTP书中的疑问

   余杰老师《精通QTP——自动化测试技术领航》中，P195类的简单应用，代码没有正确执行出结果。

Class User
   Public s_name
 Public a_age
   Public Property  Get name1
   name1=s_name
         End Property
      Public Property  Get age
   age=s_age
         End Property

 Public Property Set name1(new_name)
 s_name=new_name
 End Property
  Public Property Set age(new_age)
 s_age=new_age
 End Property
End Class

Set user1=New User
user1.age=100
user1.name1="Amyin"
Msgbox user1.name1
Msgbox "姓名："+user1.name1+"年龄："+user1.age

 

'VBS中的SendKeys

Dim WshShell,Path,i
Set WshShell=WScript.CreateObject("WScript.Shell")
WshShell.SendKeys "^+{ESC}"