在锐角三角形ABC中，角A，B，C的对边分别为a，b，c，且acosC，bcosB，ccosA成等差数列．

（1）求角B的大小；

（2）求2sin²A+cos（A-C）的取值范围．

窗体上有一个名称为Text1的文本框和一个名称为Command1、标题为“计算”的命令按钮，如图所示。函数fun及命令按钮的单击事件过程如下，请填空。

Private Sub Command1_Click()
Dim x As Integer
x=Val(InputBox("输入数据"))
Text1=Str(fun(x)+fun(x)+fun(x))
End Sub
Private Function fun(ByRef n As Integer)
If n Mod 3=0 Then
n=n+n
Else
n=n*n
End If
______n
End Function
当单击命令按钮，在输入对话框中输入2时，文本框中显示的是______。