机械CADCAM课程结业报告.doc

《机械CADCAM课程结业报告.doc》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、ReportofProcessingforLineGraphorTableName:曾小贤NO.:123456ExpectedScore:85IntroductionofLineGraphorTable:“Helicalgearhelixtolerancevalues（U：um）”ReferenceDiameterd/mm20

2、6121417131517716192317202418212582327322428332529359323846343947364149MicrosoftVisualBasic6.0.Builtinganewproject.ChangingeachframePutontheprogramProgramcodes:PrivateSubForm_Load()Combo1.AddItem("20

3、tem("20

4、sDoublexiala1(0)="20

5、tor桌面螺旋线公差值.txt"ForInputAs#FileNoFori=0To4Forj=0To9Input#FileNo,indata(i,j)NextjNextiClose#FileNoDimbl1AsStringDimbl2AsStringDimbl3AsStringbl1=Combo1.Textbl2=Combo2.Textbl3=Combo3.TextIf(bl1=xiala1(0))Then'20

6、ndIfIf(bl3=xiala3(1))Thena=indata(0,1)EndIfIf(bl3=xiala3(2))Thena=indata(0,2)EndIfIf(bl3=xiala3(3))Thena=indata(0,3)EndIfEndIfIf(bl2=xiala2(1))ThenIf(bl3=xiala3(0))Thena=indata(1,0)EndIfIf(bl3=xiala3(1))Thena=indata(1,1)EndIfIf(bl3=xiala3(2))Thena=indata(1,2)EndIfIf(bl3=x

7、iala3(3))Thena=indata(1,3)EndIfEndIfIf(bl2=xiala2(2))ThenIf(bl3=xiala3(0))Thena=indata(2,0)EndIfIf(bl3=xiala3(1))Thena=indata(2,1)EndIfIf(bl3=xiala3(2))Thena=indata(2,2)EndIfIf(bl3=xiala3(3))Thena=indata(2,3)EndIfEndIfIf(bl2=xiala2(3))ThenIf(bl3=xiala3(0))Thena=indata(3,0

8、)EndIfIf(bl3=xiala3(1))Thena=indata(3,1)EndIfIf(bl3=xiala3(2))Thena=indata(3,2)EndIfIf(bl3=xiala