文档介绍：利用VB绘制凸轮轮廓曲线及计算相关直角坐标和压力角VB程序语言如下:mand1_Click()'参数初始化Dimr0%,r1%,h%,e%Dima1%,a01%,a2%,a02%r0=Val(InputBox("请输入基圆半径"))r1=Val(InputBox("请输入滚子半径"))h=Val(InputBox("请输入升程"))e=Val(InputBox("请输入偏距"))a1=Val(InputBox("请输入推程运动角"))a01=Val(InputBox("请输入远休止角"))a2=Val(InputBox("请输入回程运动角"))a02=Val(InputBox("请输入近休止角"))========(-75,55)-(75,-55)'(0,50)-(0,-50)(-55,0)-(55,0)'初始化参数Dimi!,j!,k!,m!,n!,l!Dima!,b!,c!,d!,f!Constpi=#(360),s1#(360)Dimds#(360),ds1#(360)Dimdx#(360),dy#(360)a=a1b=a1+a01c=a1+a01+a2/2d=a1+a01+a2f=360j=0Fori=0Toa'推程段s(j)=h*(1-Cos(pi*i/a1))/2ds(j)=h*pi*Sin(pi*i/a1)/(2*a1)ds1(j)=ds(j)/2s1(j)=s(j)/2'按比例定义参数值j=j+1NextiFori=(a+1)Tob'远休段s(j)=hds(j)=0ds1(j)=0s1(j)=s(j)/2j=j+1NextiFori=(b+1)Toc'回程等减速段s(j)=h-2*h*(i-a1-a01)^2/(a2^2)ds(j)=-4*h*(i-a1-a01)/(a2^2)ds1(j)=ds(j)/2s1(j)=s(j)/2j=j+1NextiFori=(c+1)Tod'回程等加速段s(j)=2*h*(a1+a01+a2-i)^2/(a2^2)ds(j)=-4*h*(a1+a01+a2-i)/(a2^2)ds1(j)=ds(j)/2s1(j)=s(j)/2j=j+1NextiFori=(d+1)Tof'近休段s(j)=0ds(j)=0ds1(j)=0s1(j)=s(j)/2j=j+1Nexti'初始化参数'DimX0#,Y0#,X1#,Y1#,X2#,Y2#DimX11#,Y12#,X21#,Y22#Dime1#,r#,p#,q#,r11#Dims0#,a3#,a03#,a13#'按比例定义参数值'e1=e/2r=r0/2r11=r1/2s0=Sqr(r^2-e1^2)Fori=1To360dx(i)=(ds1(i)-e)*Sin(i*pi/180)+(s0+s1(i))*Cos(i*pi/180)dy(i)=(ds1(i)-e)*Cos(i*pi/180)-(s0+s1(i))*Sin(i*pi/180)Nexti'输出理