如何用VB编程画图？

来源：百度知道 编辑：UC知道 时间：2024/05/09 04:24:41
就是STEP什么的！

在坐标系中画y= Sin(x)函数曲线 p107

方法1：

Private Sub Form_Resize()

Form1.Caption = "y=sin(x)" '修改窗体标题

Const pi As Single = 3.14159 '常量声明

Scale (-360, 360)-(360, -360) '定义坐标系

Line (-360, 360)-(360, -360), RGB(200, 200, 255), BF '画矩形框，作为坐标区域

Line (0, -360)-(0, 360) '画纵轴

Line (-360, 0)-(360, 0) '画横轴

Form1.DrawWidth = 1 '设置画线宽度

PSet (-360, 100 * Sin(int1 / 180 * pi)) '设置画图起点

For int1 = -360 To 360 Step 1 '控制角度值

int2 = Sin(int1 / 180 * pi) '计算正弦值

Line -(int1, 100 * int2), RGB(0, 0, 255) '画小线段，100用于放大纵轴取值

Next

End Sub

--------------------------------------------------------