今天老师第一次布置了让我们自己编程的作业，前几个还算应手，可是编导这一个，突然怎么都不完美了，结果现在，更是差劲~~
题目如下：
货币兑换 将输入的人民币金额按指定的要求兑换为美元或港币，美元和人民币兑换币为1：8.25，人民币和港币兑换币比为1：1.15
要求——应用程序窗体如图；程序运行时和单击“清除”按钮后，光标自动停在“人民币金额”文本框中；程序运行是默认币种为美元。
我编的代码如下：
Private Sub CmdClear_Click()
TxtPutin.Text = ""
TxtPutout.Text = "请输入金额"
TxtPutin.SetFocus
End Sub
Private Sub CmdExit_Click()
End
End Sub
Private Sub LblExchange_Click()
Dim r As Single, m As Single
Const US As Single = 8.25, HK As Single = 1.15
r = Val(TxtPutin.Text)
If OptUS.Value Then
m = r / US
TxtPutout = Str(m)
ElseIf OptHK.Value Then
m = r / HK
TxtPutout = Str(m)
End If
End Sub
Private Sub OptHK_Click()
If OptHK.Value Then LblMoney.Caption = "港币金额"
LblMoney.Refresh
End Sub
Private Sub OptUS_Click()
If OptUS.Value Then LblMoney.Caption = "美元金额"
LblMoney.Refresh
End Sub
现在出现的问题是，当我按“兑换”时，应该显示兑换金额的文本框中什么都没有，这是为什么呢？
想这个问题一晚上了，还是不明白，请各位英雄豪杰帮我这个菜鸟解答一下吧~~~
谢谢喽~~~
