问题
填空题
阅读以下程序: 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】 。
答案
参考答案:41
解析: 本题的循环体共要执行20次,m的最终值为1+2*20=41。
阅读以下程序: 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】 。
参考答案:41
解析: 本题的循环体共要执行20次,m的最终值为1+2*20=41。