在窗体上画一个命令按钮，然后编写如下程序： Function fun(ByVal num As Long)As Long Dim k As Long k=1 num=Abs(num) Do While num k=k*(num Mod 10) num=num\10 Loop fun=k End Function Private Sub Command1_Click() Dim n As Long Dim r As Long n=InputBox("请输入一个数") n=CLng(n) r=fun(n) Print r End Sub 程序运行后，单击命令按钮，在输入对话框中输入"345"，输出结果为 【10】 。

王某在新兴商场选购速冻饺子，售货员向其推荐三鲜馅饺子，说是刚进的货，保鲜保香、价廉物美。王某问：“是不是牛肉馅的我只要牛肉馅的。”售货员回答：“是牛肉馅的。”于是王某购买了3斤三鲜馅速冻饺子，支付价款24元。该饺子包装上的生产日期模糊不清，但售货员向王某保证是“刚进的货”。待王某放心地把饺子煮熟后，才发现该饺子不但不是牛肉馅的，而且因馅已变质而不能入口。下列表述中，不正确的一项是：(　)

A．新兴商场违反了依照法律、法规应尽的义务和依双方约定应尽的义务

B．新兴商场违反了经营者向消费者提供有关商品与服务的真实信息的义务

C．新兴商场违反了不得单方作出对消费者不利规定的不作为义务

D．新兴商场违反了保证商品或服务的质量义务