我想在三个TEXT文件里输入三个数，然后用一个COMMAND控件做为一个运算工式，如公式为B＝A＋B

然后结果在另个TET中显示

倒,你下次把问题说清楚可以吗?
你的问题真的让人摸不着头脑...
private sub command1_click()
a=val(text1.text)
b=val(text2.text)
b=a+b
text3.text=str$(b)
end sub

不是这样的,请把问题说清楚...

对，就这们

只是我想还在一个文本里显示结果

怎么写

那把最后一句的 text3.text=str$(b)改为 text2.text=str$(b)就可以了.
不知道是不是要这个目的.

结果是要显示在第四个文本框里的，不是上面的三个，是我另外建的一个

非常　感谢　

str$(b)中$是么，如果我结果不此一个呢

最后比如我有多个结果，想多行输出怎么设

Jgtxt.Text = Str$("劳模：Fl" & "普通：Fp" & "无房户：Pw")

我要输出的结果是这个，怎么提示说　类型　不匹配

那是怎么回事！！！

Jgtxt.Text = "劳模：" + CStr(Fl) & "&"劳模：" + CStr(Fl)
我怎样能让"劳模：" + CStr(Fl)



"劳模：" + CStr(Fl)

分行显示啊

Option Explicit
Dim Gz
Dim Gl
Dim Gp
Dim Gw
Dim Pp
Dim Fy
Dim Pl
Dim pw
Dim Fl
Dim Fp
Dim Fw
Dim Pt

Private Sub Cmd1_Click()
Gz = Gl + Gp + Gw
Pl = Pp + 0.1
Pt = Pp
pw = Pp + 0.05
Pp = (Fy - "( 0.1)" * Gl - "(0.05)" * Gw) / Gz
Fl = Gl * Pl
Fp = Gp * Pp
Fw = Gw * pw
Jgtxt.Text = "劳模：" + CStr(Fl) & "普通：" + CStr(Fp) & "无房户：" + Str$(Fw)

End Sub

Private Sub Gltxt_Change()
Gl = Val(Gltxt.Text)
Gltxt.Text = Gl
End Sub

Private Sub Gptxt_Change()
Gp = Val(Gptxt.Text)
Gptxt.Text = Gp
End Sub

Private Sub Gwtxt_Change()
Gw = Val(Gwtxt.Text)
Gwtxt.Text = Gw
End Sub

Private Sub Gztxt_Change()
Gz = Val(Gztxt.Text)
Gztxt.Text = Gz
End Sub