下面子过程语句说明合法的是（）

ASubf1（ByValn（）AsInteger）

BFunctionf1（f1AsInteger）AsInteger

CSubf1（n（）AsInteger）AsInteger

DFunctionf1（ByValnAsInteger）AsInteger