求此程序的VB代码

来源：百度知道 编辑：UC知道 时间：2024/06/14 08:42:44
如下边图，求这个程序的VB代码。
人民币与美元换算的程序。
要求在TEXT1里输入人民币，在TEXT2里输入汇率，在TEXT3里显示相应的美元值。
在TEXT3里输入美元，在TEXT2里输入汇率，在TEXT1里显示相应的人民币值。
在线等。。

Private Sub Command1_Click()
Text1 = "" '清屏
Text2 = ""
Text3 = ""
End Sub

Private Sub Command2_Click() '人民币--美元
If Val(Text2) = 0 Or Text2 = "" Then
MsgBox "汇率不能为0 或者 空", vbCritical
Text2.SetFocus
Else
Text3 = Val(Text1) / Val(Text2)
End If
End Sub

Private Sub Command3_Click() '美元--人民币
Text1 = Val(Text3) * Val(Text2)
End Sub

Private Sub Command4_Click()
End '结束
End Sub