鸡兔同笼问题,用Vb编程解决,上有头100只,下有脚300,问鸡与兔各有多少只,要用到for

来源:学生作业帮助网 编辑:作业帮 时间:2024/05/04 18:53:32
鸡兔同笼问题,用Vb编程解决,上有头100只,下有脚300,问鸡与兔各有多少只,要用到for

鸡兔同笼问题,用Vb编程解决,上有头100只,下有脚300,问鸡与兔各有多少只,要用到for
鸡兔同笼问题,用Vb编程解决,上有头100只,下有脚300,问鸡与兔各有多少只,要用到for

鸡兔同笼问题,用Vb编程解决,上有头100只,下有脚300,问鸡与兔各有多少只,要用到for
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 '鸡2只脚,兔子4只脚
Print "其中鸡有" & Cock & "只,兔子有" & Rab & "只"
End If
Next
End Sub