关闭

求最大公约数

标签: integercommandvb
145人阅读 评论(0) 收藏 举报
分类:
            

         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的设计很好玩,所以又有点迫不及待的想上机自己试一下。终于到了自己练习的时候了,但程序写完后运行不了,我就一边又一遍的检查自己的步骤,但也没有错啊,后来终于发现是自己把单词的顺序打错了。看到自己做的能运行了觉得很高兴,虽然程序是照抄老师的,但还是觉得很有成就感。

0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:7720次
    • 积分:203
    • 等级:
    • 排名:千里之外
    • 原创:15篇
    • 转载:0篇
    • 译文:0篇
    • 评论:0条
    文章分类
    文章存档