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

首先今天就先来说一说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

    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