三角函数演示,VB6.0源代码,SelectCasei

三角函数演示,VB6.0源代码,SelectCaseiCase1Forx=0To6.282Step0.001y=Sin(2*Pi*w*x)+FiPicture1.PSet(x,y)NextxCase2Forx=0To6.282Step0.001y=Cos(2*Pi*w*x)+FiPicture1.PSet(x,y)NextxCase3Forx=0To6.282Step0.001y=Tan(2*Pi*w*x)+FiPicture1.PSet