查看: 222  |  回复: 0
VB6 Array函数只能用Variant ,Dim arrA() As Variant: arrA = Array(1, 2, 3) 子程序s_Array2A
楼主
发表于 3月13日 23:34

新建From1(窗体),新建Command1(按钮CommandButton),代码:

Private Sub Command1_Click()
    Dim arrA() As Variant
    Dim eleA As Variant

    arrA = Array("Apple", "Banana", "Cherry", 1, 2, 3, Chr(0), Chr(65))
    
    ReDim Preserve arrA(UBound(arrA) + 1) '扩大数组
    arrA(UBound(arrA)) = "New" '给最后一个数组赋值
    
    For Each eleA In arrA
        Debug.Print TypeName(eleA) & ":" & eleA
    Next
End Sub

Private Sub Command2_Click()
    Dim varWord() As Variant
    Dim arrB() As Byte
    Dim i As Integer
    
    '初始化 arrB 数组
    varWord = Array(1, 2, 3)
    
    Call s_Array2ArrB(varWord, arrB())
    
    '输出 arrC 数组的内容
    For i = 0 To UBound(arrB)
        Debug.Print arrB(i)
    Next
End Sub

Private Sub s_Array2ArrB(varWord As Variant, arrB() As Byte)
    '最后把生成的字节放入arrB()
    Dim i As Integer
    ReDim arrB(0 To UBound(varWord)) '调整 arrB 数组大小
    
    '将 arrA 的元素转换为 Byte 类型并存储到 arrB 中
    For i = 0 To UBound(varWord)
        arrB(i) = CByte(varWord(i))
    Next
End Sub

运行Command1和Command2的结果:

String:Apple
String:Banana
String:Cherry
Integer:1
Integer:2
Integer:3
String: 
String:A
String:New

 1 
 2 
 3


您需要登录后才可以回帖 登录 | 立即注册
【本版规则】请勿发表违反国家法律的内容,否则会被冻结账号和删贴。
用户名: 立即注册
密码:
2020-2024 MaNongKu.com