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