在窗体上有一个命令按钮Command1，通用过程fun和命令按钮的事件过程如下：
Private Function fun(ByVal m As Integer)
If m Mod 2=0 Then
fun=2
Else
fun=1
End If
End Function
Private Sub Command1_Click()
Dim i As Integer,s As Integer
s=0
For i=1 To 5
s=s+fun(i)
Next
Print s
End Sub
程序运行后，单击命令按钮，则窗体上输出( )。

A．6

B．7

C．8

D．9

已知两圆相交，其圆心距为6，大圆半径为8，则小圆半径r的取值范围是(  )

(A)r>2    (13)2<r<14    (C)l<r<8    (13)2<r<8