Конвертер валют

Dim mass() As Double
Dim k As Double
Dim V() As String
Dim N%
 
Dim ind1%, ind2%
 
Private Sub Combo1_Click()
ind1 = Combo1.ListIndex + 1
'Call kn
End Sub
Private Sub Combo2_Click()
ind2 = Combo2.ListIndex + 1
'Call kn
End Sub
 
Private Sub Command1_Click()
Call kn
End Sub
 
Private Sub Form_Load()
'вариант - матрицу считывать откуда то
'     h   |   $   |   e   |  R
'------------------------------
'h    1   |   8   |  11   |  0.25
'------------------------------
'$  1/8   |   1   |  1.2  |  1/32
'------------------------------
'e  1/11  | 1/1.2 |   1   |  1/40
'------------------------------
'R  1/0.25| 32    |   40   |  1
N = 4
ReDim mass(N, N), V(N)
V(1) = "hrn": V(2) = "$": V(3) = "e": V(4) = "R"
mass(1, 2) = 8: mass(1, 3) = 11: mass(1, 4) = 0.25
mass(2, 3) = 1.2: mass(2, 4) = 1 / 32
mass(3, 4) = 1 / 40
 
For i = 1 To N
Combo1.AddItem V(i)
Combo2.AddItem V(i)
Next i
Combo1.ListIndex = 0: Combo2.ListIndex = 0
End Sub
 
Sub kn()
If IsNumeric(Text1.Text) Then
k = 1
     If ind1 < ind2 Then k = 1 / mass(ind1, ind2)
     If ind1 > ind2 Then k = mass(ind2, ind1)
  Label1 = Round(Text1.Text * k, 2)
  Label2 = V(ind1): Label3 = V(ind2)
Else
Label1 = "Err"
End If
End Sub
 
'Private Sub Text1_Change()
'Call kn
'End Sub