求最大公约数

            

         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 <>

         M=N

         N=Remainder

         Remainder=M Mod N

         Wend

         Label4.Caption=Str(N)

         End Sub

        其实在刚刚发课本的时候我大约翻了下课本,觉得没什么意思,书中的内容一点都不懂,对这半年的计算机课不感兴趣。但上课之后,老师给做了一个程序就觉得很有意思,我又觉得VB的设计很好玩,所以又有点迫不及待的想上机自己试一下。终于到了自己练习的时候了,但程序写完后运行不了,我就一边又一遍的检查自己的步骤,但也没有错啊,后来终于发现是自己把单词的顺序打错了。看到自己做的能运行了觉得很高兴,虽然程序是照抄老师的,但还是觉得很有成就感。

阅读更多
文章标签: integer command vb
个人分类: 综合
下一篇成功的路上会布满荆棘
想对作者说点什么? 我来说一句

求 两个数 的 最大公约数

2011年05月18日 218B 下载

没有更多推荐了,返回首页

关闭
关闭