计算问题?

jizehao1 2003-11-03 07:59:57
我现在有三个文本框

希望,在第一个文本框输入港币,在第二个文本框中输入金钱数目,

在第三个文本框中显示换算汇率以后的金钱数目,港币的汇率是106.55


希望告诉我源代码。谢谢!
...全文
32 2 打赏 收藏 转发到动态 举报
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
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
hongsongboy 2003-11-03
  • 打赏
  • 举报
回复
相乘不就可以了吗

7,768

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