当前位置:首页 » 文件传输 » vb数组元素通过下标访问
扩展阅读
webinf下怎么引入js 2023-08-31 21:54:13
堡垒机怎么打开web 2023-08-31 21:54:11

vb数组元素通过下标访问

发布时间: 2022-09-21 10:48:02

A. 如何访问数组中的元素

具体步骤如下:

1、用list来演示,安装好python与pycharm之后,打开pycharm,新建Test_List.py。

B. 数组元素可以通过下标访问,下标从什么开始

一般从0开始
也可以从1开始
如:
VB
dim a(1 to 10)
数组a的下标就从1开始到10

dim a(10)
数组a的下标就从0开始到10

C. VB:如何返回vb一维数组某个元素所对应的下标的值

Array(arglist)

所需的 arglist 参数是一个用逗号隔开的值表,这些值用于给 Variant 所包含的数组的各元素赋值。如果不提供参数,则创建一个长度为 0 的数组。

说明

用来表示数组元素的符号由变量名、圆括号以及括号中的所需元素的索引号组成。在下面的示例中,第一条语句创建一个 Variant 的变量 A。第二条语句将一个数组赋给变量 A。最后一条语句将该数组的第二个元素的值赋给另一个变量。

Dim A As Variant
A = Array(10,20,30)
B = A(2)

使用 Array 函数创建的数组的下界受 Option Base 语句指定的下界的决定, 除非 Array 是由类型库(例如 VBA.Array )名称限定。如果是由类型库名称限定,则 Array 不受 Option Base 的影响。

注意 没有作为数组声明的 Variant 也可以表示数组。除了长度固定的字符串以及用户定义类型之外,Variant 变量可以表示任何类型的数组。尽管一个包含数组的 Variant 和一个元素为 Variant 类型的数组在概念上有所不同,但对数组元素的访问方式是相同的。

D. VB数组下标问题

vb数组的下标只能是整数,不管你写什么vb都会尝试把他自动转换为整数,原则是:四舍六入五取整。
所以第二个是a(2);所以a(1.6)=a(2),而a(2)在循环中多次被赋值,它保留了最后一次的值:a(2.5)=2.5^2=6.25

不管谁写的这段程序,我都必须承认他很有幽默感

E. 用VB语言,遍历多维数组时,如何获取当前元素的下标值

这个只能通过一个变量累加,然后从中分解出下标值:

k=0
ForEachmydIntdata
i=k(UBound(tdata,1)-LBound(tdata,1)+1)'第一维下标值
j=kMod(UBound(tdata,2)-LBound(tdata,2)+1)'第二维下标值
Print"tdata("&i&","&j&")="&myd
k=k+1
Next

或者不用遍历,直接顺序读取即可(在数组大小已知的情况下,遍历其实没啥意义了):

Forj=LBound(tdata,1)ToUBound(tdata,1)
Fori=LBound(tdata,2)ToUBound(tdata,2)
Print"tdata("&i&","&j&")="&tdata(i,j)
Next
Next

F. VB中数组下标的问题

不可以的。可用动态数组。
首先:
Dim bigid_fireopening() As Double
然后使用ReDim语句
ReDim bigid_fireopening(qishi To zhong)
就可以了。
其他的使用方法可以去查查MSDN。

G. vb数组下标

Option Base 语句 在模块级别中使用,用来声明数组下标的缺省下界。语法Option Base {0 | 1}说明由于下界的缺省设置是 0,因此无需使用 Option Base 语句。如果使用该语句,则必须写在模块的所有过程之前。一个模块中只能出现一次 Option Base,且必须位于带维数的数组声明之前。注意 Dim、Private、Public、ReDim 以及 Static 语句中的 To 子句提供了一种更灵活的方式来控制数组的下标。不过,如果没有使用 To 子句显式地指定下界,则可以使用 Option Base 将缺省下界设为 1。使用 Array 函数或 ParamArray 关键字创建的数组的下界为 0;Option Base 对 Array 或 ParamArray 不起作用。Option Base 语句只影响位于包含该语句的模块中的数组下界。

H. VB中数组的下标的作用是什么 能举个例子吗

数组的上标和下标用来说明数组的范围的,例如dim a(1 to 10),那么1就是这个数组的上标,10是这个数的的下标,表明数组a共有10个元素,也可是叫做上界和下界。

I. VB 如何取得数组当前值下标值

'arrPtr:数组指针,dims:数组维数,pData:元素指针
Dim arrPtr As Long, dims As Long, pData As Long
'i:循环变量,carry:进位标记
Dim i As Long, carry As Integer

'取得数组维数
CopyMemoryArr arrPtr, Arr, 4
dims = SafeArrayGetDim(arrPtr)
ReDim Index(dims - 1) As Long

Do
'取得某个下标处元素的指针
SafeArrayPtrOfIndex arrPtr, Index(0), pData
'与传入的元素的指针比较
If pData = VarPtr(Element) Then
GetIndex = True
Exit Function
End If

'数组下标加1
Index(dims - 1) = Index(dims - 1) + 1
'检查下标是否溢出
carry = 0
For i = dims - 1 To 1
Index(i) = Index(i) + carry
If Index(i) > UBound(Arr, i + 1) Then
Index(i) = 0
carry = 1
End If
Next i
'最高位单独处理,防止被清0
Index(0) = Index(0) + carry
'检查是否搜索完毕,退出循环
If Index(0) > UBound(Arr, 1) Then Exit Do
Loop

GetIndex = False
End Function

J. VB中怎样输出数组中某个数的下标

LBound(f)'上标
UBound(f)'下标