在窗体上画一个命令按钮，名称为Command1，然后编写如下程序：
Private Sub Command1 Click()
Dim intNum As Integer
intNum＝InputBox("请输入：")
MsgBox f(intNum)
End Sub
Function f(X As Integer)As Integer
f＝IIf(X＜10,X,X+5)
End Function
运行程序，单击命令按钮，在输入对话框中输入5，则程序的输出结果为______。

可用率系数