vb 使用二维数组画折线 - VB / 基础类
自己编了一个使用二维数组画折线的程序，始终有问题。
从串口读入 a 和 b 值，两者一一对应。
a 为 横坐标，b 为纵坐标 ，在坐标上画好点后，我想把相邻的点用直线连接起来，
就使用了二维数组 array（1 to 2，1 to 100）As Long
然后用 picture1.line 来画图，原理是使用后一个点的坐标 减去前一个点的坐标。（用循环完成）
但是 就是 说啥这个图也画不出来！！！！！
我觉得我的想法没问题啊，程序也反复看了几十遍都有了！！！
有哪位好心的达人朋友帮帮忙吧，我都晕了！！！
最好有循环部分的代码让我参考一下，我觉得自己对这个问题有个死结解不开了！！
谢谢！！
贴代码吧，帅哥
只有把picture1的 scale（left,top,width,height属性设置好了，画线不难吧，贴重点代码看看
For i = 1 To 99
Picture1.Line (array(1, i), array(2, i)) - (array(1, i + 1), array(2, i + 1))
Next i
实际上，还有一个问题，就是点的实际坐标到图上坐标的转换。
假设你的实际坐标范围是 x: 0- 1000，y: 0-200，均为实数。你的图上坐标是 X: 0-100, y: 0-20，像素坐标必须为整数。
For i = 1 To 100
array(1, i) = array(1, i) \ 10
array(2, i) = array(2, i) \ 10
Next i
然后才能画。
你的代码呢？没有代码至少也把数组中的数据贴一下，并举例描述怎么减得到下一坐标点。
其实，更简单的方法是，直接把你的二维数组赋值给 MSChart 控件，它会自动绘图。
http://topic.csdn.net/u/20100520/15/ad24c110-af
相关问答：
我想把word另存为xml之后，用vb读取这个xml的内容，请问如何实现？
dim f as integer
dim b() as byte
dim s as string
dim L as long
f=freefile()
open "abc.xml" for binary access read as #f
......
vb中 现在我要把数据库里存储的一个附件的内容替换了，怎么做，只是替换我指定的位置，不是全部替换
请将问题说明白，存储字段格式，如果是Binary格式的比较麻烦，如果是字串，直接替换。最好不要进行指定位置替换� ......
数据库里有一个字段的内容是二进制，怎么才能把这个二进制读出来
使用字节流对象可以实现
例如现在数据库里有个字段的内容是0x504B03040A0000000800407F263C3B02465390000000820000000A0000006273CECACCE22E7478 ......
怎么把已知的数据保存成xml文件，现在已知的数据是
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
xmlns:o=& ......
