2006-05-01 09:41:29最愛五月天的櫻桃

ph2

Private Sub Command1_Click()
Dim a(5) As Integer
a(0) = 0
a(1) = 30
a(2) = 80
a(3) = 190
a(4) = 290
a(5) = 330

Label5.Caption = Abs(a(Combo1.ListIndex) - a(Combo2.ListIndex))
End Sub