form3.frm

交通规划的课程设计

      Index           =   12
      Left            =   2520
      TabIndex        =   25
      Top             =   2640
      Width           =   975
   End
   Begin VB.Label Label3 
      Caption         =   "12.房山区"
      ForeColor       =   &H00800000&
      Height          =   255
      Index           =   11
      Left            =   2520
      TabIndex        =   23
      Top             =   2280
      Width           =   975
   End
   Begin VB.Label Label3 
      Caption         =   "11.顺义区"
      ForeColor       =   &H00800000&
      Height          =   255
      Index           =   10
      Left            =   2520
      TabIndex        =   21
      Top             =   1920
      Width           =   975
   End
   Begin VB.Label Label3 
      Caption         =   "10.通州区"
      ForeColor       =   &H00800000&
      Height          =   255
      Index           =   9
      Left            =   2520
      TabIndex        =   19
      Top             =   1560
      Width           =   975
   End
   Begin VB.Label Label3 
      Caption         =   "9.门头沟区"
      ForeColor       =   &H00800000&
      Height          =   255
      Index           =   8
      Left            =   2520
      TabIndex        =   17
      Top             =   1200
      Width           =   975
   End
   Begin VB.Label Label3 
      Caption         =   "8.石景山区"
      ForeColor       =   &H00800000&
      Height          =   255
      Index           =   7
      Left            =   480
      TabIndex        =   15
      Top             =   3720
      Width           =   975
   End
   Begin VB.Label Label3 
      Caption         =   "7.丰台区"
      ForeColor       =   &H00800000&
      Height          =   255
      Index           =   6
      Left            =   480
      TabIndex        =   13
      Top             =   3360
      Width           =   975
   End
   Begin VB.Label Label3 
      Caption         =   "6.海淀区"
      ForeColor       =   &H00800000&
      Height          =   255
      Index           =   5
      Left            =   480
      TabIndex        =   11
      Top             =   3000
      Width           =   855
   End
   Begin VB.Label Label3 
      Caption         =   "5.朝阳区"
      ForeColor       =   &H00800000&
      Height          =   255
      Index           =   4
      Left            =   480
      TabIndex        =   9
      Top             =   2640
      Width           =   855
   End
   Begin VB.Label Label3 
      Caption         =   "4.崇文区"
      ForeColor       =   &H00800000&
      Height          =   255
      Index           =   3
      Left            =   480
      TabIndex        =   7
      Top             =   2280
      Width           =   855
   End
   Begin VB.Label Label3 
      Caption         =   "3.宣武区"
      ForeColor       =   &H00800000&
      Height          =   255
      Index           =   2
      Left            =   480
      TabIndex        =   5
      Top             =   1920
      Width           =   855
   End
   Begin VB.Label Label3 
      Caption         =   "2.西城区"
      ForeColor       =   &H00800000&
      Height          =   255
      Index           =   1
      Left            =   480
      TabIndex        =   3
      Top             =   1560
      Width           =   855
   End
   Begin VB.Label Label3 
      Caption         =   "1.东城区"
      ForeColor       =   &H00800000&
      Height          =   255
      Index           =   0
      Left            =   480
      TabIndex        =   1
      Top             =   1200
      Width           =   855
   End
   Begin VB.Label Label2 
      Caption         =   "请输入小区间交通发生吸引量"
      BeginProperty Font 
         Name            =   "方正琥珀简体"
         Size            =   18
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00004080&
      Height          =   615
      Left            =   1080
      TabIndex        =   0
      Top             =   240
      Width           =   4815
   End
End
Attribute VB_Name = "Form3"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub Command1_Click()
    Text1(0).Text = 75000
    Text1(1).Text = 90000
    Text1(2).Text = 70000
    Text1(3).Text = 50000
    Text1(4).Text = 200000
    Text1(5).Text = 210000
    Text1(6).Text = 120000
    Text1(7).Text = 50000
    Text1(8).Text = 30000
    Text1(9).Text = 70000
    Text1(10).Text = 60000
    Text1(11).Text = 90000
    Text1(12).Text = 60000
    Text1(13).Text = 70000
    Text1(14).Text = 50000
    Text1(15).Text = 35000
    Text1(16).Text = 50000
    Text1(17).Text = 30000
    Text1(18).Text = 80000
    Text1(19).Text = 50000
    Text1(20).Text = 90000
    Text1(21).Text = 100000
    Text1(22).Text = 85000
        
    
End Sub

Private Sub Command2_Click()

founderr = False
For i = 0 To 22
If Text1(i).Text = "" Or (Not IsNumeric(Text1(i).Text)) Then
    founderr = True
End If
Next

If founderr Then
    MsgBox "请输入正确数据！", , "输入错误"
    
