'代码来源：代码街codejie.net
成都创新互联公司成立十年来，这条路我们正越走越好，积累了技术与客户资源，形成了良好的口碑。为客户提供成都网站建设、网站建设、网站策划、网页设计、域名与空间、网络营销、VI设计、网站改版、漏洞修补等服务。网站是否美观、功能强大、用户体验好、性价比高、打开快等等，这些对于网站建设都非常重要，成都创新互联公司通过对建站技术性的掌握、对创意设计的研究为客户提供一站式互联网解决方案，携手广大客户，共同发展进步。
'由于在vb.net里变量名不区分大小写（StuName和stuname是一样的），所以个别变量名需要修改
'在vb.net中,模块级变量的命名原则是以m_开头
Public Class Student
Private m_stuNo As String '学生号字段
Private m_stuName As String '学生姓名字段
Private m_stuAge As Integer '学生年龄字段
Private m_stuAddress As String '学生住址字段
'无参构造方法
Public Sub New()
End Sub
'有参构造方法
Public Sub New(ByVal stuNo As String, ByVal stuName As String, ByVal stuAge As Integer, ByVal stuAddress As String)
m_stuNo = stuNo
m_stuName = stuName
m_stuAge = stuAge
m_stuAddress = stuAddress
End Sub
'学生号属性
Public Property StuNo() As String
Get
Return m_stuNo
End Get
Set(ByVal value As String)
m_stuNo = value
End Set
End Property
'学生姓名属性
Public Property StuName() As String
Get
Return m_stuName
End Get
Set(ByVal value As String)
m_stuName = value
End Set
End Property
'学生年龄属性
Public Property StuAge() As Integer
Get
Return m_stuAge
End Get
Set(ByVal value As Integer)
m_stuAge = value
End Set
End Property
'学生住址属性
Public Property StuAddress() As String
Get
Return m_stuAddress
End Get
Set(ByVal value As String)
m_stuAddress = value
End Set
End Property
End Class
sub一般情况下是一个英文前缀，有向下的意思，比如subway（地铁）
submarine（潜水艇）
在计算机中一般是“子……”的意思，比如SubString（子字符串），SubItems（子项）
这儿呢，sub就是指一个“子过程”，一般就简称“过程”，面向对象概念中也叫“方法”。
end
sub标志着子过程的结束，也就是说在sub与end
sub之间，就是这个子过程的内容。
函数 varType(变量名)返回表示变量类型的一个整数，返回值vbObject表示对象变量。返回值可以用“对象浏览器”查看VbVarType。
VB6中对象的初始化和销毁要用set语句，如果是别人的代码，看它的定义，另外对象变量通常会有对应的前缀（比如文本框是txt）或者obj。
在VB.NET，所有简单变量类型都已经包装成类，所以变量都是对象变量。
