高校问答关于描写眼睛的诗句:如何用VB画抛物线
来源：百度文库 编辑：高校问答 时间：2024/05/03 08:00:25
需要在VB的picture中画一个抛物线，请高手指点。
并能详细讲解一下。
并能详细讲解一下。
仅画出X,Y坐标轴和抛物线示意图:
Option Explicit
Dim j As Single
Dim record(1000) As Single
Dim p As Single
Private Sub Command1_Click()
p = 4
Picture1.Cls
Picture1.Scale (-200, 2000)-(2000, -2000) '定义坐标
For j = 0 To 250
record(j) = 20 * Sqr(2 * p * j) '抛物线公式Y^=2 * p * X
Picture1.Line (j * 20, record(j) + 2)-(j * 20, record(j) - 2), vbRed, BF 'Y为正的
Picture1.Line (j * 20, -record(j) + 2)-(j * 20, -record(j) - 2), vbRed, BF 'Y为负的
Next
Picture1.Line (-2000, 0)-(2000, 0)'X轴
Picture1.Line (0, 2000)-(0, -2000)'Y轴
End Sub