第一次编程序求最大公约数2.15

发布时间：2020-12-16 22:33:09 所属栏目：大数据来源：网络整理

导读：虽然过程很难，但是通过努力自己成功了，心里很happy。体会到了编程的乐趣，以后继续努力学好VB。过程如下： 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 Int

虽然过程很难，但是通过努力自己成功了，心里很happy。体会到了编程的乐趣，以后继续努力学好VB。

过程如下：

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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!