VB编程求鸡兔同笼问题

2024-12-25 06:45:30

推荐回答（1个）

回答1：

Private Sub Command1_Click()
'鸡兔同笼问题
Dim Cock As Integer
Dim Rab As Integer
For Cock = 0 To 100
Rab = 100 - Cock
If Cock * 2 + Rab * 4 = 300 Then
Print "其中鸡有" & Cock & "只,兔子有" & Rab & "只"
End If
Next
End Sub

最新问答

为什么我都23岁了还老是扁桃体发炎以前小时侯倒是没出现过这病这病不是1~10岁的幼童得的吗？

新野有那些地方好玩？要健康的娱乐场所

谁能救救我，我要痛苦死了，医生请进

平安健康险是真的吗，70岁的老人可以买吗？

浅簏浅뾩ᠡ゜載求大神改成尐美

四小天鹅舞曲是多少级的

求一篇赞美农村信用社的朗诵诗歌，急用

求大神帮忙做一个51单片机的程序，感谢！！！

14×6=21×4能写出几个比例？

单身就单身，为什么要叫单身狗呢