教學書上要我們作這樣的範例:
1、設定一個emplyee 員工類別，該類別的成員如下：
(1)salary 薪水屬性：可用設定員工薪水，最小值20000，最大值40000
(2)ename 欄位：原來設定員工姓名
(3)Sub PrintData()：顯示員工的姓名、薪水資訊
(4)ShowError()事件：當員工salary 薪水屬性設定錯誤時，會觸發此事件，並顯示「薪
水必須介於20000到40000之間」
2、延續上例，建立emplyee員工物件陣列，並讓使用者自己指定員工人數，接著再逐一輸
入每一位員工的姓名和薪資，最後再印出您所輸入的所有員工資料。
3、延續上例，再製作搜尋員工姓名的功能。先讓使用者輸入要搜尋員工的姓名，接著會
由員工物件陣列去尋找所符合的資料並顯示出來。
這是目前寫的：
Module Module1
Class emplyee
Private _salary As Integer
Public Ename As String
Public Event salaryerror(ByVal _salary As Integer)
Public Sub printdata()
End Sub
Public Property salary() As Integer
Get
Return _salary
End Get
Set(ByVal value As Integer)
_salary = value
If value < 20000 Or value > 40000 Then
_salary = 25000
RaiseEvent salaryerror(value)
End If
End Set
End Property
End Class
Sub showerror(ByVal _salary As Integer)
Console.WriteLine("{0}不足2萬或超過4萬，請重新填寫。", _salary)
End Sub
Sub main()
Dim empd As New emplyee
AddHandler (empd.salaryerror), AddressOf showerror
Dim empdb As New ArrayList()
empd.Ename = "測試"
empd.salary = 50000
empdb.Add(empd)
empd.Ename = "測試2"
empd.salary = 30000
empdb.Add(empd)
empd.Ename = "測試3"
empd.salary = 25000
empdb.Add(empd)
Dim newemp As emplyee
newemp = empdb(0)
Console.WriteLine("員工1姓名:{0}，薪資:{1}", newemp.Ename,
newemp.salary)
Console.WriteLine("測試完成")
newemp = empdb(1)
Console.WriteLine("員工2姓名:{0}，薪資:{1}", newemp.Ename,
newemp.salary)
Console.WriteLine("測試完成")
End Sub
End Module
在加入陣列的過程中，已經被加進陣列的那些變數會隨著empd的更動也被更改
(也就是後面顯示的是員工1=測試3，薪資25000，員工2=測試3，薪資25000，全都一樣)
想請問是因為陣列不能這樣用嗎?要怎麼作才可以把它修正回去呢?感謝大家