一个简单的VB.net程序

1.打开car.vb文件夹添加代码如下

Public Class car
Public color As String '名为color的公有属性
Private _speed As Integer '名为_speed的私有属性，私有属性前加_
ReadOnly Property speed() As Integer '只读属性，当读入属性时，get 与 end get 之间的代码就被执行了，返回_speed的值
Get
Return _speed
End Get
End Property
Sub accelerate(ByVal accelerateby As Integer) '创建了一个方法，带有一个参数accelerateby，用来告诉方法把速度加快多少
_speed += accelerateby
End Sub
End Class

2.使用类来查看如何进行工作，打开module1.vb，编写代码如下

Module Module1
Sub main()
Dim mycar As car '创建car类支持的对象
mycar = New car() '创建对象mycar的实例
mycar.color = "red"
Console.WriteLine("车颜色")
Console.WriteLine(mycar.color)

Console.WriteLine("原来车速")
Console.WriteLine(mycar.speed)

mycar.accelerate(5) '调用accelerate方法
Console.WriteLine("加速后的车速")
Console.WriteLine(mycar.speed)
End Sub
End Module