Module
Module1
Public
Class
Person
'Person类
Private
_Name
As
String
'数据成员姓名
_Age
Date
'数据成员年龄
Property
Name()
'属性--姓名
Get
Return
'返回属性值
End
Set(ByVal
value
String)
=
'属性赋值
Set
Age()
'属性--年龄
Date)
Sub
Print()
'打印方法
Console.WriteLine(_Name)
Console.WriteLine(_Age)
Teacher
'Teacher类
Inherits
'继承自Person
_No
'数据成员-工号
_Ta
Integer
'数据成员--教龄
No()
'属性--工号
Ta()
'属性--教龄
Integer)
NewPrint()
Console.WriteLine(Me.Name)
Console.WriteLine(Me.Age)
Console.WriteLine(Me.No)
Console.WriteLine(Me.Ta)
'以下是上面两个类的测试程序
WithEvents
myPerson
New
'实例化一个Person
myTeacher
'Teacher
Main()
myPerson.Name
myPerson.Age
myPerson.Print()
myTeacher.Name
"VB高手图成员"
myTeacher.Age
myTeacher.No
"北大附中001"
myTeacher.Ta
myTeacher.Print()
myTeacher.NewPrint()
Console.ReadLine()
'wait
for
press
a
key.
你可以在窗体上放一个Lable控件,取名叫Lable1, 那么实现方式就是: private sub form_load() Lable1.Text="今天天气很好"; end sub 你可以试试
意思是说你的函数有可能不返回值,问题出在Try语句里面.如果Try语句没有捕获到异常,Return语句就会正常返回值;如果捕获到异常,就会直接跳进Catch语句块里,在这种情况下,函数运行完之前一直没有返回值.你可以直接把这个异常丢给调用方,在End Try上面写:
Throw ex
在End Function上方写:
Return Nothing
这样你就可以让调用者来捕获异常,或者直接把Try语句里面的代码拿出来,去掉Try语句,也可以起到类似的作用.
可以不用管它,因为默认值是空,想不出现警告就定义成:dim MsgText as string=""
以上就是土嘎嘎小编大虾米为大家整理的相关主题介绍,如果您觉得小编更新的文章只要能对粉丝们有用,就是我们最大的鼓励和动力,不要忘记讲本站分享给您身边的朋友哦!!