보기 없는 시험/랜덤문제

Sub Main()
	Dim i = 5
	Dim j,k As Integer
	k = 0
	For j = 1 to i
		k += j
	Next j
	Debug.Print i
End Sub

이 소스를 컴파일할 때, 출력되는 값은?