设有如下程序： 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 以上程序的功能是______。程序运行后，单击窗体，输出结果为______。

FOXBASE中的常量分为（）种。

A、6

B、3

C、8

D、4