有如下程序代码（）PrivateSubForm_MouseDown（ButtonAsIntegr,ShiftAsInteger,XAsSingle,YAsSingle)FillColor=QBColor（Int（Rnd*15))FillStyle=Int（Rnd*8)Circle（x,y),250EndSub该程序的功能是：

A、鼠标拖曳时在窗体中构造一个圆

B、双击鼠标时在窗体中构造一个圆

C、单击鼠标时在窗体中构造一个圆

D、加载时在窗体中构造一个圆

请帮忙给出正确答案和分析，谢谢！