第一次编程序求最大公约数2.15
来源:互联网 发布:网络信息采集软件 编辑:程序博客网 时间:2024/05/22 04:49
虽然过程很难,但是通过努力自己成功了,心里很happy。体会到了编程的乐趣,以后继续努力学好VB。
过程如下:
Private Sub Command1_Click()
Dim M As Integer
Dim N As Integer
M = Int(Val(Text1.Text))
N = Int(Val(Text2.Text))
Dim Temparyvalue As Integer
If M < N Then
Temparyvalue = M
M = N
N = Temparyvalue
End If
Dim Remainder As Integer
Remainder = M Mod N
While Remainder <> 0
M = N
N = Remainder
Remainder = M Mod N
Wend
Label4 Caption = Str(N)
End Sub
- 第一次编程序求最大公约数2.15
- 求最大公约数程序
- java程序求最大公约数
- 求最大公约数小程序
- 【c++程序】求最大公约数
- 第一次编程序的感想
- 求最大公约数(函数程序)
- 第一次自己编出来的程序
- 编出递归函数求两个数的最大公约数
- 第一次编程作业-求两个整数的最大公约数
- 【程序16】求最大公约数和最小公倍数
- 求两个整数的最大公约数的程序
- hdu 5050 java程序求大数最大公约数
- 用程序求最大公约数的简单方法
- 编一个程序求质数的和
- 求大神帮忙编一段程序
- 编一个程序求质数的和
- 第一次作业:计算“两个整数的最大公约数”程序
- 嵌入式驱动工程师面试题集锦
- Android 多线程编程
- C语言笔试题(8)——链表逆序
- (精)hdoj 2149(只能每一次相加为n+1)(我真的想多啦,哈哈)
- 算法导论读书笔记1
- 第一次编程序求最大公约数2.15
- Notification的使用
- 由于隐式转换导致的负载过高的处理
- boost::pool概览
- Latex中文字体问题
- BIT&spfa_081006day1
- 杭电 1084
- 四、生成随即图形
- 算法竞赛入门经典 3.1 数组