窗体上有一个名称为Command1的命令按钮，其中部分代码如下：

calc过程的首行应该是（　　）。

A.Subcalc（x（）AsInteger，nAsInteger）

B.PublicSubcalc（x（）AsInteger）

C.PrivateSubcalc（a（n）AsInteger，nAsInteger）

D.PublicSubcalc（aAsInteger，nAsInteger）