VB学习第十一周求取输入两个整数的最大公约数

概述Public Class Form1 Sub proc(ByVal a%, ByVal b%, ByRef s%) Dim t%, r% If a < b Then t = a : a = b : b = t r = a Mod b Do While (r <> 0) a = b : b = r : r

Public Class Form1    Sub proc(ByVal a%,ByVal b%,ByRef s%)        Dim t%,r%        If a < b Then t = a : a = b : b = t        r = a Mod b        do while (r <> 0)            a = b : b = r : r = a Mod b        Loop        s = b    End Sub    Private Sub button1_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles button1.Click        Dim x%,y%,z%        x = TextBox1.Text        y = TextBox2.Text        Call proc(x,y,z)        TextBox3.Text &= x & "和" & y & "的最大公约数是" & z & vbCrLf           End Sub    Private Sub button2_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles button2.Click        End    End Sub    Private Sub Form1_Load(sender As Object,e As EventArgs) Handles MyBase.Load    End SubEnd Class

总结

以上是内存溢出为你收集整理的VB学习第十一周求取输入两个整数的最大公约数全部内容，希望文章能够帮你解决VB学习第十一周求取输入两个整数的最大公约数所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。