作者xtimer ()
看板Visual_Basic
标题[问题] 有关vb2005 类别与继承的问题
时间Sun May 4 21:20:59 2008
版本:
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)