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
相关问答：
Private Sub Command1_Click()
Dim MyString() As String
Open "a.xml" For Binary As #1 ' 打开刚创建的文件。
ReDim MyString(LOF(1) - 1)
Put #1, , MyRecord ' 读入所有字符到变量中 ......
vb中 现在我要把数据库里存储的一个附件的内容替换了，怎么做，只是替换我指定的位置，不是全部替换
请将问题说明白，存储字段格式，如果是Binary格式的比较麻烦，如果是字串，直接替换。最好不要进行指定位置替换� ......
现在有个xml文件是<?xml version="1.0"?>
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
xm ......
dim a as string,b as string，c as string
a="工程编号,单位工程名称,分部工程编号"
b="单位工程名称"
c="单位"
怎么才能判断出a字符串中存在b字符串，而不存在c字符串
看看i ......
谁能帮我把下面这些代码改成VB形式的，多谢了，急用~~
#include "stdlib.h"
#include "math.h"
#include "stdio.h"
float objfx(float x[]);
void constraint(float x[],float g ......
