在窗体上画1个命令按钮，名称为Command1，然后编写如下程序：

Dim Flag As Boolean

Private Sub Command1_Click()

Dim intNum As Integer

intNum=InputBox(“请输入：”)

If Flag Then

Print f(intNum)

End If

End Sub

Function f(X as Integer)As Integer

If X＜10 Then

Y=X

Else

Y=X＋10

End If

f=Y

End Function

Private Sub Form_MouseUp(Button As Integer,Shift As Integer,X as Single,Y As Single) Flag=True

End Sub

运行程序，首先单击窗体，然后单击命令按钮，在输入对话框中输入5，则程序的输出结果为（）。

A．0

B．5

C．15

D．无任何输出

下列不属于波特五力分析法中的内容的是（）。

A、潜在进入者的威胁

B、替代品的威胁

C、购买者的讨价还价能力

D、中间商的讨价还价能力