(求助)。。。。。SOSSOS
我想在三个TEXT文件里输入三个数,然后用一个COMMAND控件做为一个运算工式,如公式为B=A+B
然后结果在另个TET中显示
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