运行下列程序: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