下列程序的功能是计算两个自然数的最大公约数，如图1所示。给定的程序不完整，将程序补充完整。

Private Sub Command1_Click( )
　　Dim x As Long， y As Long， i As Long
　　x = Val(Text1.Text)
　　y = Val(Text2.Text)
　　Text3.Text = Str( (13) )
End Sub
Function fun1(a As Long， b As Long)As Long
　　Dim r As Long
　　Dim t As Long
　　If (14) Then
　　　　t = a
　　　　a = b
　　　　b = t
　　End If
　　r = a Mod b
　　Do While r ＜＞ 0
　　　　a = b
　　　　b = r
　　　　r = a Mod b
　　Loop
　　　 (15)
End Function