(参考)西华大学汽车理论实验报告.docVIP

交通与汽车工程学院 实 验 报 告 课 程 名 称: 汽车理论A 课 程 代 码: 8244880 年级/专业/班: 2009级车辆工程汽电4班 学 生 姓 名: 龙 强 学 号: 312009080306530 实验总成绩: 任 课 教 师: 吴 涛 开 课 学 院: 交通与汽车工程学院 实验中心名称: 汽车交通实验中心 西华大学实验报告 开课学院及实验室： 实验时间： 年 月 日 学 生 姓 名 龙强 学 号 312009080306530 实 验 成 绩 课 程 名 称 课 程 代 码 实验项目名称 项 目 代 码 指 导 教 师 项 目 学 分 1、实验目的 2、实验设备、仪器及材料 3、实验内容 3.1 一般实验（非上机实验）： 3.1.1实验方案设计与选择（设计性、创新性实验需写该项内容） 3.1.2实验原理及实验步骤（实验工作原理或实验的主要操作过程） 3.1.3实验记录（核心代码及调试过程） 3.2 上机实验： 3.2.1上机内容程序过程中出现的问题及解决方法 程序的结果Option Explicit Dim n, x, c Dim Tq, ig, δ Dim f, G Dim m, i, CdA, r Dim i0, Ua, Iw, if0 Dim ηt, a Dim Ft, Ff, Fi Dim Fx, Fw, Fj Private Sub Command1_Click() 驱动力与阻力平衡图 Picture1.Cls Picture1.Scale (-10, 15000)-(130, -700) Picture1.Line (-8, 0)-(150, 0): Picture1.Line (0, 15000)-(0, -500) 画坐标轴 Picture1.Line (126, -200)-(130, 0) 画横轴箭头 Picture1.Line (126, 200)-(130, 0) Picture1.Line (-2, 14700)-(0, 15000) 画纵轴箭头 Picture1.Line (2, 14700)-(0, 15000) For i = 1 To 12 画横坐标刻度线和刻度 Picture1.Line (10 * i, 0)-(10 * i, 200) Picture1.CurrentX = 10 * i - 2: Picture1.CurrentY = -50: Picture1.Print 10 * i Next i For i = 1 To 14 画纵坐标刻度线和刻度 Picture1.Line (0, 1000 * i)-(2, 1000 * i) Picture1.CurrentX = -8: Picture1.CurrentY = 1000 * i + 400: Picture1.Print 1 * i Next i Picture1.CurrentX = -5: Picture1.CurrentY = -50: Picture1.Print 0 Picture1.CurrentX = 115: Picture1.CurrentY = 700: Picture1.Print Ua(km/h) Picture1.CurrentX = 5: Picture1.CurrentY = 14600: Picture1.Print F(kN) Picture1.CurrentX = 5: Picture1.CurrentY = 1000: Picture1.Print Ff Picture1.CurrentX = 120: Picture1.CurrentY = 3000: Picture1.Print Ff+Fw Dim ig(4) As Single ig(0) = Val(Text18) ig(1) = Val(Text19) ig(2) = Val(Tex