我的VB第一次作业

    初学计算机课学的Visual Basic语言，上机时老师要求模仿一个最大公约数的工程。哇。。。看到那一堆符号都不知道什么意思。但，照葫芦画瓢还是会的，于是就一点点儿的“画”了起来，做的过程中是大错不犯，小错不断，但在学长的帮助下终于成功啦！那种兴奋之情溢于言表，哈哈。。。下面就是工程步骤：

Step1.开始-----程序----Microsoft visual Basic6.0 中文版 启动 VB开发软件

Step2.文件-----新建工程-----"标准的exe”----确定

Step3.绘制界面（略）

Step4.双击“开始计算”按钮，放置如下代码：

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