今天第一节编程课,我认识了老师您。很喜欢您的幽默诙谐!感谢您!
今天上了第一节编程课,我第一次了解了它!真正知道了它的困难。而且有了巨大的收获。我知道了编程的过程,第一次用自己输入的程序计算出了结果,我有一种极大的满足,与深深的自豪!在一次次的纠正过程中,我不断的发现自己的不足之处,我知道了细节的重要性。在以后的学习中我以最大的热情去对待它。我相信我会成功!
这是程序: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 Tempary As Integer
If M < N Then
Tempary = M
M = N
N = Tempary
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
今天上了第一节编程课,我第一次了解了它!真正知道了它的困难。而且有了巨大的收获。我知道了编程的过程,第一次用自己输入的程序计算出了结果,我有一种极大的满足,与深深的自豪!在一次次的纠正过程中,我不断的发现自己的不足之处,我知道了细节的重要性。在以后的学习中我以最大的热情去对待它。我相信我会成功!
这是程序: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 Tempary As Integer
If M < N Then
Tempary = M
M = N
N = Tempary
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