当前位置:首页
> 正文
求编写一个程序: 鸡兔同笼,共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