|
发表于 2007-2-10 16:27:00
|
显示全部楼层
Re:我是业余程序想找业余策划合作一部小成本大制作。。
前几天,以vbs写了一个小型类,类名用xx 替换了,楼主看看,实现了什么功能?有什么用?哪里设计不符合封装的原则?如果连这个也看不出话,建议还是继续上学深造把。
ps:valuer是look函数的返回值,因为游侠的解析器不支持类下面的函数返回,所以只能用这样的形式实现。^_^||
Class xx
Public isxx
Public num
Private key(255)
Private value(255)
Public Function put(keyin,valuein)
If num=empty Then
num=0
End If
isxx=1
If num <>0 Then
For i=1 To num
If key(i)=keyin Then
isxx=0
End If
Next
End If
If isxx=1 Then
num=num+1
key(num)=keyin
value(num)=valuein
Else
isxx=0
End If
End Function
Public Function look(ByVal xxin,ByRef valuer)
For i=1 To num
If key(i)=xxin Then
valuer=value(i)
End If
Next
End Function
End Class
|
|