机械CADCAM课程结业技术方案.doc

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）” Builting a new project. Changing each frame Put on the program Program codes: Private Sub Form_Load() Combo1.AddItem (20d=50) Combo1.AddItem (50d=125) Combo1.AddItem (125d=280) Combo2.AddItem (20b=40) Combo2.AddItem (40b=80) Combo2.AddItem (80b=160) Combo3.AddItem (6) Combo3.AddItem (7) Combo3.AddItem (8) Combo3.AddItem (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) = 20d=50 xiala1(1) = 50d=125 xiala1(2) = 125d=280 xiala2(0) = 20b=40 xiala2(1) = 50b=125 xiala2(2) = 80b=160 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 = Combo1.Text bl2 = Combo2.Text bl3 = Combo3.Text If (bl1 = xiala1(0)) Then 20d=50 If (bl2 = xiala2(0)) Then 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