vb编写代码

人民币汇率计算：假设：1美元=7.7元（人民币）；1英镑=15.47元（人民币）；1日元=0.081元；1欧元=10.8元
人民币转换工具
请输入人民币值______元
o转换成美元 o转换成英镑
o转换成日元 o转换成欧元
转换后为______

保存下面的代码到一个后缀名为FRM的文件中，再用VB打开即可。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
VERSION 5.00
Begin VB.Form Form1
Caption = "人民币转换工具"
ClientHeight = 3195
ClientLeft = 60
ClientTop = 345
ClientWidth = 4680
LinkTopic = "Form1"
ScaleHeight = 3195
ScaleWidth = 4680
StartUpPosition = 3 '窗口缺省
Begin VB.OptionButton Option1
Caption = "转换成欧元"
Height = 495
Index = 3
Left = 1680
TabIndex = 4
Top = 1200
Width = 1335
End
Begin VB.OptionButton Option1
Caption = "转换成日元"
Height = 495
Index = 2
Left = 240
TabIndex = 3
Top = 1200