今天学习了一门新的计算机语言VB,真的很高兴,这让我进一步了解了计算机的奥秘,原来计算机可以这样用,原来VB这么有用,原来我认为很难的东西计算机可以算得那么快那么好,真的很喜欢这门功课,当我看到自己亲自做成一个程序以后,我非常激动,我决定以后努力学习这门功课,学好这门功课,因为我知道,生活在这个信息时代,计算机是那么的重要,公司,银行,学校,乃至家庭,计算机已经成为了人们生活的一部分,我也深知,作为一名当代大学生,计算机对我们的重要性。对了,我们几天学习了一个小程序,如下:
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 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