VB源码最新内容
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
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
关键词:最大公约数
VB源码相关推荐
- 2.78KVB6.0 使用API函数获取文件最后修改时间源代码实例
- 2.72KVB 制作窗口带图标的菜单源代码实例
- 1.93KVB长文件名转换成短文件名源代码实例
- 7.83KVB6.0 质量流量计串口通讯源代码实例
- 2.92KVB6.0 串口发送和接收二进制数据源代码实例
- 8.03KVB6.0 数据实时曲线的绘制与滚动显示_无背景图滚动显示源代码实例
- 8.97KVB电子秤串口通讯源代码实例
- 28.8KVB6 利用Combo、DTPicker组合框辅助录入数据源代码实例
- 36.9KVB串口调试程序 完善版源代码实例
- 18.3KVB 6.0源码 批量重命名文件源代码实例
- 2.50KVB6 串口测试程序源代码实例
- 2.29KVB6.0 串口发送数据源代码实例
VB源码人气排行更多》
- 2.05KVB6.0 判断成绩级别(及格 、不及格、优秀)源代码实例
- 1.83KVB6.0 调用系统菜单的制作实例源码源代码实例
- 2.93K又一个VB串口发送接收数据源代码实例
- 36.9KVB串口调试程序 完善版源代码实例
- 7.83KVB6.0 质量流量计串口通讯源代码实例
- 2.47KVB 从INI文件读取程序设置源代码实例
- 2.01KVB求解数学问题,求两个数最大公约数源代码实例
- 2.23KVB从INI文件一次性获取信息源代码实例
- 18.3KVB 6.0源码 批量重命名文件源代码实例
- 19.1KVB 串口通讯:浓度分析仪程序源码源代码实例