关于VB的Byte数组的初始化

        最近在研究一些文件结构这类的东西，遇到不少问题，也在摸爬滚打中学到了不少东西。可能很多朋友会遇这些类似的问题，今天就把我总结的一点东西特地分享出来，不正确的地方，也请学长些多多指教啦。

        首先今天就先来说一说VB中的Byte数组初始化吧。比如一个20字节的Byte数组，我要初始化它的所有元素的值全部为0，则可以有以下几种方法（有其他方法的朋友请交流补充哦）：

       

    Dim byt() as byte

        一、用For循环

    Dim i as long
    Redim byt(0 to 19)
    For i=0 to 19
          byt(i)=0
    Next

        二、用Strconv函数

    byt = StrConv(String(20, Chr(0)), vbFromUnicode)

        三、一个技巧，关键字Preserve

<pre name="code" class="vb">    <span style="font-family: Arial, Helvetica, sans-serif;">结果今天发现：直接用ReDim Preserve byt(19），即可把字节数组初始化为：20字节长度、且每个元素自动填充为空字符0。费半天劲，就这个关键字解决所有。</span>

        最后写入文件，用WinHex等软件打开看效果：

    Open "C:\1.tmp" For Binary As #1
    Put #1, , byt
    Close #1