用括号内所给单词的正确形式填空。

1. Seeing is ____ (believe).

2. I'm sorry to have kept you ____ (wait) so long.

3. I heard Mr. Smith ____ (sing) in the next door.

4. I felt someone ____ (pat) on the shoulder.

5. The little girl is ____ (whisper) something in her granny's ear.

6. My hobby is ____ (collect) stamps.

7. The film is so ____ (interest) that they are all interested in it.

8. Your ____ (smoke) too much will do harm to your health.

9. When he came in, we all stopped ____ (talk).

10. This is her father's ____ (walk) stick.

在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Function fun1(n As Integer)As Integer
　　Dim k As Integer
　　If n = 1 Then
　　　　k = 1
　　Else
　　　　k = 1 + fun1(n - 1)* 2
　　End If
　　fun1 = k
End Function
Private Sub Command1_Click( )
　　Dim m As Integer, x As Integer
　　x = 4
　　m = fun1(x)
　　Print m
End Sub
程序运行后，单击命令按钮，则窗体上显示的内容是________。

A．4

B．6

C．9

D．15