请帮忙把全部翻译下，越详细越好

Dim a(10) As Integer, i As Integer
Private Sub s1()
Option Explicit
Dim i%, j%, k%
Private Sub Form_Click()
i = 0: j = 1: k = 2
Call q(i, k): Print i, j, k
Call q(j, k): Print i, j, k
Call q(k, j): Print i, j, k
End Sub
Private Sub q(ByVal h%, ByVal k%)
Dim j%
j = k
If h = 0 Then
Call p(i)
ElseIf h = 1 Then
Call p(j)
Else
Call r
End If
End Sub
Private Sub p(j%)
j = j + 1
Print i, j, k
End Sub
Private Sub r()
j = j + 1
End Sub
那是什么回答啊
简直就是用金山翻译了一遍
鄙视！！！！！！
希望有学问的人帮忙解答一下
不要不懂装懂！！！！
VB高手速度来解答，谢了
你们可能误会了，或者是我没讲清楚
我是希望你们解释是把答案算出来的同时解释下，就是屏幕上所输出的内容，因为我自己用VB6.0试过出答案但是不知道怎么得出的，所以请帮忙解释下！！！
速度了啊，谢了
第二个答案不够详细，只是简单的把几句解答了一下，希望能够详细地把程序中的调用解答

Dim a(10) As Integer, i As Integer '定义窗体层变量a(10)和i都是短整型，不过这里有个错误：a(10) As Integer是不能在窗体层定义的，只能定义成a() as integer，然后在程序中用redim重新定义
Private Sub s1() '了程序s1
Option Explicit '强制声明所有变量
Dim i%, j%, k% '定义窗体层变量i、j、k都是短整型，这里也有问题，i在前面已经定义过了。
Private Sub Form_Click() '窗体的单击事件
i = 0: j = 1: k = 2 '令i = 0: j = 1: k = 2
Call q(i, k): Print i, j, k '先调用子程序q，参数是i，k，然后以宽行格式打印i, j, k
Call q(j, k): Print i, j, k '先调用子程序q，参数是j，k，然后以宽行格式打印i, j, k
Call q(k, j): Print i, j, k '先调用子程序q，参数是k，j，然后以宽行格式打印i, j, k
End Sub '结束
Private Sub q(ByVal h%, ByVal k%)'定义子程序q
Dim j% '定义变量j
j = k '令j=传过来的参数k
If h = 0 Then '如果传过来的参数h为0，
Call p(i) '就把i作为参数，调用子程序p
ElseIf h = 1 Then '如果传过来的参数h为1
Call p(j) '就把j作为参数，调用子程序p
Else '如果都不是
Call r '就调用子程序r
End If'结束判断

End Sub '结束子程序
Private Sub p(j%) '定义子程序p
j = j + 1 '把j自加1