Currency Converter 货币转换器

Private Sub CommandButton1_Click()
  UserForm1.Show
End Sub

Private Sub UserForm_Initialize()
  With ListBox1
    .AddItem "Euro"
    .AddItem "US Dollar"
    .AddItem "British Pound"
  End With

  With ListBox2
    .AddItem "Euro"
    .AddItem "US Dollar"
    .AddItem "British Pound"
  End With

  ListBox1.ListIndex = 1
  ListBox2.ListIndex = 0

  TextBox1.Value = 1
  TextBox2.Value = 0.722152
End Sub

Private Sub CommandButton1_Click()
  Dim rates(0 To 2, 0 To 2) As Double, i As Integer, j As Integer

  rates(0, 0) = 1
  rates(0, 1) = 1.38475
  rates(0, 2) = 0.87452

  rates(1, 0) = 0.722152
  rates(1, 1) = 1
  rates(1, 2) = 0.63161

  rates(2, 0) = 1.143484
  rates(2, 1) = 1.583255
  rates(2, 2) = 1

  For i = 0 To 2
    For j = 0 To 2
      If ListBox1.ListIndex = i And ListBox2.ListIndex = j Then TextBox2.Value = TextBox1.Value * rates(i, j)
    Next j
  Next i
End Sub