。net 其实还是很好绘制图形的
成都创新互联公司专注于中大型企业的成都网站建设、做网站和网站改版、网站营销服务，追求商业策划与数据分析、创意艺术与技术开发的融合，累计客户上千家，服务满意度达97%。帮助广大客户顺利对接上互联网浪潮，准确优选出符合自己需要的互联网运用，我们将一直专注成都品牌网站建设和互联网程序开发，在前进的路上，与客户一起成长！
你可以看下 Graphics 类
Dim d As New Bitmap(Me.Width, Me.Height) ‘一个图片吧
Dim g As Graphics = Graphics.FromImage(d)’绘制 准备在这个图片是进行
然后 就是你绘制的东西了
线 就是 g.DrawLine()
圆 弧度 就用 g.DrawArc(Pens.Black, New Rectangle(0, 0, 400, 200), 0, 360)
复杂的就是 g.DrawBezier()
等 如果你用的是 VS的 编译 上面都有详细的参数说明
Dim d As New Bitmap(Me.Width, Me.Height)
Dim g As Graphics = Graphics.FromImage(d)
g.DrawArc(Pens.Black, New Rectangle(0, 0, 200, 200), 0, 360)
g.DrawLine(Pens.Red, New Point(0, 0), New Point(200, 200))
g.DrawLines(Pens.Green, New Point() {New Point(0, 0), New Point(50, 40), New Point(50, 80), New Point(90, 70), New Point(100, 400)})
g.DrawBezier(Pens.Yellow, New Point(0, 100), New Point(0, 0), New Point(200, 0）， New Point(200, 200))
g.Dispose()
Me.BackgroundImage = d
你要先把
VB.net
画线的函数学会了，再来编程，你可以先试试正弦函数绘图的编程。
假设速度为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画图吗？
1、利用公式求出Y值 第一列设置表头为x，下面依次填入取值， 比如 x 1 2 3 4 ...... 第二例表头设置为y，在下面表格中填入计算公式 如 =2*x+1 然后选中点右下角的十字型标记，拖下去，和前面x数量一致。 2、然后选中数据源（即选中要进行操作的数据区域，这里指XY值所在区域。） 3、执行菜单命令插入——图表——XY散点图 执行命令，打开图表向导对话框选XY散点图－－选平滑线散点图－－完成 最后使用图表向导在横坐标填入x值，纵坐标填入y值，生成图即可 将一次函数的Y列用公式编辑出来，分别填写出当取不同的X值时得到不的函数值，选择函数值所在列，插入——图表按提示操作。执行菜单命令 执行菜单命令
