黑帮卧底第一季迅雷:如何用VB编程画图？

在坐标系中画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

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

方法2：
Private Sub Form_Resize()
Scale (-10, 10)-(10, -10) '重建坐标系
Line (0, -10)-(0, 10)
Line (-10, 0)-(10, 0)

For x = -10 To 10 Step 0.01 '用描点法作图
y = Sin(x)
PSet (x, y)
Next x

End Sub

可以用 PSet、Line、Circle等方法来绘图。