7,732
社区成员
发帖
与我相关
我的任务
分享计算问题？
我现在有三个文本框
希望，在第一个文本框输入港币，在第二个文本框中输入金钱数目，
在第三个文本框中显示换算汇率以后的金钱数目，港币的汇率是106.55
希望告诉我源代码。谢谢！
希望，在第一个文本框输入港币，在第二个文本框中输入金钱数目，
在第三个文本框中显示换算汇率以后的金钱数目，港币的汇率是106.55
希望告诉我源代码。谢谢！
...全文
请发表友善的回复…
发表回复
captainivy 2003-11-03
- 打赏
- 举报
Private Sub Command1_Click()
Select Case Combo1.Text
Case "港币"
Text2 = Val(Text1) * 汇率
Case "美元"
'加代码
End Select
End Sub
Private Sub Form_Load()
Combo1.AddItem "港币"
Combo1.AddItem "美元"
End Sub
新建工程加一个combo
两个textbox
Select Case Combo1.Text
Case "港币"
Text2 = Val(Text1) * 汇率
Case "美元"
'加代码
End Select
End Sub
Private Sub Form_Load()
Combo1.AddItem "港币"
Combo1.AddItem "美元"
End Sub
新建工程加一个combo
两个textbox
hongsongboy 2003-11-03
- 打赏
- 举报
相乘不就可以了吗
