用微型机确保齿轮的作业

　　程序由于篇幅的限制本文只给出z161时的主程序，z>161时的程序只须改变几个关键参数即可。分齿挂轮a的选择范围机床齿轮库中的齿轮z=Val(Text1(0)。Text)输入被加工齿轮的参数m=Val.Text)IfText1(j)。

　　Text=ThenBeepMsgBox请输入齿轮参数，48，提示框(g)程序流程图w=zmodg)10得到分齿挂轮dg(h)Casew<>0Picture4.Print(2z)/g(h)得到分齿挂轮得到分齿挂轮bPicture6.Printf(l)

　　得到分齿挂轮得到差动挂轮的参考值)得到差动挂轮例如：输入z=35、m=2.5、=70、k=1得到的分齿挂轮a=40、b=35、c=30、d=50得到的差动挂轮a1=80、b1=60、c1=30、d1=90分别满足上述各项条件。

　　结论VB6.0是面向对象的程序语言，用它开发的程序界面友好，便于操作，而且维修方便。本程序经过多次实验效果良好，程序 显著的特点是能给出多种选择方案，这样就可以根据使用条件选择 结果。不仅保证了加工质量，而且在实验教学中取得了良好的效果。