VB制作折线统计图

3、奉献代码：Private Sub Command1_Click()Dim p '定义数组 p = Split(Text1.Text, ",") '把文本框里的字符转换为数组Dim leng As Integer leng = UBound(p)'数组长度Dim i, x, xx, y, yy '画线的起目点坐标For i = 0 To leng - 3 Step 2'leng-3　是保证数组不越界，另外本应减去2，'就是说最后一个点是封闭的，不能再画下去了。'减去3是为避免出现输入奇数个数据的错误，'比如9个数，第9个数只是点x的值，没有y值，略去'两个点画一条线段，所以要step 2； x = p(i) xx = p(i + 1) y = p(i + 2) yy = p(i + 3) Picture1.Line (x, xx)-(y, yy) '画线NextEnd Sub