vb6.0编程系统怎么使用数组的方式传变量的变量名?怎么得到每个数组的每个变量的变量名?

vb6.0编程系统怎么使用数组的方式传变量的变量名?怎么得到每个数组的每个变量的变量名?用什么函数或者语句可以获取呢?

2个回答

用结构啊
Option Explicit

Type NameValuePair
    Name            As String
    Value           As Variant
End Type

Sub Main()
    Dim a()         As NameValuePair
    ReDim a(1)
    a(0).Name = "v1":   a(0).Value = 123
    a(1).Name = "v2":   a(1).Value = "abc"
    Call f(a)
End Sub

Sub f(a() As NameValuePair)
    Dim i           As Long

    For i = LBound(a) To UBound(a)
        Debug.Print a(i).Name, TypeName(a(i).Value), a(i).Value
    Next
End Sub

输出
v1 Integer 123
v2 String abc

Csdn user default icon
上传中...
上传图片
插入图片
抄袭、复制答案,以达到刷声望分或其他目的的行为,在CSDN问答是严格禁止的,一经发现立刻封号。是时候展现真正的技术了!
立即提问