VB求最大公约数

Public Class Form1
    Function gcd(ByVal m%, ByVal n%) As Integer
        Dim r%, t%
        If m < n Then
            t = m : m = n : n = t
        End If
        r = m Mod n
        Do While (r <> 0)
            m = n : n = r : r = m Mod n
        Loop
        gcd = n
    End Function
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim i%, x%, y%, z%, context$
        context = ""
        Randomize()

        For i = 1 To 10

            x = Rnd() * (200 - 20) + 20
            y = Rnd() * (200 - 20) + 20
            z = gcd(x, y)
            context = context & x & "和" & y & "的最大公约数是：" & z & Chr(13)
        Next
        Label1.Text = context
    End Sub
End Class