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