vb 求高手帮我解释一下这段编码

高手来看看关于VB编程中的一段代码,帮忙解释一下~

On Error Resume Next '如果出错，就忽略，直接运行下一句
Dim APP1() As Byte '定义可变数组，类型为Byte
If Dir(App.Path & "\文件名.exe") = "" Then '如果当前路径下没有“文件名.exe”，那么
APP1 = LoadResData(101, "CUSTOM") '调用资源文件中的CUSTOM，赋值给数组APP1
Open App.Path & "\文件名.exe" For Binary As #2 '在当前路径下新建文件名.exe
Put #2, , APP1 '把APP1的内容写入这个文件
Close #2 '关闭这个文件
End If '结束判断
Shell "文件名.exe", vbHide '以隐藏窗口方式运行这个文件

在Print secproc(c,b,a)里，先调用了firproc(a,c,b)
即fireproc(3,5,4),即2*3+5+3,返回的是14，
然后运算15+c+7,c是5，secproc返回26

即，最后输出26

不过，firproc里虽然有参数z,但却没有用到z,不知道2*x+y+3是不是楼主z*x+y+3的误录。如果是这种误录的话，结果就是32了

利用循环、tab和空格来控制打印*号。
print后跟分号表示不换行，没有分号的打印完本行后自动换行。

---

vb 求高手帮我解释一下这段编码视频