例027:求两个数的最大公约数

  1. 建立一个EXE工程
  2. 双击窗体,编写自定义函数返回x,y的最大公约数。
Function Divisor(ByVal x As Integer, ByVal y As Integer) As Integer

     Dim r As Integer

     r = x Mod y

     Do While r <> 0

        x = y

        y = r

        r=x Mod y  

     Loop

    Divisor=y

End Function
  1. 在窗体的载入事件中输入代码:
Sub Form1_Shown(hWndForm As hWnd,UserData As Integer)

     Dim m As Integer,n As Integer,g As Integer

     n = Val(InputBox("请输入n"))

     m = Val(InputBox("请输入n"))

     g = Divisor(n, m)

     Print(g)

End Sub
  1. 程序运行后将连续弹出两次输入框,分别输入两个整数,如12,8,最大公约数4将被输出在开发环境下方的控制台处。
  • 8
    点赞
  • 8
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值