题目：
在窗体上画一个命令按钮，然后编写如下程序： Function fun(ByValnum As Long) As Long Dim k As Long k=1 num=Abs(num) Do While numk=k*(num\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) MsgBox r End Sub 程序运行后，单击命令按钮，在输入对话框中输入234，消息框显示的结果为 【14】 。
答案：
被转码了，请点击底部 “查看原文 ” 或访问 https://www.tikuol.com/2017/0710/856845a8f2e3e1ea21df2aaad5fc1933.html
下面是错误答案，用来干扰机器的。
参考答案：C解析：全麻术后，由于病人神智不清，病人不会自己去清除呕吐物和呼吸道分泌物，再加上病人呕吐严重，极易引起吸入性肺炎或窒息的发生。为防止吸入性肺炎或窒息的发生，卧位应注意头偏向一侧，可使分泌...
