vb中定义一个二维数组 dim A( ,4) As variant 也就是不给行数，只给列数。我记得在C语言中可以这样定义。

Posted 2023-05-08

vb中可以这样定义吗？

VB中只能这样：
Dim A() As Variant
初始使用的时候这样：
ReDim A(4, 10)
中途要改变下标而又想保留原数据则这样：
ReDim Preserve A(4, 20)
注意只能改变最后一维的下标，则就是为什么我要把4放到前面的原因。追问

这些我都知道，我的意思是：我想创建一个函数FUNCTION A(b as integer)。能不能通过给b复制动态的改变这个在这个函数中一个二维数组的行数或者列数大小，而不是一次将它的大小给定。C语言中不是可以不规定行数大小，只给定列数大小，然后给一个二维数组中填充么！

追答

VB里面没这个

参考技术A 没有必要。你定义个（0,4）需要时再用Redim改就是了。

二维数组元素个数怎么算啊！！！VB语言的，求！

先说没有option base XX情况：
例如a（3,4），第一维是3，第二维是4，数组就有（3+1）*（4+1）=20个元素，因为这时下界默认是0，等价于a（0 To 3,0 To 4）。
若是有option base XX，例如option base 1，a（3,4）就等价于a（1 To 3,1 To 4），数组就有3*4=12个元素。同理，option base 2，a（3,4）就等价于a（2 To 3,2 To 4），数组就有（3-1）*（4-1）=6个元素。。。
另外，option base 0 等同第一种情况，可以不写。追问

没有option base ，那其他的情况呢，比如a(3,2to2,5),a(1,4to4)这样的？？？

追答

a(3,2to2,5)有（3+1）*1*（5+1）=24个，a(1,4to4)有（1+1）*1=2个。
没有option base 时，维数如果是单独一个数字，就从0开始算到维数，如a(3,2to2,5)中的第一维数字是3，从0开始算0，1，2，3就有4位；b To c的就从b数到c，数值上就是（c-b+1），a(3,2to2,5)中第二维2 to 2就是2-2+1=1，共有1 位，依次算出各维的位数，做乘积就是数组的元素个数了。多维数组也是如此。

追问

不对啊，这是题目：
如下数组声明语句，则数组a包含元素的个数有______。
　　　　　Dim a(3, 2 to 2,5)
（A）120 　　（B）75
（C）60 　　 （D）13
谢谢谢谢啦~~~

追答

如果答案是（A）的话，我怀疑是不是-2 to 2

追问

哦哦~~·应该是这样~~~

参考技术A 数组 arr(x to y,n to m)
每一维的个数公式：上界 - 下界 +1
第一维：ubound(arr,1) - lbound(arr,1) +1
第二维：ubound(arr,2) - lbound(arr,2) +1
总个数：
n = (ubound(arr,1) - lbound(arr,1) +1) * (ubound(arr,2) - lbound(arr,2) +1)
将数组的名字替换公式中的 arr，就可以计算出个数 n ,与option base 什么的都没关系
-------
数组 Dim a(3, 2 to 2,5) 是3维的，不是2维
n = (3-0+1)*(2-2+1)*(5-0+1) = 24
给出的选项有问题啊，或者是你的题目写错了？
如果定义了
option base 1
则
n = (3-1+1)*(2-2+1)*(5-1+1) = 15
选项中也没有啊追问

你确定吗，这是我们计算机教学平台题库里面的原题啊，真没错~~~
先谢谢你了啊~~

追答

确定，非常确定

参考技术B /*用C语言求二维数组中的这样的一个元素位置：
在行上最小，在列上也最小。如果没有这样的数则输出相应信息。
*/
#define ROW 3 //数组行数
#define COL 3 //数组列数
#include <iostream>
using namespace std;
void search(int array[ROW][COL],int m,int n) //m为数组行数，n为数组列数

int temp=array[0][0];
int posx,posy;
int i,j,k;
for (i=0;i<m;i++)
for (j=0;j<n;j++)

if (array[i][j]<temp) //查找该行最小的数

temp=array[i][j];
posx=i,posy=j;

if (j==n-1) //比较在该列是不是最小的数

for (k=0;k<m;k++)

if(array[k][posy]<temp)
temp=0;

if (temp!=0)

cout<<"Row="<<posx+1<<" Col="<<posy+1<<" Vauel="<<temp<<endl;

if (i<m-1) //查找下一行

temp=array[i+1][0];
posx=i+1,posy=0;




int main()

int a[2][3]=,;

//调用查找函数，第一个参数是数组名，
//第二个参数是数组行数，第三个参数是数组列数
search(a,2,3);

return 0;

参考技术C Lbound(数组名[,维数])－返回数组指定维数的下界

Ubound(数组名[,维数])－返回数组指定维数的上界

省略维数，默认为第1维。

Dim a(-3 To 2, 5)

Print LBound(a, 2), UBound(a, 2) 【0 5】

Print LBound(a), UBound(a) 【-3 2】

该函数返回（下界与上界）在定义数组时确定，与数组的元素值无关。