HKD2280

컨트롤은 다음과 같습니다:

1. RMB 뒤의 텍스트 상자 Text1

2 교환 뒤의 텍스트 상자 Text2

< p>3. 종료 버튼 Command1

4. 교환 버튼 Command2

5. USD 라디오 버튼 Option1

7. 홍콩 달러 라디오 버튼 Option2

코드는 다음과 같습니다

Private Sub Command1_Click()

End

End Sub

Private Sub Command2_Click()

Dim HuiLv를 통화로

If Option1.Value = True Then

HuiLv = 1 / 8.25 ' USD 환율

< p> Else

HuiLv = 1 / 1.15 '홍콩 달러

End If

Text2 = CCur(Text1) * HuiLv

End Sub

Private Sub Command3_Click()

Text1 = ""

Text2 = ""

Text1.SetFocus

End Sub