机械课程结业报告
- 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。
Report of Processing for Line Graph or Table
Name:曾小贤NO.:123456 Expected Score:85
Introduction of Line Graph or Table:
“Helical gear helix tolerance values(U:um)”
Reference
Diameter d/mm
20 Tooth Breadth b/mm 20~40 40~ 80 80~ 160 20~4040~ 80 80~ 160 20~4040~ 80 80~ 160 Accuracy Class 6 11 13 16 12 14 1 7 13 15 17 7 16 19 23 17 20 24 18 21 25 8 23 27 32 24 28 33 25 29 35 9 32 38 46 34 39 47 36 41 49 Microsoft Visual Basic . Builting a new project. Changing each frame Put on the program Program codes: Private Sub Form_Load() ("20 ("50 ("125 ("20 ("40 ("80 ("6") ("7") ("8") ("9") End Sub Private Sub Command1_Click() Dim a As Double Dim xiala1(0 To 2) As String Dim xiala2(0 To 2) As String Dim xiala3(0 To 3) As String Dim indata(9, 4) As Double xiala1(0) = "20 xiala1(1) = "50 xiala1(2) = "125 xiala2(0) = "20 xiala2(1) = "50 xiala2(2) = "80 xiala3(0) = "6" xiala3(1) = "7" xiala3(2) = "8" xiala3(3) = "9" Dim FileNo As Integer FileNo = FreeFile() Dim str As String Open "C:\Documents and Settings\Administrator\桌面\螺旋线公差值.txt" For Input As #FileNo For i = 0 To 4 For j = 0 To 9 Input #FileNo, indata(i, j) Next j Next i Close #FileNo Dim bl1 As String Dim bl2 As String Dim bl3 As String bl1 = bl2 = bl3 = If (bl1 = xiala1(0)) Then '20 If (bl3 = xiala3(0)) Then a = indata(0, 0) End If If (bl3 = xiala3(1)) Then a = indata(0, 1) End If If (bl3 = xiala3(2)) Then a = indata(0, 2) End If If (bl3 = xiala3(3)) Then a = indata(0, 3) End If End If If (bl2 = xiala2(1)) Then If (bl3 = xiala3(0)) Then a = indata(1, 0) End If If (bl3 = xiala3(1)) Then a = indata(1, 1) End If If (bl3 = xiala3(2)) Then a = indata(1, 2) End If If (bl3 = xiala3(3)) Then a = indata(1, 3) End If End If If (bl2 = xiala2(2)) Then If (bl3 = xiala3(0)) Then a = indata(2, 0) End If If (bl3 = xiala3(1)) Then a = indata(2, 1) End If If (bl3 = xiala3(2)) Then a = indata(2, 2)