急求VB选择结构编程问题!
来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/08/27 14:02:01
急求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