VB：人民币兑换美元、欧元 、英镑

VB：人民币兑换美元、欧元 、英镑

Private Sub Command1_Click()
 Dim rmb As Single
 Dim x As Single, y As Single, z As Single
 rmb = Val(Text1.Text)
 x = Convert(rmb, 0.14) '人民币兑换成美元
 y = Convert(rmb, 0.12) '人民币兑换成欧元
 z = Convert(rmb, 0.11) '人民币兑换成英镑
 Label1.Caption = x & "美元"
 Label2.Caption = x & "欧元"
 Label3.Caption = z & "英镑"
End Sub
Private Function Convert(x As Single, n As Single) As Single
    If x <= 0 Or n <= 0 Then
        Exit Function
    Else
        Convert = x * n
    End If
End Function



1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21