作业帮 > 综合 > 作业

利用vb解决鸡兔同笼问题,总数有m只鸡和兔,鸡和兔的总脚数是n只,求鸡和兔各有多少只?

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/10/02 18:11:15
利用vb解决鸡兔同笼问题,总数有m只鸡和兔,鸡和兔的总脚数是n只,求鸡和兔各有多少只?
Private Sub Command1_Click()
Dim m,n
m = Val(InputBox(请输入总头数))
n = Val(InputBox(请输入种脚数))
Print "鸡","兔"
For i = 1 To m
For j = 1 To m
If i * 2 + j * 4 = n And i + j = m Then Print i,j
Next j
Next i
End Su