第一次照搬程序的感想

啊，虽然我去晚了，但是我迎难而上，努力赶上他们的步骤，顶着巨大压力，坚持不懂就问的原则，最终还是让老师帮我弄出来了。嘻嘻
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

Label5.Caption = Str(N)

End Sub
首先我发现我打字母太慢，所以以后要多练习。
其次，就是老打错单词，看来学好英语很重要。
最后，label是不能乱用的，简单最好
报告完毕。
钦此
学生：李亚伟