如何用VB画抛物线

答案:2 悬赏:80

解决时间 2021-02-18 12:43

提问者网友：放荡不羁
2021-02-18 09:03

需要在VB的picture中画一个抛物线，请高手指点。

最佳答案

二级知识专家网友：情战辞言
2021-02-18 09:18

仅画出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

全部回答

1楼网友：我的任性你不懂
2021-02-18 10:30

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

我要举报

如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！