vb.net图表 vba 图表

Vs2010中，vb.net写网页代码里面有和chart图表工具 点击其他 控件给其赋值，每次都是

在窗体上添加一个Chart1控件和一个Button1控件：

成都创新互联公司于2013年成立，先为双清等服务建站，双清等地企业，进行企业商务咨询服务。为双清企业网站制作PC+手机+微官网三网同步一站式服务解决您的所有建站问题。

完整代码如下：（复制就可以用）

Public Class Form1

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

Chart1.Series.RemoveAt(0)   '清除原来的系列

Dim i As Integer

Dim j As Integer

For i = 0 To 11    '设置有12个系列

Chart1.Series.Add("系列"  i + 1)

''添加数据点的个数

For j = 0 To 3   '设置有4个数据点

Chart1.Series(i).Points.Add()

Next

Next

'用生成的随机数（范围[2.0，9.9]），作为数据

Randomize()

For i = 0 To 11

For j = 0 To 3

Chart1.Series(i).Points(j).YValues = {Int((99 - 20 + 1) * Rnd() + 20) / 10}   '将随机数据赋值给图表点的Y值

Next

Chart1.Series(i).ChartType = DataVisualization.Charting.SeriesChartType.Column    '设置图表类型

Next

End Sub

End Class

VB.NET 有木有什么漂亮的第三方图表控件 大

.NET 的第三方控件首推Devexpress

不过这个控件学起来有些难度，官方文档全是英文的；而且国内资料较少

vb.net怎么绘制带坐标轴的的一次函数？最好附上源码。

1、利用公式求出Y值 　第一列设置表头为x，下面依次填入取值， 比如 x 1 2 3 4 ...... 第二例表头设置为y，在下面表格中填入计算公式 如 =2*x+1 然后选中点右下角的十字型标记，拖下去，和前面x数量一致。 2、然后选中数据源（即选中要进行操作的数据区域，这里指XY值所在区域。） 3、执行菜单命令插入——图表——XY散点图 　执行命令，打开图表向导对话框选XY散点图－－选平滑线散点图－－完成　 最后使用图表向导在横坐标填入x值，纵坐标填入y值，生成图即可 将一次函数的Y列用公式编辑出来，分别填写出当取不同的X值时得到不的函数值，选择函数值所在列，插入——图表按提示操作。执行菜单命令 执行菜单命令