dim m as single,r as single,h as single
m=val(text1.text) '美元数量
h=8.099 '汇率
r=m*h '换算
label1.caption=Format (r, "#.##") '显示兑换的人民币数量
end sub
代购不赚钱吗?免费给你的?肯定要加差价的啊.在者,汇率是波动的.不是固定的.今天是6.1明天可能就是6.5后天可能就5.5呢.按照汇率来计算还是赔钱的呢.要不就自己自乐天上或者亚马逊上买.# 设置人民币与美元的汇率exchange_rate = 6.74
# 输入函数
money_str = input("您好，请您输入含有rmb（人民币），usa(美元)的字母的金额：")
print("您输入的金额为：", money_str)
# 截取的输入单位
unit = money_str[-3:]
print("您截取的单位为：", unit)
if unit == "rmb":
# 截取输入函数的数值
rmb_str_value = money_str[:-3]
# 字符型数据转化为浮点型数据
rmb_float = float(rmb_str_value)
# 计算两者的汇率
usa = rmb_float / exchange_rate
# 输出函数
print("经过换算后的美元金额为：", usa)
elif unit == "usa":
# 截取输入函数的数值
usa_str_value = money_str[:-3]
# 字符型数据转化为浮点型数据
usa_float = float(usa_str_value)
# 计算两者的汇率
rmb = usa_float * exchange_rate
# 输出函数
print("经过换算后的人民币金额为：", rmb)
else:
print("您输入的格式有错误，请关闭之后重新输入！
