VB程序中，已知若干的点（二维）的坐标，求在picture框中作图连接任意两点。 多少点都可以，代码中设置了5个点Private Sub Command1_Click()Dim x(5)As Integer，y(5)As IntegerDim i，j As IntegerPicture1.ClsRandomizePicture1.ScaleMode=3Picture1.FillStyle=0Picture1.FillColor=vbRedFor i=0 To UBound(x)x(i)=Int(Rnd*Picture1.ScaleWidth)y(i)=Int(Rnd*Picture1.ScaleHeight)Picture1.Circle(x(i)，y(i))，5，vbRedNextFor i=0 To UBound(x)For j=0 To UBound(x)If i<；>；j ThenPicture1.Line(x(i)，y(i))-(x(j)，y(j))，vbBlueEnd IfNextNextEnd Sub
谁给讲讲 VB 中可变二维数组的定义，赋值 学习中。。 二维数组可以理解为数阵，或者平面直角坐标系中的点。A（x，y）多维数组有时需要追踪记录数组中的相关信息。例如，为了追踪记录计算机屏幕上的每一个像素，需要引用它的 X、Y 坐标。这时应该用多维数组存储值。可用 Visual Basic 声明多维数组。例如，下面的语句声明了一个过程内的 10×10 的二维数组。Static MatrixA(9，9)As Double可用显式下界来声明两个维数或两个维数中的任何一个：Static MatrixA(1 To 10，1 To 10)As Double可以将所有这些推广到二维以上的数组。例如：Dim MultiD(3，1 To 10，1 To 15)这个声明建立了三维数组，大小为 4×10×15。元素总数为三个维数的乘积，为 600。注意 在增加数组的维数时，数组所占的存储空间会大幅度增加，所以要慎用多维数组。使用 Variant 数组时更要格外小心，因为他们需要更大的存储空间。用循环操作数组可以用 For 循环嵌套有效的处理多维数组。例如，在 MatrixA 中基于每个元素在数组中的位置为其赋值：Dim I As Integer，J As IntegerStatic MatrixA(1 To 10，1 To 10)As DoubleFor I=1 To 10For J=1 To 10MatrixA(I，J)=I*10+JNext JNext I张志晨
VB中的二维数组和一维数组有什么区别？ 一维只有1个下标 定义是dim array(n)意思百是这个数组名为：array 里面包度含n+1个元素（因为下标一般从0开始）。二维有2个下标 定义是dim 啊array(m，n)意思是这版个数组名为：array 里面包含(m+1)*(n+1)个元素（因为下权标一般从0开始）。
请帮忙做一个简单VB程序，二维坐标系上有五个点，求每个点与其他点之间的距离。能用的话再追加 压缩包里包括设计和运行的所有文件。已经在本机验证过。请下载解压运行验证，如无问题请予采用。如有进一步需求，或者对代码解释，请联系。
