下列程序的功能是：弹出一个对话框询问用户是否输出，如果是，则输出；否则结束。请填空。Sub PrintOut()Dim a As Integer a=MsgBox("输出结果"，vblnformation+vbYesNo，"提示:") If a=______ThenPrint "Myresult" End IfEnd Sub

某甲系县政府干部，受其好友某乙之托，带领三个无业青年向某丙逼取赌债，见某丙不愿偿还，便将其关入一间偏僻小屋内，日夜实施辱骂、殴打。某丙被关7日，造成身体重伤、精神恍惚。事后，某甲幡然悔悟，投案自首。请问某甲构成何种犯罪，有几项法定量刑情节：

A．构成非法拘禁罪，3项法定量刑情节

B．构成非法拘禁罪，4项法定量刑情节

C．构成故意伤害罪，2项法定量刑情节

D．构成故意伤害罪，3项法定量刑情节