公交车辆描述，用VB编写。是有关的我毕业论文里的一个小程序。我要做的就是公交车辆查询分析等方面的。-Private Sub Command1_Click(Index As Integer)

Select Case Index

Case 0

Image1.Picture = LoadPicture("F:\毕业论文\材料\图片资料\公交车辆\沈阳有轨列车.jpg")

Label1.Caption = "　　　　　　　　　　　　　　　　　　　　　　　 沈阳第一辆有轨电车！"

Case 1

Image1.Picture = LoadPicture("F:\毕业论文\材料\图片资料\公交车辆\沈阳公交.jpg")

Label1.Caption = "　　　　　　　　　　　　　　　　　　　　　　　 沈阳现代公交车！"

Case 2

Image1.Picture = LoadPicture("F:\毕业论文\材料\图片资料\公交车辆\沈阳双层公交.jpg")

Label1.Caption = "　　　　　　　　　　　　　　　　　　　　　　　 沈阳的双层公交车！"

Case 3

Image1.Picture = LoadPicture("F:\毕业论文\材料\图片资料\公交车辆\夜景公交.jpg")

Label1.Caption = "　　　　　　　　　　　　　　　　　　　　　　　 沈阳夜景中的公交车！"



End Select

11



End Sub