爱问知识人 爱问教育 医院库

如何VB6.0编辑一个堰闸推流程?

首页

如何VB6.0编辑一个堰闸推流程?

如何VB6.0编辑一个堰闸推流程序

提交回答

全部答案

    2014-01-17 17:01:10
  •   请采纳我的答案。
      
    只能穷举,但要你输入集合 ,我这里就是 minX to maxX ,minY to maxY minZ to maxZ 了 不一定都能得到值 三式相加 结果为 x1^2+x2^2+x3^2+y1^2+y2^2+y3^2+z1^2+z2^2+z3^2+3*(x^2+y^2+z^2)-2*x*(x1+x2+x3)-2*y*(y1+y2+y3)-2*z*(z1+z2+z3)=r1+r2+r3 程序上整理一下就是 '3*(x^2+y^2+z^2)-2*x*(x1+x2+x3)-2*y*(y1+y2+y3)-2*z*(z1+z2+z3)=r1+r2+r3-( x1^2+x2^2+x3^2+y1^2+y2^2+y3^2+z1^2+z2^2+z3^2) dim t1,t2,t3,t4 t1=r1+r2+r3-( x1^2+x2^2+x3^2+y1^2+y2^2+y3^2+z1^2+z2^2+z3^2) t2=x1+x2+x3 t3=y1+y2+y3 t4=z1+z2+z3 '3*(x^2+y^2+z^2)-2*x*t2-2*y*t3-2*z*t4=t1 dim t =true for x=minX to maxX for y=minY to maxY for z=minZ to maxy if (3*(x^2+y^2+z^2)-2*x*t2-2*y*t3-2*z*t4=t1) then msgbox("x=" & x & "y=" & y & "z=" & z) end if next next next。

    哥***

    2014-01-17 17:01:10

相关推荐

正在加载...
最新问答 推荐信息 热门专题 热点推荐
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200

热点检索

  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 172-191
返回
顶部
帮助 意见
反馈

确定举报此问题

举报原因(必选):