[問題] 有關vb2005 類別與繼承的問題

[xtimer ()]

版本:
VB2005

問題:
想用vb
寫出可輸入姓名與薪水的表格
以下是目前寫出的

Class Emplyee
    Public Ename As String
    Public Salary As Integer
    Sub Emplyee()
    End Sub
    Sub Emplyee(ByVal a As String, ByVal b As Integer)
        Ename = a
        Salary = b
    End Sub
    Public Sub PrintData()
        Console.WriteLine("員工姓名：" & Ename & vbTab & "員工薪水：" & Salary)
    End Sub
    Public Sub ShowError()
        Console.WriteLine("新水必須介於20000到40000之間")
    End Sub
End Class
Module module1
    Sub main()
        Dim ko1 As Emplyee = New Emplyee()
        Console.Write("請輸入員工姓名 = ")
        ko1.Ename = Console.ReadLine
L1:     Console.Write("請輸入員工薪水 = ")
        ko1.Salary = Console.ReadLine
        If ko1.Salary < 20000 Or ko1.Salary > 40000 Then
            ko1.ShowError()
            GoTo L1
        End If
        ko1.PrintData()
        Console.ReadLine()
    End Sub
End Module

目前是可以輸入一人的姓名與薪水
然後馬上列出表格
請問該怎麼修改
才能一直無上限的輸入
最後再用一個指令
一次列出之前所輸入的資料呢?

目前想到的是用ko(x)
然後輸入一次 x = x +1  無限迴圈
一直到輸入某指令令它跳出迴圈

但似乎ko(x)不能這樣用...系統好像會自動判定它是陣列
而不會把x只當數字用?

請問是我哪裡錯了嗎
還是有另外正確的寫法呢?

--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 220.143.63.12
※ 編輯: xtimer          來自: 220.143.63.12        (05/04 21:21)