问题
填空题
设有如下程序:
Private Sub Form_Click()
Dim a As Integer,s As Integer
n=8
s=0
Do
s=s+n
n=n-1
Loop While n>0
Print s
End Sub
以上程序的功能是 (10) 。程序运行后,单击窗体,输出结果是 (11) 。
答案
参考答案:求数字1至8之和
设有如下程序:
Private Sub Form_Click()
Dim a As Integer,s As Integer
n=8
s=0
Do
s=s+n
n=n-1
Loop While n>0
Print s
End Sub
以上程序的功能是 (10) 。程序运行后,单击窗体,输出结果是 (11) 。
参考答案:求数字1至8之和