Else

For i = 1 To 23
G(i) = Text1(i - 1).Text
A(i) = G(i)
Next


 '出发地：东城区
  C(1, 2) = 5.06: C(1, 3) = 8.85: C(1, 4) = 5.05: C(1, 5) = 2.88
 C(1, 6) = 10.06: C(1, 7) = 14.71: C(1, 8) = 19.03: C(1, 9) = 27.2
 C(1, 10) = 20.74: C(1, 11) = 29.81: C(1, 12) = 30.82: C(1, 13) = 35.39
 C(1, 14) = 24.37: C(1, 15) = 61.43: C(1, 16) = 46.55: C(1, 17) = 64.4
 C(1, 18) = 69.5: C(1, 19) = 66.2: C(1, 20) = 84.07:
 C(1, 21) = 106.19: C(1, 22) = 48.02: C(1, 23) = 52.42
 '出发地：西城区
  C(2, 3) = 4.69: C(2, 4) = 6.28: C(2, 5) = 6.68
 C(2, 6) = 7.08: C(2, 7) = 10.1: C(2, 8) = 14.42: C(2, 9) = 23.02
 C(2, 10) = 24.92: C(2, 11) = 34.6: C(2, 12) = 26.01: C(2, 13) = 35.81
 C(2, 14) = 21.25: C(2, 15) = 65.95: C(2, 16) = 50.25: C(2, 17) = 69.29
 C(2, 18) = 69.25: C(2, 19) = 64.88: C(2, 20) = 85.24: C(2, 21) = 109.8
 C(2, 22) = 49.47: C(2, 23) = 48.21
  '出发地：宣武区
  C(3, 4) = 7.06: C(3, 5) = 9.26
 C(3, 6) = 10.27: C(3, 7) = 6.23: C(3, 8) = 14.08: C(3, 9) = 22.91
 C(3, 10) = 26.18: C(3, 11) = 38.59: C(3, 12) = 22.1: C(3, 13) = 39.91
 C(3, 14) = 16.72: C(3, 15) = 70.04: C(3, 16) = 55.01: C(3, 17) = 72.28
 C(3, 18) = 72.92: C(3, 19) = 68.36: C(3, 20) = 89.59: C(3, 21) = 114.5
 C(3, 22) = 47.23: C(3, 23) = 43.24
  '出发地：崇文区
  C(4, 5) = 3.25
 C(4, 6) = 13.37: C(4, 7) = 13.31: C(4, 8) = 20.35: C(4, 9) = 29
 C(4, 10) = 19.34: C(4, 11) = 32.98: C(4, 12) = 28.77: C(4, 13) = 40.35
 C(4, 14) = 20.23: C(4, 15) = 64.49: C(4, 16) = 50.69: C(4, 17) = 65.14
 C(4, 18) = 83.03: C(4, 19) = 70.7: C(4, 20) = 89.02: C(4, 21) = 109.21
 C(4, 22) = 43.56: C(4, 23) = 46.59
   '出发地：朝阳区
  C(5, 6) = 12.84: C(5, 7) = 15.64: C(5, 8) = 21.25: C(5, 9) = 29.58
 C(5, 10) = 18.24: C(5, 11) = 29.87: C(5, 12) = 31.42: C(5, 13) = 37.92
 C(5, 14) = 23.54: C(5, 15) = 61.79: C(5, 16) = 46.9: C(5, 17) = 62.81
 C(5, 18) = 72.11: C(5, 19) = 68.43: C(5, 20) = 86.26: C(5, 21) = 106.06
 C(5, 22) = 45.58: C(5, 23) = 50.08
    '出发地：海淀区
  C(6, 7) = 11.88: C(6, 8) = 10.28: C(6, 9) = 17.51
 C(6, 10) = 30.84: C(6, 11) = 32.98: C(6, 12) = 26.58: C(6, 13) = 29.74
 C(6, 14) = 26.12: C(6, 15) = 66.01: C(6, 16) = 49.27: C(6, 17) = 72.7
 C(6, 18) = 62.58: C(6, 19) = 56.9: C(6, 20) = 79.48: C(6, 21) = 109.94
 C(6, 22) = 56.71: C(6, 23) = 53.18
    '出发地：丰台区
  C(7, 8) = 10.16: C(7, 9) = 19.05
 C(7, 10) = 32.02: C(7, 11) = 44.7: C(7, 12) = 15.96: C(7, 13) = 41.4
 C(7, 14) = 14.6: C(7, 15) = 75.88: C(7, 16) = 59.79: C(7, 17) = 78.46
 C(7, 18) = 72.95: C(7, 19) = 66.75: C(7, 20) = 91.65: C(7, 21) = 120.59
 C(7, 22) = 49.82: C(7, 23) = 43.34
    '出发地：石景山区
  C(8, 9) = 9.06
 C(8, 10) = 39.24: C(8, 11) = 46.32: C(8, 12) = 18.59: C(8, 13) = 34.18
 C(8, 14) = 24.15: C(8, 15) = 75.78: C(8, 16) = 58.7: C(8, 17) = 86.96
 C(8, 18) = 63.84: C(8, 19) = 56.96: C(8, 20) = 83.68: C(8, 21) = 120.11
 C(8, 22) = 60.11: C(8, 23) = 49.34
    '出发地：门头沟区
  C(9, 10) = 47.77: C(9, 11) = 52.02: C(9, 12) = 21.64: C(9, 13) = 33.52
 C(9, 14) = 31.69: C(9, 15) = 80.08: C(9, 16) = 62.3: C(9, 17) = 90.4
 C(9, 18) = 58.48: C(9, 19) = 49.75: C(9, 20) = 80.89: C(9, 21) = 123.03
 C(9, 22) = 68.51: C(9, 23) = 54.8
    '出发地：通州区
  C(10, 11) = 25.36: C(10, 12) = 46.25: C(10, 13) = 50.77
 C(10, 14) = 33.73: C(10, 15) = 55.18: C(10, 16) = 46.62: C(10, 17) = 47.45
 C(10, 18) = 85.01: C(10, 19) = 83.75: C(10, 20) = 94.68: C(10, 21) = 98.57
 C(10, 22) = 35.29: C(10, 23) = 55.71
    '出发地：顺义区
  C(11, 12) = 60.81: C(11, 13) = 37.05
 C(11, 14) = 52.79: C(11, 15) = 31.93: C(11, 16) = 20.74: C(11, 17) = 39.8
 C(11, 18) = 68.41: C(11, 19) = 70.92: C(11, 20) = 72.19: C(11, 21) = 75.67
 C(11, 22) = 60.2: C(11, 23) = 78.47
    '出发地：房山区
  C(12, 13) = 52.46
 C(12, 14) = 16.43: C(12, 15) = 91.8: C(12, 16) = 75.6: C(12, 17) = 93.54
 C(12, 18) = 80.42: C(12, 19) = 71.63: C(12, 20) = 101.68: C(12, 21) = 136.62
 C(12, 22) = 55.63: C(12, 23) = 33.09
     '出发地：昌平区
  C(13, 14) = 41.62: C(13, 15) = 54.89: C(13, 16) = 35.81: C(13, 17) = 76.44
 C(13, 18) = 34.72: C(13, 19) = 34.58: C(13, 20) = 50.03: C(13, 21) = 95.36
 C(13, 22) = 82.54: C(13, 23) = 83.09
     '出发地：大兴区
  C(14, 15) = 75.66: C(14, 16) = 70.43: C(14, 17) = 81.41
 C(14, 18) = 87.21: C(14, 19) = 81.26: C(14, 20) = 105.88: C(14, 21) = 129.13
 C(14, 22) = 40.27: C(14, 23) = 27.85
     '出发地：密云区
  C(15, 16) = 19.09: C(15, 17) = 35.06: C(15, 18) = 74.55
  C(15, 19) = 82.54: C(15, 20) = 66.16: C(15, 21) = 44.59
  C(15, 22) = 85.87: C(15, 23) = 109.61
     '出发地：怀柔区
  C(16, 17) = 45.86: C(16, 18) = 58.41: C(16, 19) = 64.94: C(16, 20) = 56.23
  C(16, 21) = 61.47: C(16, 22) = 81.58: C(16, 23) = 97.65
       '出发地：平谷区
  C(17, 18) = 103.42: C(17, 19) = 108.94: C(17, 20) = 100.3: C(17, 21) = 61.71
  C(17, 22) = 67.34: C(17, 23) = 101.68
       '出发地：延庆区
  C(18, 19) = 14.05: C(18, 20) = 27.72: C(18, 21) = 103.94: C(18, 22) = 117.59
  C(18, 23) = 113.54
       '出发地：昌平以西
  C(19, 20) = 41.28: C(19, 21) = 115.46: C(19, 22) = 113.94: C(19, 23) = 105.67
       '出发地：延庆以北
  C(20, 21) = 85.26: C(20, 22) = 129.35: C(20, 23) = 123.53
       '出发地：密云以东
  C(21, 22) = 128.11: C(21, 23) = 154.45
       '出发地：廊坊，天津
  C(22, 23) = 40.82
   '出发地=目的地,目的地=出发地
 For i = 1 To 22
  For j = i To 22
   C(j + 1, i) = C(i, j + 1)
  Next j
 Next i
  
Unload Form3
Form5.Show

End If
End Sub