【正文】 結的內(nèi)容根據(jù)不同學科和類型實驗要求不一樣，一般理工科類的實驗需要對實驗結果進行分析，并且對實驗過程中問題進行討論；在計算機上進行的編程、仿真性或模擬性實驗需要對上機實踐結果進行分析，上機的心得體會及改進意見。說明：各門實驗課程實驗報告的格式及內(nèi)容要求，請按照實驗指導書的要求手工書寫。驅動力與阻力平衡圖 (10, 15000)(130, 700) (8, 0)(150, 0): (0, 15000)(0, 500) 39。畫橫軸箭頭 (126, 200)(130, 0) (2, 14700)(0, 15000) 39。畫橫坐標刻度線和刻度 (10 * i, 0)(10 * i, 200) = 10 * i 2: = 50: 10 * i Next i For i = 1 To 14 39。求最高車速Uamax Next x Next nEnd SubPrivate Sub Command2_Click() 39。畫橫軸箭頭 (126, )(130, 0) (1, )(0, 5) 39。不畫加速度小于0的部分 (Ua, a), vbBlueLabel1: Next x Next nEnd SubPrivate Sub Command3_Click() 39。畫橫軸箭頭 (126, )(130, 0) (1, )(0, 5) 39。不畫1 / a (Ua, 1 / a), vbRedLabel1: Next x Next nEnd SubPrivate Sub Command4_Click() 39。畫橫軸箭頭 (126, )(130, 0) (1, )(0, 1) 39。 * i Next i = 3: = : 0 = 115: = : Ua(km/h)) = 4: = : D = 10: = : f Dim ig(4) As Single Dim D 39。不畫D小于0的部分 (Ua, D), vbBlue (Ua, f), vbRedLabel1: Next x Next nEnd SubPrivate Sub Command5_Click() 39。畫橫軸箭頭 (116, )(120, 0) (1, )(0, ) 39。不畫加速度小于0的部分 (Ua, i)Label1: Next x Next nEnd SubPrivate Sub Command6_Click() 39。畫橫軸箭頭 (48, 2)(50, 0) (1, 97)(0, 100) 39。微分法求面積 (t, Ua), vbRed Next nEnd SubPrivate Sub Command7_Click() 39。畫橫軸箭頭 (4400, 3)(4500, 0) (50, 235)(0, 240) 39。汽車功率平衡圖 (15, 75)(200, 10) (0, 0)(200, 0) (0, 0)(0, 70) (195, 2)(200, 0) 39。畫縱軸箭頭 (3, 67)(0, 70) For i = 1 To 3 (50 * i, 0)(50 * i, 2) = 50 * i 5: = : 50 * i Next i For i = 1 To 13 (0, 5 * i)(3, 5 * i) = 10: = 5 * i + 1: 5 * i Next i = 10: = 2: 0 = 170: = 4: Ua(km/h) = 5: = 70: Pe/kW = 110: = 70: (Pf+Pw)/ηt Dim Pe As Double, Pz As Double Dim ig(4) As Single ig(0) = Val(Text18) ig(1) = Val(Text19) ig(2) = Val(Text20) ig(3) = Val(Text21) ig(4) = Val(Text22) f = Val(Text6) m = Val(Text2) G = Val(Text3) * i = 0 CdA = Val(Text7) r = Val(Text4) i0 = Val(Text8) Iw = Val(Text10) + Val(Text11) ηt = Val(Text5) Ff = G * f Fi = G * i if0 = Val(Text9) For n = 600 To 4000 For x = 0 To 4 δ = 1 + (1 * Iw) / (m * r * r) + (1 * if0 * ig(x) * ig(x) * i0 * i0 * ηt) / (m * r * r) Ua = * (r * n) / (ig(x) * i0) Fw = (CdA * Ua * Ua) / Tq = + * (n / 1000) * (n / 1000) ^ 2 + * (n / 1000) ^ 3 * (n / 1000) ^ 4 Ft = (Tq * ig(x) * i0 * ηt) / r a = (Ft Ff Fw) / (δ * m) Fj = δ * m * a Pe = (G * f * Ua + G * i * Ua + CdA * Ua * Ua * Ua / + δ * m * a * Ua) / (3600 * ηt) Pz = (G * f * Ua / 3600 + CdA * Ua * Ua * Ua / 76140) / ηt If Pz 70 Then GoTo Label1 39。實驗總結注解：實驗總結的內(nèi)容根據(jù)不同學科和類型實驗要求不一樣，一般理工科類的實驗需要對實驗結果進行分析，并且對實驗過程中問題進行討論；在計算機上進行的編程、仿真性或模擬性實驗需要對上機實踐結果進行分析，上機的心得體會及改進意見。說明：各門實驗課程實驗報告的格式及內(nèi)容要求，請按照實驗指導書的要求手工書寫。最高擋百公里耗油量 Dim n(1 To 8), B0(1 To 8), B1(1 To 8), B2(1 To 8), B3(1 To 8), B4(1 To 8) (20, 35)(150, 5) (0, 0)(140, 0) (0, 0)(0, 32) (135, 1)(140, 0) 39。畫縱軸箭頭 (2, 31)(0, 32) For i = 1 To 6 39。畫縱坐標刻度線和刻度 (0, 3 * i)(3, 3 * i) = 10: = 3 * i + : 3 * i Next i = 0: = 1: 0 = 120: = 3: Ua/(km/h) = 4: = 32: Qs/[L/(100km)] n(1) = 815: n(2) = 1207: n(3) = 1614: n(4) = 2012: n(5) = 2603: n(6) = 3006: n(7) = 3403: n(8) = 3804 B0(1) = : B0(2) = : B0(3) = : B0(4) = : B0(5) = 1141: B0(6) = : B0(7) = : B0(8) = B1(1) = : B1(2) = : B1(3) = : B1(4) = : B1(5) = : B1(6) = : B1(7) = : B1(8) = B2(1) = : B2(2) = : B2(3) = : B2(4) = : B2(5) = : B2(6) = : B2(7) = : B2(8) = B3(1) = : B3(2) = : B3(3) = : B3(4) = : B3(5) = : B3(6) = : B3(7) = : B3(8) = B4(1) = : B4(2) = : B4(3) = : B4(4) = : B4(5) = : B4(6) = : B4(7) = : B4(8) = g = 3880 * f = CdA = ηt = i0 = r = Uamin = * r * n(1) / ( * i0) Qmin = 100 For ua = Uamin To 100 Step Pe = (g * f * ua / 3600 + CdA * ua ^ 3 / 76140) / ηt nn = * i0 * ua / ( * r) For i = 1 To 7 If nn = n(i) And nn = n(i + 1) Then B_0 = B0(i) + (B0(i + 1) B0(i)) * (nn n(i)) / (n(i + 1) n(i)) B_1 = B1(i) + (B1(i + 1) B1(i)) * (nn n(i)) / (n(i + 1) n(i)) B_2 = B2(i) + (B2(i + 1) B2(i)) * (nn n(i)) / (n(i + 1) n(i)) B_3 = B3(i) + (B3(i + 1) B3(i)) * (nn n(i)) / (n(i + 1) n(i)) B_4 = B4(i) + (B4(i + 1) B4(i)) * (nn n(i)) / (n(i + 1) n(i)) End If Next i Be = B_0 + B_1 * Pe + B_2 * Pe ^ 2 + B_3 * Pe ^ 3 + B_4 * Pe ^ 4 Qs = Pe * Be / ( * 7 * ua) (ua, Qs), vbBlue If Qs Qmin Then Qmin = Qs Uj = ua End If Next ua = Format(Uj, .) = Format(Qmin, .)End SubPrivate Sub Command2_Click() 39。 (135, 1)(140, 0) 39。 (135, 1)(140, 0) 39。畫縱軸箭頭 39。畫橫坐標刻度線和刻度 (5 * i, 0)(5 * i, ) = 5 * i : = : 5 * i Next i For i = 1 To 8 39。39。3