Question

用vb语言编写一个程序，随机生成两个100-300之间的正整数，显示他们，并求这两个数的最大公约数

Answer 1

Imports System.Math
Public Class Form1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim a, b As Integer
        Dim min, max As Integer
        min = 100
        max = 300
        Randomize()
        a = CInt((max - min) * Rnd() + min)
        b = CInt((max - min) * Rnd() + min)
        TextBox1.Text = a
        TextBox2.Text = b
        TextBox3.Text = getGreatestDivisor(a, b)
    End Sub
    Private Function getGreatestDivisor(ByVal m As Integer, ByVal n As Integer) As Integer
        Dim c As Integer
        c = m Mod n
        While (c <> 0)
            m = n
            n = c
            c = m Mod n
        End While
        Return n
    End Function

End Class

Answer 2

如图所示，望采纳。。。