下面程序的运行结果是 (14) 。程序的功能是 (15) 。
Public Function myfun(m,n)
Do while m＞n
　Do while m＞n:m=m-n:Loop
　Do While n＞m:n=n-m:Loop
Loop
Myfun=m
End　Function
Private Sub Command1_Click()
Print myfun(15,15)
End Sub

简述国民经济分析的主要内容。