Question

Vb中的函数曲线？

Vb中的函数曲线？

Answer 1

　　函数曲线：

　　设计一个窗体，利用 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)保存窗体，运行程序，结果如下图：

追问

谢谢了，有点详细，还带图呢～