VB求解数学问题，求两个数最大公约数源代码实例

在这里小编给大家提供VB求解数学问题，求两个数最大公约数源代码实例下载，都是比较常用和简单的。有需要学习相关编程的可以下载回去研究一下。
VB6.0演示一个求解数学问题，求两个数最大公约数，这是个简单的数学问题，数学基础好，用VB很轻松就编写出本程序了。在运行的窗口中，分别输入两个整数，单击按钮，程序将显示两个数的最大公约数是多少。求解的过程代码描述如下：
　　If (Val(Text1.Text) = 0 Or Val(Text2.Text) = 0) Or Val(Text1.Text) > 2147483647 Or Val(Text2.Text) > 2147483647 Then
　　 MsgBox "输入的数0或溢出，请重新输入！"
　　 MsgBox "输入的数0或溢出,请重新输入!", vbInformation + vbOKOnly, "数据错误"
　　 Text1.Text = ""
　　 Text2.Text = ""
　　 Text1.SetFocus
　　Else
　　 m = Val(Text1.Text)
　　 n = Val(Text2.Text)
　　If m < n Then
　　 temp = m: m = n: n = temp
　　End If
　　Do
　　 r = m Mod n
　　 m = n
　　 n = r
　　Loop While r <> 0
　　Label3.Caption = "两个正整数m和n的最大公约数为: " & m
　　End If

关键词：最大公约数