VB中代码问题

Dim ww As Integer
    Dim hh As Integer
   
    ww = Text9.Text
    hh = Text10.Text
   
    For i = 1 To hh
        For j = 1 To ww
            Get #1, , a(i, j)
            a(i, j) = a(i, j) - 48
        Next j
        Get #1, , j
        If j <> 13 Then
            MsgBox "源文件“" & fname & "”格式不正确或与要求不符", , "提示"
            Beep
            Close #1
            GoTo err_handle
        End If
        Get #1, , j
        If j <> 10 Then
            MsgBox "源文件“" & fname & "”格式不正确或与要求不符", , "提示"
            Beep
            Close #1
            GoTo err_handle
        End If
    Next i
    Close #1

帮我详细讲解下每句代码的大概意思，谢谢啦

追问：CommonDialog1.ShowOpen
    fname = CommonDialog1.FileName
    If fname = "" Then GoTo err_handle
    
    
    Open fname For Random As #1 Len = 2 这些你能懂一些吗？先谢谢你啊

答案：这个程序不完整,估计是这样的:运行的时候在文本框text9和text10里输入一个二维数组的下标值,比如 5 6,然后从文件#1(打开的过程没有,前面应该有定义fname的)中读出数据到数组 a(6,5) 中,每读完一个数组行,判断最后二个数值是不是 13  和 10 (我觉得应该是13和 10的ascii码,以判断是否是行结束标志),如果不是就 beep报警并转到出错捕捉程序行 err_handle.
 
也就是说如果你要读取一个  5行 6列的数据的话,那个文件必须每行只有6个数据,如果文件第一行有七个或者少于6个,就会出错!!
我不懂 哈哈
首先定义两个变量hh和ww，这时候将其放到文本框9、10中,之后又定义一个数组，让其上标和下标分别为i和j。这个里面用到了goto语句，一般不推荐使用