正弦曲线示例

正弦曲线示例正弦曲线示例: Option Explicit Dim sngXPixels As Single Private Sub Form_Click() Dim dblXMin As Doubl

正弦曲线示例 正弦曲线示例: Option Explicit Dim sngXPixels As Single Private Sub Form_Click() Dim dblXMin As Double, dblXMax As Double Dim dblYMin As Double, dblYMax As Double Dim sngt As Single Dim intI As Integer Picture1.DrawWidth =2 '设定曲线的宽度 dblXMin =0: dblXMax =10 '求出函数的极大值和极小值 dblYMin =1E+100: dblYMax =-1E+100 For intI =0 To sngXPixels sngt =dblXMin +(dblXMax -dblXMin) *_ intI /sngXPixels If Sin(sngt) >dblYMax Then dblYMax =Sin(sngt) If Sin(sngt) <dblYMin Then dblYMin =Sin(sngt) Next intI '使框略大一些，避免曲线压在图框上 dblYMax =dblYMax *102 /100: dblYMin =dblYMin *102 /100 '根据极值重新设定自定义坐标系 Picture1.Scale (dblXMin, dblYMin)-(dblXMax, dblYMax)