第三题：请看如下代码 <% TestString="Test" TestA TestB Response.write TestString Sub Test

第三题：请看如下代码

<%

TestString="Test"

TestA

TestB

Response.write TestString

Sub TestA()

TestString="TestA"

End Sub

Sub TestB()

Dim TestString

TestString="TestB"

End Sub

%>

这段代码执行后，运行结果是什么？并解释一下为什么？

请帮忙给出正确答案和分析，谢谢！