[求助]关于相互求值，简单问题请教！！

雪山飞狐_lzh

这两句代码你是顺序执行的么？


感觉总有点不伦不类的

loozhi

lzh741206发表于2004-4-16 22:31:00这两句代码你是顺序执行的么？ 感觉总有点不伦不类的

请问此话何解啊？？我好像不是很明白啊！！ 这一部分是齿轮设计的功率和转矩相互求值的问题而已， 目的我只是希望用户随便填一个，另一个就会自动计算， 我现在就是希望这两句看事件的激发让其中一个执行就好了！ 有什么好办法吗？？

雪山飞狐_lzh

加个条件判断让两个Change事件只运行一个：

2. Private Judge As Boolean
3. Private Sub Text1_Change()
4. If Judge Then
5.        Judge = False
6.        If IsNumeric(Me.Text1) Then
7.                Me.Text2 = Me.Text1 * 9550 / 450
8.        Else
9.                Me.Text2 = 0
10.        End If
11.        Judge = True
12. End If
13. End Sub
14. Private Sub Text2_Change()
15. If Judge Then
16.        Judge = False
17.        If IsNumeric(Me.Text2) Then
18.                Me.Text1 = Me.Text2 * 450 / 9550
19.        Else
20.                Me.Text1 = 0
21.        End If
22.        Judge = True
23. End If
24. End Sub
25. Private Sub UserForm_Initialize()
26.        Judge = True
27. End Sub

Private Judge As Boolean Private Sub Text1_Change() If Judge Then        Judge = False        If IsNumeric(Me.Text1) Then                Me.Text2 = Me.Text1 * 9550 / 450        Else                Me.Text2 = 0        End If        Judge = True End If End Sub Private Sub Text2_Change() If Judge Then        Judge = False        If IsNumeric(Me.Text2) Then                Me.Text1 = Me.Text2 * 450 / 9550        Else                Me.Text1 = 0        End If        Judge = True End If End Sub Private Sub UserForm_Initialize()        Judge = True End Sub

loozhi

谢谢，谢谢lzh741206，也谢谢斑竹的帮助，谢谢大家！！ 可以再帮我一下吗？？小弟不胜感激啊！！ 下面有三个text，目的就是让 [glow=255,yellow,2]随便填两个那么另外一个就能出结果[/glow] 我觉得应该是相互求值差不多吧，但我就不知道又错哪里了，就是没能弄出来， 可以帮我一下吗？？谢谢了！！ 它们关系是：[glow=255,yellow,2]a1 / a2 = a3[/glow]

雪山飞狐_lzh

你自己做做试试么



原理是一样的


实在做不出来，把你的传上来，大家改改


注意一个问题：做除法时a2或a3不能为0，否则溢出

loozhi

2. Private Sub Text1_Change()
3.    If IsNumeric(Text1) And IsNumeric(Text2) Then
4.        Text3 = Text1 / Text2
5.    ElseIf IsNumeric(Text1) And IsNumeric(Text3) Then
6.        Text2 = Text1 / Text2
7.    Else
8.        Text2 = ""
9.        Text3 = ""
10.    End If
11. End Sub Private Sub Text2_Change()
12.    If IsNumeric(Text1) And IsNumeric(Text2) Then
13.        Text3 = Text1 / Text2
14.    ElseIf IsNumeric(Text2) And IsNumeric(Text3) Then
15.        Text1 = Text2 * Text3
16.    Else
17.        Text1 = ""
18.        Text3 = ""
19.    End If
20. End Sub Private Sub Text3_Change()
21.    If IsNumeric(Text1) And IsNumeric(Text3) Then
22.        Text2 = Text1 / Text3
23.    ElseIf IsNumeric(Text2) And IsNumeric(Text3) Then
24.        Text1 = Text2 * Text3
25.    Else
26.        Text1 = ""
27.        Text2 = ""
28.    End If
29. End Sub

Private Sub Text1_Change()    If IsNumeric(Text1) And IsNumeric(Text2) Then        Text3 = Text1 / Text2    ElseIf IsNumeric(Text1) And IsNumeric(Text3) Then        Text2 = Text1 / Text2    Else        Text2 = ""        Text3 = ""    End If End Sub Private Sub Text2_Change()    If IsNumeric(Text1) And IsNumeric(Text2) Then        Text3 = Text1 / Text2    ElseIf IsNumeric(Text2) And IsNumeric(Text3) Then        Text1 = Text2 * Text3    Else        Text1 = ""        Text3 = ""    End If End Sub Private Sub Text3_Change()    If IsNumeric(Text1) And IsNumeric(Text3) Then        Text2 = Text1 / Text3    ElseIf IsNumeric(Text2) And IsNumeric(Text3) Then        Text1 = Text2 * Text3    Else        Text1 = ""        Text2 = ""    End If End Sub

帮忙修改一下好吗？？还有那个a2，a3不能为0，应该怎么做啊？？

雪山飞狐_lzh

你在解一元二次方程呢，这可有无数个解



解题思路有问题


Change事件里只能改一个变量的值，举个例子：


a1不变，a2随a3变化


a2不变，a1随a3变化


a3不变，a1随a2变化

雪山飞狐_lzh

也应该加个条件判断让三个Change事件只运行一个

雪山飞狐_lzh

三个或三个以上的相互求值，我觉得没什么意思了，代码麻烦不说，也添加了代码的不稳定性，建议只做两个变量的输入，另一个变量通过计算得到

loozhi

…………还没想出来给怎么写比较清晰啊！


我也不想相互求值，但这是毕业设计一部分，


三个框代表2个转速和1一传动比，


我再想想吧，谢谢你的建议！！