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