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

VB程序题:利用计算机解决古代数学瓿“鸡兔同笼问题”。即已知在同一笼子里有总数为m只鸡和兔,鸡和兔的总脚数为n只,求鸡和兔各有多少只? VB源码 龚沛曾

VB程序题:利用计算机解决古代数学瓿“鸡兔同笼问题”。即已知在同一笼子里有总数为m只鸡和兔,鸡和兔的总脚数为n只,求鸡和兔各有多少只? VB源码 龚沛曾

提示:
鸡、兔的通过输入的m,n,列出方程可解,但不要求出现荒唐的解,(如为负数,或者为半只鸡)。因此,在Text2_LostFocus事件中要考虑下面两个条件:
1.输入的总脚数n必须是偶数,否则提示数据错误的原因,要求重新输入数据。
2.若求出的只数为负数,提示数据错误的原因,要求重新输入数据。

解题:
先在窗体上画1个标签,它们的Caption属性设置为:输入总头数      输入总脚数      求得鸡数     求得兔数。
再画两个文本框,分别接受输入输入总头数和输入总脚数的数据,再画2个标签控件,label2 和 label3

代码如下:

Private Sub Text2_LostFocus()
    If Text1 = "" Or Text2 = "" Then
        MsgBox "请输入相关数据"
        Exit Sub
    End If

    Dim M%, N%, y%
    M = Val(Text1)
    N = Val(Text2)
    If N Mod 2 <> 0 Then
        MsgBox ("脚数必定为偶数")
        Text2 = ""
        Text2.SetFocus
    Else
        y = N / 2 - M
        If y < 0 Then
            MsgBox ("脚数必须>=2倍的头数,请重新输入数据")
            Text2 = ""
            Text2.SetFocus
        Else
            y = N / 2 - M
            Label2 = M - y
            Label3 = y
        End If
    End If

    If N > 4 * M Or N < 2 * M Then MsgBox ("出现了荒唐解,请重新输入数据")
End Sub

运行程序,分别在文本框输入总头数和总脚数,再用鼠标点击文本框1(或按Tab键),就会发生Text2_LostFocus事件,就会求出鸡数,兔数。
运行程序效果图如下:


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

打赏 支付宝打赏 微信打赏

来源:济亨网

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

    << 上一篇 下一篇 >>

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