知识点：程序问答（一）
Private Sub Form_DblClick()
Print
Print "*"
For i = 1 To 9
    Print Tab(i * 6); i;
Next i
Print
For j = 1 To 9
    Print j; " ";
    For k = 1 To j
        temp = j * k
        Print Tab(k * 6); temp; " ";
    Next k
 Print
 　Next j
End Sub
问题1：请说明以上程序实现的功能。