vb 二进制打开文件

Question

用二进制方式打开一个文件“G:\学习资料\第六学期\123.JPG”，从180位置开始读取，连续读取四个字节，其数值组成一个2X2的矩阵。写出代码！！！

Answer 1

Dim file() As Byte, MyFiles As String
MyFiles =  "G:\学习资料\第六学期\123.JPG"

Open MyFiles For Binary As #1     '使用二进制方法打开文件
    ReDim file(LOF(1) - 1) As Byte '因为数组从0开始，所以这里数组上标要减去1
    Get #1, , file             '把文件内容存入数组
    Close
Dim a(1, 1)
Dim i As Integer, j As Integer
For i = 0 To 1
    For j = 0 To 1
    a(i, j) = file(179 + i * (2 - 1) + j)
    Next
Next