vb循环语句

[langlangsai]

For i = 1 To 10
        Line (800 + 100 * i, 4000)-(800 + 100 * i, 4000 - 300 * e1(1, i)), vbBlue
    Next
    
    For i = 1 To 10
        Line (450 + 100 * i, 6000)-(450 + 100 * i, 6000 - 300 * e1(1, i)), vbBlue
    Next
    
    For i = 1 To 10
        Line (400 + 100 * i, 6000)-(400 + 100 * i, 6000 - 300 * e(1, i))
    Next
    
    
    For i = 1 To 10
        Line (6800 + 100 * i, 4000)-(6800 + 100 * i, 4000 - 300 * e1(2, i)), vbRed
    Next
    
    For i = 1 To 10
        Line (7450 + 100 * i, 6000)-(7450 + 100 * i, 6000 - 300 * e1(2, i)), vbRed
    Next
    
    For i = 1 To 10
        Line (7400 + 100 * i, 6000)-(7400 + 100 * i, 6000 - 300 * e(2, i))
    Next
    
    Print

可以求个详细点地解释吗~非常感谢~

[clear_zero]

你执行下就出来了，就是循环画线

[worldy]

每个循环在两条和Y轴平行的线之间画10条射线

[choovy123]

网上找一下LINE画线函数就清楚了

[langlangsai]

非常感谢1楼，2楼，3楼~

[suuuuuu007]

line函数后面有几个参数，vbBule，表示是用蓝色来绘制，具体可以参见line在百度百科里的解释
http://baike.baidu.com/view/126659.htm

[kisshc]

挺好的