搜狗做题网急求VB选择结构编程问题!
来源：学生作业帮 编辑：搜狗做题网作业帮 分类：综合作业 时间：2024/07/30 15:34:06
急求VB选择结构编程问题!
计算“鸡兔同笼问题”.即在同一个笼子里鸡和兔的总数为m只,鸡和兔的总的脚数为n条,求鸡和兔各有多少只?
要求脚数为偶数；脚数不小于总数的2倍；脚数不大于总数的4倍
PS：运行后如下图.
计算“鸡兔同笼问题”.即在同一个笼子里鸡和兔的总数为m只,鸡和兔的总的脚数为n条,求鸡和兔各有多少只?
要求脚数为偶数；脚数不小于总数的2倍；脚数不大于总数的4倍
PS：运行后如下图.
1、写出方程式就可以实现了.
兔子数＝（n-2m)/2
2、关于输入限制,添加一个验证即可,可以在Text输入时验证,也可以在按下计算按钮时先进行一下验证.
再问： 你能将具体程序是怎样写的告诉我么？谢谢了。
再答： Private Sub Command1_Click() Dim m, n As Integer m = Val(Text1) n = Val(Text2) If n / 2 Int(n / 2) Then MsgBox "脚数必须为双": Exit Sub If n / m < 2 Then MsgBox "脚数小于头数的2倍，请重输！": Exit Sub If n / m > 4 Then MsgBox "脚数大于头数的4倍，请重输！": Exit Sub Text4 = (n - 2 * m) / 2 Text3 = m - Val(Text4) End Sub
兔子数＝（n-2m)/2
2、关于输入限制,添加一个验证即可,可以在Text输入时验证,也可以在按下计算按钮时先进行一下验证.
再问： 你能将具体程序是怎样写的告诉我么？谢谢了。
再答： Private Sub Command1_Click() Dim m, n As Integer m = Val(Text1) n = Val(Text2) If n / 2 Int(n / 2) Then MsgBox "脚数必须为双": Exit Sub If n / m < 2 Then MsgBox "脚数小于头数的2倍，请重输！": Exit Sub If n / m > 4 Then MsgBox "脚数大于头数的4倍，请重输！": Exit Sub Text4 = (n - 2 * m) / 2 Text3 = m - Val(Text4) End Sub