阿特金森的成就动机理论

阅读以下程序： Private Sub Form_click() Dim k, n, m As integer n = 20 m = 1 k = 1 Do While k ＜= nm=m+2k = k + 1 Loop Print m End Sub 单击窗体程序的执行结果是 【4】 。