电机设计查磁化曲线VB程序

PrivateSubCommand1_Click()DimX(),Y()DimN,a,b,i%X=Array(0,0.5,1,1.2,1.3,1.4,1.5,1.6,1.7)Y=Array(0,1.58,3.83,6.52,8.9,12.6,20.1,37.8,72)N=8a=Val(Text1.Text)Fori=0ToN-1Ifa=X(i+1)Anda=X(i)Thenb=Y(i)+(a-X(i))/(X(i+1)-X(i))*(Y(i+1)-Y(i))Text2.Text=bEndIfNextiEndSubPrivateSubCommand2_Click()Text1.Text=Text2.Text=EndSub