路网层次表示VB演示

下载后可任意编辑 Private Sub _Click() ScaleWidth = 100 ScaleHeight = 100 DrawWidth = 3 Line (20, 10)-(80, 80), vbCyan, B DrawWidth = 2 Line (25, 10)-(30, 23), vbGreen Line (33, 44)-(30, 23), vbGreen Line (33, 44)-(36, 66), vbGreen Line (36, 66)-(38, 80), vbGreen Line (60, 10)-(63, 17), vbGreen Line (68, 37)-(63, 17), vbGreen Line (68, 37)-(73, 50), vbGreen Line (80, 77)-(73, 50), vbGreen Line (30, 23)-(48, 18), vbYellow Line (63, 17)-(48, 18), vbYellow Line (50, 39)-(48, 18), vbYellow Line (50, 39)-(57, 38), vbYellow Line (68, 37)-(57, 38), vbYellow Line (63, 17)-(48, 18), vbYellow Line (36, 66)-(58, 66), vbYellow Line (58, 66)-(57, 38), vbYellow Line (58, 66)-(73, 50), vbYellow Line (58, 66)-(67, 80), vbYellow DrawWidth = 7 Line (30, 23)-(30, 23), vbRed Print “a2“ Line (33, 44)-(33, 44), vbRed Print “a3“ Line (36, 66)-(36, 66), vbRed Print “14“ Line (48, 18)-(48, 18), vbRed Print “a11“ Line (50, 39)-(50, 39), vbRed Print “a12“ Line (57, 38)-(57, 38), vbRed Print “a13“ Line (58, 66)-(58, 66), vbRed Print “a14“ Line (63, 17)-(63, 17), vbRed Print “a7“ Line (68, 37)-(68, 37), vbRed Print “a8“ Line (73, 50)-(73, 50), vbRed Print “a9“, Line (25, 10)-(25, 10), vbRed Print “a1“ Line (60, 10)-(60, 10), vbRed Print “a6“ Line (38, 80)-(38, 80), vbRed Print “a5“ Line (67, 80)-(67, 80), vbRed Print “a15“ Line (80, 77)-(80, 77), vbRed Print “a10“ End Sub Private Sub _Click() ScaleWidth = 100 ScaleHeight = 100 DrawWidth = 3 Line (20, 10)-(80, 80), vbCyan, B DrawWidth = 2 Line (30, 10)-(35, 40), vbGreen Line (38, 50)-(35, 40), vbGreen Line (38, 50)-(40, 66), vbGreen Line (20, 70)-(40, 66), vbGreen Line (63, 58)-(40, 66), vbGreen Line (63, 58)-(73, 53), vbGreen Line (70, 34)-(73, 53), vbGreen Line (70, 34)-(60, 10), vbGreen Line (40, 10)-(45, 35), vbYellow Line (35, 40)-(45, 35), vbYellow Line (48, 45)-(45, 35), vbYellow Line (48, 45)-(40, 66), vbYellow Line (48, 45)-(60, 40), vbYellow Line (70, 34)-(60, 40), vbYellow Line (63, 58)-(60, 40), vbYellow Line (70, 34)-(80, 29), vbYellow DrawWidth = 7 Line (35, 40)-(35, 40), vbRed Print “b4“ Line (38, 50)-(38, 50), vbRed Print “b3“ Line (40, 66)-(40, 66), vbRed Print “b2“ Line (45, 35)-(45, 35), vbRed Print “b11“ Line (48, 45)-(48, 45), vbRed Print “b10“ Line (60, 40)-(60, 40), vbRed Print “b13“ Line (63, 58)-(63, 58), vbRed Print “b6“ Line (70, 34)-(70, 34), vbRed Print “b8“ Line (73, 53)-(73, 53), vbRed Print “b7“ Line (20, 70)-(20, 70), vbRed Print “b1“ Line (30, 10)-(30, 10), vbRed Print “b5“ Line (40, 10)-(40, 10), vbRed Print “b12“ Line (60, 10)-(60, 10), vbRed Print “b9“ Line (80, 29)-(80, 29), vbRed Print “b14“ End Sub Private Sub _Click() ScaleWidth = 100 ScaleHeight = 100 DrawWidth = 3 Line (20, 10)-(80, 80), vbCyan, B DrawWidth = 2 Line (20, 60)-(41, 53), vbGreen Line (53, 45)-(41, 53), vbGreen Line (53, 45)-(66, 43), vbGreen Line (63, 38)-(55, 15), vbGreen Line (55, 15)-(51, 10