关闭

第一节程序设计课

86人阅读 评论(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网站的观点或立场
    个人资料
    • 访问:2792次
    • 积分:113
    • 等级:
    • 排名:千里之外
    • 原创:11篇
    • 转载:0篇
    • 译文:0篇
    • 评论:0条
    文章存档