A. 用VB编写一款货币转换程序
摆渡知道很廉价，楼上的就不要抱怨了。反正俺只是看看，乐乐罢了。
B. Vb6.0中XX美元可兑换XX元人民币要怎么编写
启动VB打开exe工程添加一个按钮输入一下代码
Private Sub Command1_Click()
On Error GoTo n
m = InputBox("请输入美元数量", "提示")
s = m * 6.2933
MsgBox m & "美元可以换" & s & "人民币", 64, "提示"
Exit Sub
n:
End Sub
C. 怎样用VB编写人民币与美元兑换程序
“美元到人民币”按钮的click事件代码：
my
=
val(text3)
rmb
=
my
*
val(text2)
text1
=
rmb
其中：“兑换比率”输入的是一美元兑换的人民币值
D. vb的汇率转换
类型不匹配（错误 13）
当前 Visual Basic为了完成数据类型的赋值，能够对许多数值进行转换，而较早的版本则做不到。然而，此错误仍可能发生并且有几种原因和解决方法。
现在需要搞清楚，这个赋值式是想做字符串拼接还是是数字增加。
E. 用VB做汇率的问题
从上到下的3个文本框的name为text1,text2,text3.
Private Sub Command1_Click()
Dim usd As Single
Dim rmb As Single
Dim huilv As Single '这是定义的汇率
huilv = Val(Text1.Text)
usd = Val(Text2.Text)
rmb = usd * huilv
Text3.Text = Str(rmb)
End Sub
F. 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
G. 求VB编程：货币兑换，输入人民币，兑换成美元，比例1：8.25
有的地方没说清楚
大概写了下
界面格式如下：
label1 [text1] label2 option1
option2
command1 command2 command3
Private Sub Command1_Click()
End
End Sub
Private Sub Command2_Click()
If Option1.Value = True Then
Label1.Caption = "美元币种"
Text1.Text = 8.25 * CDbl(Text1.Text)
End If
If Option2.Value = True Then
Label1.Caption = "港币币种"
Text1.Text = 1.15 * CDbl(Text1.Text)
End If
End Sub
Private Sub Command3_Click()
Text1.SetFocus
Text1.SelLength = (Text1)
End Sub
Private Sub Form_Load()
Command1.Caption = "退出"
Command2.Caption = "兑换"
Command3.Caption = "清除"
Option1.Caption = "美元"
Option2.Caption = "港币"
Label1.Caption = "人民币兑换"
Label2.Caption = "兑换币种"
Option1.Value = True
End Sub