各位大侠，求VB代码，谢谢

作业？
自己多试着做，能够完成。

[ 本帖最后由 lianyicq 于 2015-4-23 13:55 编辑 ]

不是作业，我在编个齿轮程序，挂轮值求出来了。根据挂轮值选择挂轮，用到这个程序，求高手指点，谢谢

很基础的
For i = 0 To 100
  If Abs(table(i) - a) < 0.0005 Then
     Debug.Print i
     Exit For
  End If
Next

满足要求，自己考虑找最接近a的。

谢谢，是要求A/B*C/D，比如根据常数选择了四个数，然后输出，比如:45/36*75/68

谢谢，是要求A/B*C/D，比如根据常数选择了四个数，然后输出，比如:45/36*75/68

根据已知的a，选择四个数A,B,C,D使得A/B*C/D-a在正负0.0005以内？
越看越糊涂，举个例吧。

比如A/B*C/D=0.53，ABCD分别从1-100选择实数（整数)，然后程序自由组合选择，比如最终结果出择为A为38,B为73,C为86,D为57，然后输出(38/73)*(86/57)

比较10的8次方次
k = 0.53
For a = 1 To 100
For b = 1 To 100
For c = 1 To 100
For d = 1 To 100
  If Abs(a / b * c / d - k) < 0.0005 Then Debug.Print a & "/" & b & "*" & c & "/" & d & "=" & a / b * c / d
Next
Next
Next
Next
注意a/b*c/d取值范围是0.0001至10000。a值最小是0.0001-0.0005,最大是10000.0005。
由(a/b*c/d)<k±e (e是误差)可推得a的取值范围，再考虑a为1至100。可以减小a的取值区间，减少比较次数。

[ 本帖最后由 lianyicq 于 2015-4-23 17:14 编辑 ]

非常感谢大侠！谢谢，辛苦了！