Не могу разобраться с кодом в VB

Формулировка задачи:

Есть условие задачи и код программы, нужно объяснить, почему использовался именно этот код. Я совсем не разбираюсь в vb, кто-нибудь сможет мне объяснить, например, зачем мы здесь вводим функцию? И вообще сам код Условие: Дан двумерный массив размером n*m. 1. Заменить максимальный элемент каждой строки нулем 2. Вставить перед всеми строками, первый элемент которых делится на 3, строку из нулей. 3. Удалить самый левый столбец, в котором встретится четный отрицательный элемент. 4. Поменять местами второй и предпоследний столбцы. Ну, и собственно сам код:

Dim a() As Integer 
Dim n, m As Integer 
Dim mas_tmp() As Integer 
 
Function ins(k1 As Integer) 
 For i1 = n - 1 To k1 + 1 Step -1 
 For j1 = 0 To m - 1 
a(i1 + 1, j1) = a(i1, j1) 
Next j1, i1 
For j1 = 0 To m - 1 
 a(k1 + 1, j1) = a(0, j1) 
Next j1 
End Function 
 
Private Sub Command1_Click() 
ReDim a(10, 10) 
Picture1.Cls 
Picture2.Cls ф
Dim str1 As String 
 
Dim b(10, 10) As Integer 
Dim indi, indj As Integer 
Dim prompt As String 
 k = FreeFile() 
 Open App.Path + "" + "data.txt" For Input As #k 
 Seek (k), 1 
 Input #k, str1 
 n = Val(str1) 
 Input #k, str1 
 m = Val(str1) 
 For i = 2 To n + 1 
 Dim st As String 
 Input #k, str1 
 For j = 0 To m - 1 
 a(i - 2, j) = Split(str1, " ")(j) 
 Next j 
 Next i 
 Close #k 
 
 prompt = "" 
 For i = 0 To n - 1 
 For j = 0 To m - 1 
 prompt = prompt & a(i, j) & vbTab 
 Next j 
 prompt = prompt & Chr(13) 
 Next i 
 Picture1.Print prompt 
 
For i = 0 To n - 1 
Max = a(i, 0) 
indi = i 
indj = 0 
For j = 0 To m - 1 
If a(i, j) > Max Then 
Max = a(i, j) 
indi = i 
indj = j 
End If 
Next j 
a(indi, indj) = 0 
Next i 

For i = 0 To n - 1 
 t = "" 
 For j = 0 To m - 1 
 t = t & a(i, j) & vbTab 
 Next 
 Picture2.Print t 
Next 

j = 0 
Do 
For i = 0 To n - 1 
If a(1, j) Mod 3 = 0 And a(1, j) <> 0 Then 
ins (i) 
m = m + 1 
i = i + 1 
Exit For 
End If 
Next i 
j = j + 1 
Loop While j <= m - 1 
 
For i = 0 To n - 1 
 t = "" 
 For j = 0 To m - 1 
 t = t & a(i, j) & vbTab 
 Next 
 Picture3.Print t 
Next 
 
k = 0 
ReDim mas_tmp(n - 1, m - 1) 
For i = 0 To n - 1 
 For j = 0 To m - 1 
 mas_tmp(i - k, j) = a(i, j) 
 If a(i, j) < 0 Then k = k + 1: Exit For 
 Next 
Next 
ReDim a(n - 1 - k, m - 1) 
a = mas_tmp 
For i = 0 To n - 1 - k 
 t = "" 
 For j = 0 To m - 1 
 t = t & a(i, j) & vbTab 
 Next 
 Picture4.Print t 
Next 
 
For i = 0 To n - 1 
temp = a(i, 1) 
a(i, 1) = a(i, m - 1) 
a(i, m - 1) = temp 
Next i 
 
 prompt = "" 
 For i = 0 To n - 1 - k 
 For j = 0 To m - 1 
 prompt = prompt & a(i, j) & vbTab 
 Next j 
 prompt = prompt & Chr(13) 
 Next i 
 Picture5.Print prompt 
End Sub

Решение задачи: «Не могу разобраться с кодом в VB»

textual
                            Листинг программы 
                        

                            Sub Main()
    temp = Application.InputBox(Prompt:= _
        "Введите температуру в градусах Фаренгейта.", Type:=1)
    MsgBox "Температура равна " & Celsius(temp) & " градусов Цельсия."
End Sub
 
Function Celsius(fDegrees)
    Celsius = (fDegrees - 32) * 5 / 9
End Function
                        