Module Module1

  Sub Main()
    Dim i, j, sum As Integer
    For i = 1 To 4 Step 1
        sum = 1
        For j = i To 6 Step 1
          sum = sum * j
        Next
        Console.WriteLine(i & "*...*6=" & sum)
    Next
    Console.ReadLine()

  End Sub

End Module
--------------------------------------------------------
以上请帮我解释一下~谢谢