MechanicalCAD/CAMSingleCommonVBeltPowerQuerySystemName:StudentNo:StudentID:Expectingscore:ThetargetoftheworkIchoosetheformoftheIncrementalPowerofBV-beltasmydesigntarget.theoriginalformarelistedasfollow.Itisillustratedintheform1andform2.ThedesignisbasedonVBasatoolforquerytabledata.IwanttohaveatrytousetheMicrosoftVisualBasic,soIgetthedecisiontoaccomplishtheprojectwithVB.AndIgetthehelpmainlyfromthebook'computerAidedMechanicalDesign'byQinRuming.Method:TheprogrammingdesignbasedonVBinmechanicaldesignmanual,withthepowerformasanexample,usingthelinearinterpolationtoformdataqueryandmeasure.GetVtothebasicpowerandtheincrementofpower.表格1B型单根V带的基本功率n1/(r/min)dd1/mm125140160180200224250280单根V带的基本额定功率P12000.480.590.740.881.021.191.371.584000.841.051.321.591.852.172.502.897001.301.642.092.532.963.474.004.618001.441.822.322.813.303.864.465.139501.642.082.663.223.774.425.105.8512001.932.473.173.854.505.266.046.9014502.192.823.624.395.135.976.827.7616002.333.003.864.685.466.337.208.13n1/(r/min)i1.02~1.041.05~1.081.09~1.121.13~1.181.19~1.241.25~1.341.35~1.511.52~1.99≥2.00i≠1时额定功率的增量△P12000.010.010.020.030.040.070.050.060.064000.010.030.040.060.070.080.100.110.137000.020.050.070.100.120.150.170.200.228000.030.060.080.110.140.170.200.230.259500.030.070.100.130.170.200.230.260.3012000.040.080.130.170.210.250.300.340.3814500.050.100.150.200.250.310.360.400.4616000.060.110.170.230.280.340.390.450.51表格2B型单根V带的功率增量2.Detailedproceduresofoperation1)OpentheMicrosoftVisualBasic6.0,andthemakeanewstandard".exe"project,asillustratedinthefigure2-1andfigure2-2.Figure2-1Figure2-22)Edittheoperationinterface,thenmakesomeembellishmentforit,asillustratedinthefigure2-3tofigure2-6.Figure2-3Figure2-4Figure2-5Figure2-63)Puttheprogramsintotheforms,asillustratedinthefigure3-9tofigure2-7.Figure2-74)Outputthe'.exe'projectandsaveit,asillustratedinthefigure2-8tofigure2-9.Figure2-8Figure2-95)Input