在窗体上画一个命令按钮，然后编写如下程序：Function fun (ByVal num As Long) As Long Dim k As Long k=1 num=Abs(num) Do While num k=k*(num\10) num=nm\10 Loop fun=kEnd Function Private Sub Command1_ Click() Dim n As Long Dim r As Long n=InputBox("请输入一个数") n=CLng(n) r=fun(n) MsgBox rEnd Sub程序运行后，单击命令按钮，在输入对话框中输入234，消息框显示的结果为 【14】 。
参考答案：0
解析：[知识点] 模块/VBA程序设计基础[评析] 程序将输入的内容234转变为长整型传入函数fun中，然后进入循环。 循环第一次结束的时候：k=23 num=23 循环第二次结束的时候：k=46 hum=2 循环第三次结束的时候：k=0 num=0
| 完型填空 。 | |||
| Do you like bubble gum (泡泡糖)? Do you know when it was 1 ? In the 1870s, an American discovered bubble gum. 2 name was Thomas Adams. He wanted to find the use of a chicle（一种树胶). Chicle is a Spanish 3 for sticky water that comes from one kind of Mexican tree. Mr Adams wanted to make rubber 4 chicle. He worked in his home while he tried to find a way to make the chicle become stronger. He had a son 5 name was Horatio. He also helped his father now and then. One day, young Horatio began to chew (咀爵) the chicle while he watched his father work. It did not 6 very good, but Horatio enjoyed chewing it. Then the young boy began to blow bubbles with the new chicle-which his father had made. Mr Adams had discovered bubble gum 7 . Mr Adams gave up trying to find a way to make rubber. 8 , he wanted to try to sell the new gum that he had made. He thought 9 people might like the taste, too.He was 10 . Soon, the new gum became more and more popular. | |||
|