Use VB to write the RMB exchange rate

Save the following code to a file named FRM, and then open it with VB.
============
Version
5.00
Begin
vb.form
form1 r
= n = n = n = n = n = n = n = n = n = n = n = n = n = n = n R n "RMB conversion tool"

=
3195

=
60
clienttop
=
345

=
4680
linktopic
=
"form1"

=
3195
= r
4680

=
3
Window default
begin
vb.
Option1
caption
=
"conversion The euro "
height
=
495
index
=
3
left n =
1680
tabindex n =
4
top
=
1200
width
=
1335 r
Begin
vb. ncaption
=
"Converted into the yen"
height
=
495
index
=
2 nleft
=
240
tabindex
=
3
top
=
1200
Width
= n1215
end
Begin
vb.
ot
caption
=
$ "form2.frx": 0000
height
=
495
index
=
1
left
=
1680
tabindex
=
2
top
= n720
width
=
1335 r r
Begin
vb. r
caption
= n "" convert to the US dollar "
height
=
495
index
=
0
left
=
240
tabindex
= n1 r r
top
=
720
width
=
1215
end
Begin
vb.textbox
text1
height
=
375
left n = n240
tabindex r r r r r r r r r r n =
0
top
=
120
width
=
1455 r
Begin
vb.label1
height
=
375
left
=
480
tabindex
=
5 ntop
=
1800
width
=
3015 r r r
attribute
vb_name n = n "form1"
attribute r r r r r r r r r r r r r r r r nvb_
=
false
attribute
VB_CREATABLE n =
false
attribute
vb_
true
attribute
VB_EXPOSED
=
false r region
explicit
private
Sub
otTion1_clICK (index r
integer)
as
single
t
=
val (text1.text)
label1.caption
=
(chEX

1,
t
/
7.7,
t
/
15.47, r
/
0. 081,
t
/
10.8),
,
vbtrue)
end
sub