填空题

有如下程序段：
Public Sub xy (a As Integer,b As lnteger)
Dim t As Integer
Do
t=-a Mod b
a=b：b=t
Loop While t
Print a
End Sub
用Call xy(96,40)调用该通用过程后，输出结果是 【15】 。