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