大橙子网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
仅画出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
假设速度为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
画线的函数学会了,再来编程,你可以先试试正弦函数绘图的编程。