关闭

学习VB的第一节课

148人阅读 评论(0) 收藏 举报

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

第一次接触VB程序设计,理论课上,老师有数学公式引入,并写出了一个程序设计让我们上机练习,本以为“照葫芦画瓢”是件容易的事,唉,没想到还是出现了一个又一个的错误。
不过,正是一次又一次的失误,才使得我一次又一次的检查,才让我一遍又一遍地去熟悉这天书般的程序。让我明白了一点东西,如编一个程序首先要定义变量,要取一个适当函数。
由此看来,错误不一定都是消极的,有了错误我们才会真正的用心去观查,去发现。并能从中获得更多知识.

0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:7776次
    • 积分:191
    • 等级:
    • 排名:千里之外
    • 原创:14篇
    • 转载:0篇
    • 译文:0篇
    • 评论:0条
    文章存档