vb题，求解答

Sub Main()
        Dim tmp As Integer, i As Integer, j As Integer, k As Integer