UC知道用VB做汇率的问题
来源：百度知道 编辑：UC知道 时间：2024/05/25 23:24:56
在学校老师教了但是回来忘了
第一行有一个标签我简单列一下
今日汇率：（自己输入一个数值）
美元：（输入一个数值）
（这点是个按钮）【换算】
（最后一个标签是）人民币：（这个数值要求：今日汇率*美元）
我把我弄的错误的代码发上来：
Private Sub Command1_Click()
Dim usd As Single
Dim rmb As Single
= Val(txtra.Text)
rmb=
txtrmb.Text = rmb
End Sub
哪位大哥大姐帮帮忙啊？
第一行有一个标签我简单列一下
今日汇率：（自己输入一个数值）
美元：（输入一个数值）
（这点是个按钮）【换算】
（最后一个标签是）人民币：（这个数值要求：今日汇率*美元）
我把我弄的错误的代码发上来：
Private Sub Command1_Click()
Dim usd As Single
Dim rmb As Single
= Val(txtra.Text)
rmb=
txtrmb.Text = rmb
End Sub
哪位大哥大姐帮帮忙啊？
从上到下的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