求问VB中如何实现数组的赋值

求问VB中如何实现数组的赋值

答案补充：这个方法只适用于一维数组，多维数组只能一个一个分别赋值，没有简便方法。
＝＝＝＝＝＝＝＝＝＝＝＝代码如下。
＝＝＝＝＝＝＝＝＝＝＝＝

你的count还没有赋值,保持0]

和普通变量的赋值一样。比如： dim a(5) as integer for i=1 to 5 a(i)=i; next i 通过使用循环来赋值是很常用的做法。]

答案补充：这个方法只适用于一维数组，多维数组只能一个一个分别赋值，没有简便方法。＝＝＝＝＝＝＝＝＝＝＝＝代码如下。 ＝＝＝＝＝＝＝＝＝＝＝＝ Dim a As Variant Private Sub Form_Load() a = Array(1, 5, 2, 43, 222) End Sub]

你的AAA级。在一个字符串数组， 一门课程分配，否则，可以类似C语言的memcpy函数， 直接内存块复制， 你想要的阵列写入使用的二进制输入， 写这篇文章之前，把这个结构导入到一个二进制的数组，下面的代码可以参考：BR /> 私人的声明分CopyMemory Lib的“KERNEL32”别名？ “RtlMoveMemory”_ （目标为已任，来源为已任，BYVAL的numBytes作为长） 私人型AA （8）作为字符串末页 子Command1_Click（） 昏暗的AAA级为AA aaa.a（1）=“HELLO” aaa.a（2）=“GIRL” 昏暗的BT（）字节 REDIM BT（LEN（AAA）+ 1） ：CopyMemory胜（0），AAA， LEN（AAA）的“复制 二进制的数组，然后调用你的输入函数写入到文件中 END SUB]

有两种一个是通过循环复制，动态数组可以用ARRAY函数 '以下是通过循环给数组元素赋值Private Sub Command1_Click()Dim a(10) As Integer '定义有十个元素的数组aFor i = 1 To 10 a(i) = Int(Rnd * 100) '给数组元素赋随机值 Print a(i);NextPrintEnd Sub'以下是通过array函数给数组初始化Private Sub Command2_Click()Dim a() '顶一个动态数组a = Array(12, 1, 13, 33, 62, 18, 99)For i = 0 To 6  Print a(i);NextPrintEnd Sub]