怎么利用VB 6.0制作函数图像，请高手帮忙解决一下问题，万分感谢！！！！

如题所述

你看看这个题目能否用vb帮忙编写一下啊，
杆件在拉伸与压缩变形下的强度及刚度计算
输入:
1.几何尺寸输入（杆件长度）
坐标（0，L）或（0，L1,L2,….）
2.截面参数输入（形状，大小，如为阶梯状杆件，则给出各截面面积A1,A2,….）
3.材料常数输入（E,γ,[σ]）
4,载荷输入（集中力Fi大小及位置、方向）
输出：
1 轴力图
2 交合结果（强度条件满足与否）
非常感谢啊！！！！追加剩下的所有分数！！！！

假设要绘制轴力图：
　　需要知道有几个点在图上：这些点的X值决定拆线的横向间距，决定X轴单位长。这些点的Y值最大多少最小多少，决定Y轴的单位长。
　　你不知道VB编写，正如我不明白你的专业原理一样。
　　你给我点坐标，我就能画同图象。但我不会取得点！！

我设计的力学求解器和计算器差不多，当用户任意输入数值进行加法运算时，如何利用数组去储存用户的数值，然后当单击计算时，系统会再次调用数组进行计算，最后得出结果。所以如何用一个文本框和一个按钮去实现呢？？？最好有代码。非常感谢你帮我解答这么多，再次的感谢！！！完事以后会把我的所有分追加给你！！！谢谢

文本框中输入值对地：用英语逗号隔开，如　25,40；表示x=25，y=40。
两点按钮（不如回车省事），这个点与上一个点的直线便上屏了。
as3代码：
import flash.display.Graphics;

var linesize:Number=1;//线粗
var startY:Number=300-0;

box.graphics.lineStyle(linesize,0xff0000);
box.graphics.moveTo(0,startY);

inNum_txt.addEventListener(KeyboardEvent.KEY_DOWN,run);
function run(e) {
if (e.keyCode==13) {
var n=[];
n=inNum_txt.text.split(",");
inNum_txt.text="";
box.graphics.lineTo(Number(n[0]),300-Number(n[1]));
}
}

高手不好意思，我没学过C语言，只学了vb，请高手用vb给小的写一下代码可以吗？ 再就是我想在文本框输入多个数据，比如输入以后单击一个按钮后再输入一个，再单击按钮再输入一个.........
我想把从文本框中输入的多个数据存到一个数组中，再用一个按钮去调用数组画线，现在积分一百多，不管结果如何都会加给高手！！！请问高手能否给个qq号，可以方便以后联系。我是一个学生以后有需帮助的，尽管开口！！！

代码很简单了。我通过QQ给你。
效果图：http://hiphotos.baidu.com/xlzzc/pic/item/70756a08acd168e8d1581bcd.jpg

参考资料：http://hiphotos.baidu.com/xlzzc/pic/item/70756a08acd168e8d1581bcd.jpg

高手，我想从一个按钮调用另一个按钮下的数组，能否给代码，如何调用啊？谢谢
再就是麻烦高手给解释一下你的代码！谢谢，不再追问，回答完后给你我的追加分

我发在空间里了。你去看下。
Private Sub Command1_Click()
Dim p '定义数组
p = Split(Text1.Text, ",") '把文本框里的字符转换为数组
For i = 0 To UBound(p) - 3 Step 2
’UBound(p)'数组最大的下标，就是数组　长度-1
　　'leng-3　是保证数组不越界，另外本应减去2，
　　'就是说最后一个点是封闭的，不能再画下去了。
　　'减去3是为避免出现输入奇数个数据的错误，
　　'比如9个数，第9个数只是点x的值，没有y值，略去
　　'两个点画一条线段，所以要step 2；
Picture1.ForeColor = RGB(Int(Rnd * 255), Int(Rnd * 255), Int(Rnd * 255))
　　'线段颜色，一段一个随机颜色
Picture1.Line (p(i), 1800 - p(i + 1))-(p(i + 2), 1800 - p(i + 3))
　　‘画线
Picture1.ForeColor = vbRed '绘图的颜色　红色
Picture1.Circle (p(i), 1800 - p(i + 1)), 20’画点，红色
Picture1.Circle (1800 - p(i + 2), 1800 - p(i + 3)), 20’画点，红色
Next
End Sub
效果新图：http://hiphotos.baidu.com/xlzzc/pic/item/1fd71450f93840e58d5430e4.jpg

...........................
从一个按钮调用另一个按钮下的数组：
只把那个要调用的数组放在“通用”下定义即可。全局函数！
Dim p‘这句放在通用里，成为全局函数，可以在任何地方调用了。
’以下没变化
Private Sub Command1_Click()
p = Split(Text1.Text, ",")
For i = 0 To UBound(p) - 3 Step 2
Picture1.ForeColor = RGB(Int(Rnd * 255), Int(Rnd * 255), Int(Rnd * 255))
Picture1.Line (p(i), 1800 - p(i + 1))-(p(i + 2), 1800 - p(i + 3))
Picture1.ForeColor = vbRed
Picture1.Circle (p(i), 1800 - p(i + 1)), 20
Picture1.Circle (1800 - p(i + 2), 1800 - p(i + 3)), 20
Next
End Sub

参考资料：http://hi.baidu.com/xlzzc/blog/item/e3c48200ccca45147aec2c24.html