VB编程美元兑换人民币代码private sub command1_click()dim m as single,r as single,h as singlem=val(text1.text)'美元数量h=8.099 '汇率r=m*h&2023-02-21JavaScript140