好了，到這里，你不想看看完整的例子嗎？這里重新寫了一個human類，當中有一個age（年齡）屬性。我們看看它是怎樣阻止把一個人的年齡設為負值的： imports system
public module mymodule sub main dim laowang as new human laowang.name = "老王" laowang.age = 52 laowang.age = 330 '這句話有沒有把老王的年齡設為330歲呢？看看下一句的結果就知道了。 console.writeline("{0}現在{1}歲。", laowang.name, laowang.age) console.readline() end sub end module
public class human public name as string dim mvarage as integer '這里沒有指明是public還是private，因為缺省狀態(tài)是private
public property age() as integer get return mvarage end get set(byval value as integer) if value<=0 or value>=200 then '通常年齡不應該小于1或大于200 console.writeline(value & "歲？我死了嗎？") else mvarage = value end if end set end property end class
到這里你應該閉目養(yǎng)神一會兒：原來屬性是這樣子的啊！
但是話題還沒有完。
比如說，如果成員是一個數組，我該怎樣為它建立屬性呢？為當中的每一個元素建立嗎？那數組大小變化了怎么辦？property才不會這么蠢。我們舉個例子。比方我們給human類添加一個數組成員children，表示一個人有多少個孩子。我們先定義mvarchildren： dim mvarchildren() as human
為其建立屬性有兩種方式。一種是直接將屬性的類型設為數組： public property children() as human() get return mvarchildren end get set(byval value as human()) mvarchildren = value end set end property
那么我們就可以像使用數組一樣來使用這個屬性了。
另一種是在讀取屬性的時候傳入參數index： public property children(byval index as integer) as human get return mvarchildren(index) end get set(byval value as human) mvarchildren(index) = value end set end property
這樣可以對傳入的下標進行檢查。 這里提到讀取屬性的時候可以給參數。這是很有趣的一個東西。比如老王有3個小孩，其中一個叫“王華”。我想根據名字來得到這個小孩，我可以寫一個函數 public function getchildbyname(byval name as string) as human '內容省略了
然后調用 laowang.getchildbyname("王華")
就可以了。 要寫成屬性的話，我們可以這樣寫： public property child(byval name as string) as human get return getchildbyname(name) end get set(byval value as human) getchildbyname(name) = value end set end property
