在vb中什么函数可以计算一个数组的下标

知道有LBound和UBound，但这两个函数只是计算的最小下标值和最大下标值，我的意思是比如有一个4*4的数组A(1 to 4,1 to 4),现在要计算A（3,2）的下标，也就是怎么能把3和2算出来？求教……谢啦！！！

lboun(数组名，维序号)

不感兴趣

开通SVIP免广告

A(3,2) '3和2就是下标，你都已经指定了这一个下标还计算哪个下标呀？

只有算法和代码，没有函数的说法。用两个变量代替它们，再用循环，就可以进行一系列的过程。

我的意思是我写一个子函数，子函数是对一个数组其中的一个元素进行运算的。比如FunctionOrder A(i,j)，但是数组进行传递时，要么是一整个数组，或者是其中一个很明确的元素，比如A（3,2）。但是我想传递的是不是一个很明确的元素，是其中的某些元素，求教……

i,j不就是你要的吗

可以用数组和下标作为参数，比如说
Private Function fun(arr() As Long, i As Long, j As Long) As Long
fun = arr(i, j)
End Function

如果不想把整个数组传进去
可以在函数声时的括号内使用不定数量的可选参数

不感兴趣

开通SVIP免广告

Ubound(A,1)=3
Ubound(A,2)=2
3属于第1维，2属于第二维。

Private Sub Form_Load()
Dim a(3, 6)
Debug.Print "+++"
Debug.Print UBound(a, 1)
Debug.Print UBound(a, 2)
Debug.Print "---"
End Sub

想法很好，但是i和j怎么测出来，我问的就是这个意思，有没有那个函数可以把i和j测出来？

你的意思是不是，把多个数组元素以及他们的下标传递给一个函数？
如果是，可以如此声明:
Private Function fun(arr() As Long, i() As Long, j() As Long) As Long
End Function
arr 是要传递的元素组成的数组，i跟j是两个数组,分别存放每个元素的第1个下标和第2个下标

调用函数要指明哪些元素要传递，那 i 跟 j 都知道啊

最大ubound,最小lbound

不感兴趣

开通SVIP免广告

对，我就是这个意思，比如我要传递一个数组中的元素，但是我不知道具体是哪几个（符合条件的传递，不符合就不传递），这是就要计算出元素的下标了，也就是i和j，但我不知道怎么算出来？求教……

扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频！

1 2 下一页尾页
18回复贴，共2页
，跳到页

<<返回vb吧

分享到:

日	一	二	三	四	五	六