急求VB选择结构编程问题!

学习 时间:2026-04-04 20:29:17 阅读:2005
急求VB选择结构编程问题!计算“鸡兔同笼问题”.即在同一个笼子里鸡和兔的总数为m只,鸡和兔的总的脚数为n条,求鸡和兔各有多少只?要求脚数为偶数;脚数不小于总数的2倍;脚数不大于总数的4倍PS:运行后如下图.

最佳回答

多情的草丛

外向的蜜粉

2026-04-04 20:29:17

1、写出方程式就可以实现了。兔子数=(n-2m)/22、关于输入限制,添加一个验证即可,可以在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

最新回答共有2条回答

  • 糊涂的方盒
    回复
    2026-04-04 20:29:17

    1、写出方程式就可以实现了。兔子数=(n-2m)/22、关于输入限制,添加一个验证即可,可以在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 4 Then MsgBox "脚数大于头数的4倍,请重输!": Exit Sub Text4 = (n - 2 * m) / 2 Text3 = m - Val(Text4) End Sub

上一篇 可以用固有频率为50Hz的LC振荡电路制成逆变器吗?

下一篇 春雪 韩愈 拟人画地表达出春雪善解人意和富有情趣的词是