ho provato a scrivere un programma per calcolare la distanza tra una cittą e l'altra, ma non parte...vi posto il codice, per chi mi vuol aiutare
Option Explicit
Private Sub Cbdestinazione_Change()
Dim i As Integer, a As Integer, b As Integer, dist As Integer
Dim part As String, arriv As String
Dim TA(5, 5)
TA(1, 1) = "ANCONA": TA(2, 1) = "AOSTA": TA(2, 2) = 602: TA(3, 1) = "BARI": TA(3, 2) = 470:
TA(3, 3) = 1072: TA(4, 1) = "BOLOGNA": TA(4, 2) = 208
TA(4, 3) = 394: TA(4, 4) = 678: TA(5, 1) = "BOLZANO": TA(5, 2) = 477: TA(5, 3) = 445: TA(5, 4) = 947:
TA(5, 5) = 276
part = cbpartenza.Value
arriv = cbdestinazione.Value
If part = arriv Then
Tbdistanza.Text = "distanza nulla poichč la partenza coincide con la destinazione"
Else
For i = 1 To 5
If TA(i, 1) = part Or TA(i, 1) = arriv Then
a = 1
Exit For
End If
Next i
For i = (a + 1) To 5
If TA(i, 1) = part Or TA(i, 1) = arriv Then
b = 1
Exit For
End If
Next i
dist = TA(b, a + 1)
Tbdistanza.Text = "La distanza tra " & part & " e " & arriv & " č uguale a " & dist & "KM"
End If
End Sub
Private Sub cbpartenza_Change()
Dim i As Integer, a As Integer, b As Integer, dist As Integer
Dim part As String, b As String
Dim TA(5, 5)
TA(1, 1) = "ANCONA": TA(2, 1) = "AOSTA": TA(2, 2) = 602: TA(3, 1) = "BARI": TA(3, 2) = 470:
TA(3, 3) = 1072: TA(4, 1) = "BOLOGNA": TA(4, 2) = 208
TA(4, 3) = 394: TA(4, 4) = 678: TA(5, 1) = "BOLZANO": TA(5, 2) = 477: TA(5, 3) = 445: TA(5, 4) = 947:
TA(5, 5) = 276
part = cbpartenza.Value
arriv = cbdestinazione.Value
If part = arriv Then
Tbdistanza.Text = "distanza nulla poichč la partenza coincide con la destinazione"
Else
For i = 1 To 5
If TA(i, 1) = part Or TA(i, 1) = arriv Then
a = 1
Exit For
End If
Next i
For i = (a + 1) To 5
If TA(i, 1) = part Or TA(i, 1) = arriv Then
b = 1
Exit For
End If
Next i
dist = TA(b, a + 1)
Tbdistanza.Text = "La distanza tra " & part & " e " & arriv & " č uguale a " & dist & "KM"
End If
End Sub