刚看到你的贴子,帮你做了个小程序,代码如下:
Private Sub Command1_Click()
Dim a As Single, b As Single, c As Single, d As Single
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
d = a / b * c
Text4.Text = d
End Sub
Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
End Sub
Private Sub Command3_Click()
End
End Sub
a,b,c相对x,y,z
已测试通过,给点分吧!
[
本帖最后由 曙光电子 于 2012-10-12 21:02 编辑 ]