'在 Class 块中，成员通过相应的声明语句被声明为 Private(私有成员，只能在类内部调用) 或 Public(公有成员，可以在类'内外部调用) 。被声明为 Private 的将只在 Class 块内是可见的。被声明为 Public 不仅在 Class 块的内部是可见的，对 'Class 块之外的代码也是可见的。没有使用 Private 或 Public 明确声明的被默认为 Public。在类的块内部被声明为 Public 的'过程（Sub 或 Function）将成为类的方法。Public 变量将成为类的属性，同使用 Property Get、Property Let 和 Property Set '显式声明的属性一样，可以设置。类的缺省属性和方法是在它们的声明部分用 Default 关键字指定的。dim syyset syy=new testsyy.setname="李小龙"syy.setgender="男"syy.setage="32"response.write syy.outputsyy.printMethodresponse.write syy.myresultresponse.write"以下是public变量作为属性使用的测试－－－－－－－－<BR><BR>"syy.syyname="重新设置syyname"response.write syy.syyname&"<BR>"response.write syy.syygender&"<BR>"response.write syy.syyage&"<BR>"set syy=nothingClass test Public syyname Public syygender Public syyage private strName private strGender private strAge Public Property Let setName(n) strName=n End Property Public Property Let setGender(n) strGender=n End Property Public Property Let setAge(n) strAge=n End Property Public Property Get output output="我的名字是"&strName&"，我的年纪是"&strAge&"岁了，我的性别是"&strGender&"。谢谢您提供数据！<BR>" End Property Public Sub printMethod response.write "以下是方法－－－－－－－－－－－－<BR>" response.write output response.write "方法结束－－－－－－－－－－－－－<BR>" End Sub Public Function myresult myresult="<BR><BR><BR>"&out&"－－这个可是函数<BR><BR><BR>" End Function Public Sub Class_initialize 'response.write "<script>alert('im syy')</script>" syyname="my name is test2"&strname syygender="my gender is test3"&strgender syyage="my age is test6"&strage End SubEnd Class%>
