当前位置:首页 » VB程序题 » 正文

VB程序题:参见教材例6.2,编一求两数m,n最大公约数的函数过程f(m,n);主调程序在两个文本框接受输入数据,在图形框显示结果。如下图所示 VB源码 龚沛曾

VB程序题:参见教材例6.2,编一求两数m,n最大公约数的函数过程f(m,n);主调程序在两个文本框接受输入数据,在图形框显示结果。如下图所示  VB源码 龚沛曾

解题,在窗体上画一个按钮,两个文本框,一个图片框,两个标签控件。代码如下:

Private Sub Command1_Click()
    Dim mm%, nn%
    mm = Val(Text1)
    nn = Val(Text2)
    Picture1.Print mm; Tab(6); nn; Tab(12); gcd(mm, nn)
End Sub
Function gcd%(ByVal m%, ByVal n%)
    If m < n Then t = m: m = n: n = t
    r = m Mod n
    Do While (r <> 0)
        m = n: n = r: r = m Mod n
    Loop
    gcd = n
End Function

运行程序效果图如下:


Visual Basic程序设计教程(第3版) (龚沛曾等编)课后实验源码

来源:济亨网

本文链接:http://wb86.com/post/90.html

    << 上一篇 下一篇 >>

    湘公网安备 43011102000514号 - 湘ICP备08100508号