有如下VB程序段：

Dim x As String, y As String

 Dim ans As Integer

 x=“5”：y=“20”：ans=0

 If x>y Then ans=Val(x)Else ans=Val(y)

ans=ans+Val(x+y)

Text1.Text=Str(ans)

程序运行完后，文本框Text1中显示的是：（  ）

A、25

B、30

C、540

D、525