什么情况,,求指点
已经测试,没有错误,只要在Text1.Text到Text4.Text有值就可以
Private Sub Command1_Click()
Dim a, b, c, d, x, y As Single
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
d = Val(Text4.Text)
Text5.Text = (b - d) / (c - d)
Text6.Text = b - x * a
End Sub
如果你的仍然有错误“未找到方法或数据成员”,说明你的VB有问题。
你是什么系统?追问
Private Sub Command1_Click()
Dim a, b, c, d, x, y As Single
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
d = Val(Text4.Text)
Text5.Text = (b - d) / (c - d)
Text6.Text = b - x * a
End Sub
如果你的仍然有错误“未找到方法或数据成员”,说明你的VB有问题。
你是什么系统?追问
已经可以了,,谢谢,是 win7系统
温馨提示:答案为网友推荐,仅供参考