Vb中的函数曲线?

来源:学生作业帮助网 编辑:作业帮 时间:2024/04/27 06:27:01
Vb中的函数曲线?

Vb中的函数曲线?
Vb中的函数曲线?

Vb中的函数曲线?

  函数曲线:

  设计一个窗体,利用 Pset 方法画出函数曲线,函数式位:y=6Sin(x)+2Cos)(10x).

  程序运行结果如图所示:


  操作步骤如下:

  (1)设计窗体控件熟悉参照图:




  (2)打开“代码设计“窗口,输入程序代码

  定义窗体变量如下:


  Dim x As Double,y As Double

  Form_Load()事件代码如下:

  Private Sub Form_Load()

  Frm1.AutoRedraw=True

  Frm1.Scale(-50,100) - (50,-100)

  Line(50,0) - (-50,0)

  For x = -100 To 100 step 0.01

  y=60*Sin(x)+2*cOS(10*x)

  PSet(x,y)

  Next x

  End Sub


  (3)保存窗体,运行程序,结果如下图: