第一次接触工程,自己设计软件,额,虽然这个软件不是设计的,但是当看到自己的劳动成果的时候,真的很骄傲,觉得很开心!
不过,毕竟是第一次做,额,费了很多的时间不说,第一次做出来的竟 然是错的,额,,当时那个流汗啊,还好有指导我们的学长,他检查了一遍后,意味深长的说道:“你检查一遍吧,没有技术性错误,只有拼写性错误。”后来自己就一个一个字的才对照呢,最后检查出来了,才知道自己的错误原来是那么低级,当时那个悔呀,自己太不小心了,不过毕竟是第一次做工程啊,一点小错是可以原谅的。
做工程的操作如下:
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