感觉总有点不伦不类的 lzh741206发表于2004-4-16 22:31:00static/image/common/back.gif这两句代码你是顺序执行的么？
感觉总有点不伦不类的
<BR>
请问此话何解啊？？我好像不是很明白啊！！
这一部分是齿轮设计的功率和转矩相互求值的问题而已，
目的我只是希望用户随便填一个，另一个就会自动计算，
我现在就是希望这两句看事件的激发让其中一个执行就好了！
有什么好办法吗？？ 加个条件判断让两个Change事件只运行一个：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 谢谢，谢谢<A name=12855><FONT color=#000066><B>lzh741206</B></FONT></A>，也谢谢斑竹的帮助，谢谢大家！！
可以再帮我一下吗？？小弟不胜感激啊！！
下面有三个text，目的就是让
随便填两个那么另外一个就能出结果
我觉得应该是相互求值差不多吧，但我就不知道又错哪里了，就是没能弄出来，
可以帮我一下吗？？谢谢了！！
它们关系是：a1 / a2 = a3 你自己做做试试么
原理是一样的
实在做不出来，把你的传上来，大家改改
注意一个问题：做除法时a2或a3不能为0，否则溢出 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，应该怎么做啊？？ 你在解一元二次方程呢，这可有无数个解
解题思路有问题
Change事件里只能改一个变量的值，举个例子：
a1不变，a2随a3变化
a2不变，a1随a3变化
a3不变，a1随a2变化 也应该加个条件判断让三个Change事件只运行一个 三个或三个以上的相互求值，我觉得没什么意思了，代码麻烦不说，也添加了代码的不稳定性，建议只做两个变量的输入，另一个变量通过计算得到 …………还没想出来给怎么写比较清晰啊！
我也不想相互求值，但这是毕业设计一部分，
三个框代表2个转速和1一传动比，
我再想想吧，谢谢你的建议！！
页:
1
[2]