运行下列程序：Private Sub Command1_Click（)a = Val（InputBox（"a = "))Print fun1

运行下列程序：

Private Sub Command1_Click()

a = Val(InputBox("a = "))

Print fun1(a)

End Sub

Private Function fun1(b)

If b > 0 Then

fun1 = 10

ElseIf b = 0 Then

fun1 = 9

Else

fun1 = 8

End If

End Function

单击按钮后从键盘为变量a输入数据3，输出的结果是()。

A.3

B.8

C.9

D.10