当前位置:首页 > 正文

求编写一个程序: 鸡兔同笼,共m个头,n只脚,计算鸡有多少只,兔有多少只。m,n为已知量,在

作者:烟栀发布时间:2023-02-26浏览:463


Private Sub Command1_Click()

m = Val(Text1.Text)

n = Val(Text2.Text)

can = True

If m < 0 Or n < 0 Or m <> CInt(m) Or n <> CInt(n) Then MsgBox "头和脚的数目必须是非负整数!": can = False

If n Mod 2 = 1 Then MsgBox "脚的数目不可能是奇数!": can = False

If n > 4 * m Then MsgBox "不可能有这么多脚!": can = False

If n < 2 * m Then MsgBox "不可能只有这么多脚!": can = False

If can Then

Text4.Text = "兔子有 " & (n - 2 * m) 2 & " 只"

Text3.Text = "鸡有 " & m - (n - 2 * m) 2 & " 只"

End If

End Sub


声明:部分资源转载自互联网,转载目的在于传递更多知识,并不代表本网赞同其观点和对其真实性负责。如有侵权或者知识有谬误之处,麻烦通知删除,谢谢!联系方式: zzsla2022#163.com