求最大公约数
来源:互联网 发布:炒股软件安全吗 编辑:程序博客网 时间:2024/05/18 01:03
Option Explicit
Private Sub Command1_Click()
Dim M As Integer
Dim N As Integer
M=Int(Val(Text1.Text))
N=Int(Val(Text2.Text))
Dim TemporyValue As Integer
If M<N Then
TemporyValue=M
M=N
N=TemporyValue
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
在上了计算机课后,我才发现我对计算机了解的太少了。经过两次的软件程序设计,我突然感慨计算机真的好神奇,就那么一个小小的机器却又那么强大的力量。一个小小的程序设计,对于我来说是完全陌生的。第一次设计求最大公约数的程序真的好难,明明就已经按照了老师给的步骤写了,可我就不明白了为什么就不能设计出来。我改了好多遍,检查了好多遍,没有错啊,我真的非常郁闷,我又怕是我本来就抄错了,可我和我旁边的同学对照了一下也没有错啊。实在没有办法,我们问了旁边的一个学长,可人家来了,一下就弄好了,后来他又给我讲了一下我错的原因,我才恍然大悟。之后我自己又重新设计了一下,终于被我设计成功了,激动的心情难以言表啊。
一节课让我明白了一个道理,凡事都得细心,只有细心才能成功!
- 求最大公约数
- 求最大公约数
- 求最大公约数
- 求最大公约数
- 求最大公约数
- 求最大公约数
- 求最大公约数
- 求最大公约数
- 求最大公约数
- 求最大公约数
- 求最大公约数
- 求最大公约数
- 求最大公约数
- 求最大公约数
- 求最大公约数
- 求最大公约数
- 求最大公约数
- 求最大公约数
- Oracle11gr2分析函数新特性(二)
- 今天成功把MFC代码的多语言问题用wxWidgets的方式搞定了
- Nginx 环境搭
- VB实验报告
- 嵌入式nfs问题解决总结
- 求最大公约数
- 用 PuTTy 实现本地文件上传下载
- C++中int到string的转换
- C# 中如何实现数组的 Join
- js 计算时间差
- XAF之Security System
- 双绞线制作实验报告
- 爱4妮 struts2.1 + hibernate3.3 +spring2.5 + 仿Google数字分页
- 学习笔记——XML Schema复杂类型