vb.net如何画抛物线 vb画函数

如何用VB画抛物线

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

相关问答

Q1: 抛物线VB

假设速度为vvb.net如何画抛物线，角度为θ。

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

假设输入为TextBox1——vvb.net如何画抛物线，TextBox2——θvb.net如何画抛物线，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如何画抛物线？

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

你要先把

VB.net

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

关于vb.net如何画抛物线和vb画函数的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。