下载地址

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

常用软件:压缩软件迅雷合集 》播放软件
资源大小:2.01K 更新时间:2019-10-03
资源类型:绿色安全 授权方式:免费下载
资源分类:VB源码 资源人气:35
适用平台:WinAll 推荐等级:
() ()

内容简介

在这里小编给大家提供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

关键词:最大公约数