VB编程美元兑换人民币代码

private sub command1_click()
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

“美元到人民币”按钮的Click事件代码： my = Val(text3) rmb = my * Val(text2) text1 = rmb 其中：“兑换比率”输入的是一美元兑换的人民币值

以上是初始界面，代码如下： private sub command1_click()
??? text2.text = text1.text * 7
end sub