重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
'代码来源:代码街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,所有简单变量类型都已经包装成类,所以变量都是对象变量。