如何VB6.0编辑一个堰闸推流程?
如何VB6.0编辑一个堰闸推流程序
请采纳我的答案。
只能穷举,但要你输入集合 ,我这里就是 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。
答:编写一个学生成绩管理系统,该系统能完成如下功能:(1) 用户登录(管理员、课任教师、学生);(2) 学生基本信息和课任教师的信息输入(管理员);(3) (课任教...详情>>