网页资讯视频图片知道文库贴吧地图采购
进入贴吧全吧搜索
vb吧 关注：156,102贴子：1,166,186
  • 5回复贴，共1页

急求纠正代码，鸡兔同笼



Private Sub Command1_Click()
For a = 1 To Val(Text1)
For b = 1 To Val(Text2)
If Val(Text1) = a + b And Val(Text2) = 2 * a + 4 * b Then
Text3 = a: Text4 = b
End If
Next
Next
End Sub
Private Sub Text1_LostFocus()
If IsNumeric(Val(Text1)) <> True Then
MsgBox "输入的不是数字", vbOKOnly, "错误"
Text1.SetFocus
Text1 = ""
End If
If Val(Text1) <= 0 And Val(Text1) <> Int(Val(Text1)) Then
MsgBox "请输入正整数", vbOKOnly, "错误"
Text1 = ""
Text1.SetFocus
End If
End Sub
Private Sub Text2_LostFocus()
If Val(Text2) Mod 2 <> 0 Then
MsgBox "输入的不是偶数", vbOKOnly, "错误"
Text2 = ""
Text2.SetFocus
End If
End Sub


2025-07-27 14:24:21
广告
不感兴趣
开通SVIP免广告
IsNumeric(Val(Text1))这个就已经转换为数值了，所以应该删除val
计算方法一个循环就可以了，。打个比方就是共10头，一个4头，另一个就是10-4头。


楼上思路不错


'　鸡 x 只，兔 y 只，共有 a 只、脚 b 个。
'　x + y = a　　　　　①
'　2 x + 4 y = b　　　②
'　①×4 - ② 得：2 x = 4 a - b ；
'　x = 2 * a - b / 2；y = a - x 。
Option Explicit
Dim a, b, x, y, C
a = InputBox("鸡兔的只数：", "输入数量", 20)
b = InputBox("鸡兔的脚数：", "输入脚数", 50)
x = 2 * a - b / 2 : y = a - x : C = ""
C = "鸡兔的只数是：" & CStr(a) & " ；"
C = C & "鸡兔的脚数是：" & CStr(b) & " ；"
C = C & vbCrLf & vbCrLf
C = C & "鸡的数量是：" & CStr(x) & " ；"
C = C & "兔的数量是：" & CStr(y) & " 。"
C = C & vbCrLf
If b Mod 2 = 1 Then
C = C & vbCrLf & "鸡兔的脚数不能是单数。"
End If
If x > a Then
C = C & vbCrLf & "鸡的数量超过了总数。"
End If
If y > a Then
C = C & vbCrLf & "兔的数量超过了总数。"
End If
If x < 0 Then
C = C & vbCrLf & "鸡兔的脚数太大。"
End If
If y < 0 Then
C = C & vbCrLf & "鸡兔的脚数太小。"
End If
MsgBox C, 0 + 64, "计算结果 "


我认为这样，输入的头数×2，然后把脚数减去(头数×2)，这样剩下的脚数，除以2，就是兔子数量，然后再用总数减去兔数就是鸡数。 我这个套路是这样:让所有动物抬起两只脚，鸡就摔地上了，兔子们两只脚站着，所以就可以算出兔子数量，然后从而算出鸡的数量


扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频！
  • 5回复贴，共1页
分享到: