[quote]
joforn老师：
    我使用了SEEK，程序如下：

Private Sub Command1_Click()
   Dim DataB(0 To 16) As Byte, i As Long, s$, S1$, J%
   s = "0123456789ABCDEF"
   Open App.Path & "\My_txt" For Binary As #2
   For J = 1 To 10
      Seek #2, J * 16
      For i = 1 To 16
         S1 = Hex2Dec(Mid(s, i, 1))
         DataB(i) = S1
      Next
      Put #2, , DataB()
   Next J
   Close #2
End Sub

但结果还是其字串的最后一个字节被置零，只有最后写入的为正确值。如下图所示：


[img]d:\04.bmp[/img]

请指教！我将不胜感激！！！！！！！

[/quote]

你定义的数组是从0 To 16　但你实际只用了 1 To 16，你改成 Dim DataB(1 To 16) As Byte试试

joforn老师：

    好了！！！
    万分感谢！！！！！！