如何用VB画抛物线

仅画出X,Y坐标轴和抛物线示意图:

创新互联公司-专业网站定制、快速模板网站建设、高性价比南关网站开发、企业建站全套包干低至880元,成熟完善的模板库,直接使用。一站式南关网站制作公司更省心,省钱,快速模板网站建设找我们，业务覆盖南关地区。费用合理售后完善，十余年实体公司更值得信赖。

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

抛物线VB

假设速度为v，角度为θ。

那么炮弹射出距离为2v^2sinθcosθ/g=v^2sin2θ/g。

假设输入为TextBox1——v，TextBox2——θ，Button1——开始计算，输出为TextBox3——结果，则

'VB .NET及以后版本

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Const Gravity As Double = 9.8 '请自己改

Dim a, b, c As Double

a = Val(TextBox1.Text)

b = Val(TextBox2.Text)

c = a ^ 2 * Math.Sin(2 * b) / Gravity

TextBox3.Text = CStr(c)

End Sub

VB6:

Private Sub Button1_Click()

Const Gravity As Double = 9.8 '请自己改

Dim a, b, c As Double

a = Val(TextBox1.Text)

b = Val(TextBox2.Text)

c = a ^ 2 * sin(2 * b) / Gravity

TextBox3.Text = CStr(c)

End Sub

LZ画图吗？

如何用VB.net实现物理中的抛物线？

你要先把

VB.net

画线的函数学会了，再来编程，你可以先试试正弦函数绘图的编程。

分享名称：vb.net如何画抛物线 c语言画抛物线
网站网址：http://cdweb.net/article/hpesjc.html