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

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

dim date as DateTime = DateTimeParse(TextBox1Text)

TextBox2Text = dateToShortDateTime()

日期类型有好多种转换表达式， 特别的使用ToString("YYYY-mm-dd") 这种形式可以自定义ToString里面的格式化样式。

VB6的String()函数，在VBNET中，改用 StrDup()函数，使用格式与VB6的String()函数类似：

例如：

VB6中，String(5,"") ，是产生5个星号字符，""

VBNet中，改用 StrDup(5,"") ，也是产生5个星号字符，""

果在格式化数字时没有指定 format，Format 会提供与 Str 函数类似的功能

' 如果没有指定格式，则返回字符串。

MyStr = Format(23) ' 返回 "23"。

' 用户自定义的格式。

MyStr = Format(54594, "##,##0。00") ' 返回 "5,45940"。

MyStr = Format(334。9, "###0。00") ' 返回 "33490"。

MyStr = Format(5, "0。00%") ' 返回 "50000%"。

MyStr = Format("HELLO", "<") ' 返回 "hello"。

MyStr = Format("This is it", ">") ' 返回 "THIS IS IT

Public Class Form1

Private Function jc1(ByVal q)

Dim i%, p%

p = 1

For i = 1 To q Step 1

p = p i

Next

Return p

End Function

Private Sub Button1_Click(ByVal sender As SystemObject, ByVal e As SystemEventArgs) Handles Button1Click

Dim m!, n!, info1$, info2, C!, title$

title = "组合数计算小能手"

info1 = "请输入m的值"

info2 = "请输入n的值"

m = Val(InputBox(info1, title))

n = Val(InputBox(info2, title))

C = jc1(m) / jc1(n) / jc1(m - n)

Label1Text = "结果是" & " " & C

End Sub