Question

用VB解决鸡兔同笼问题的步骤

一步一步来，像打开什么文件也要

Answer 1

private Sub command1_Click()
Dim Feet,Head,Ji,Tu as interger
Input1:
Feet=InputBox("输入脚数",,"")
Head=InputBox("输入头数",,"")
Tu=Feet/2 - Head
Ji=Head - Tu
If (Ji < 0) Or (Tu < 0) then
MsgBox "输入错误"
Goto Input1:
Else
Open App.Path & "\answer.txt" For Append As #1
Print #1, "鸡="; Ji, "兔="; Tu
Close #1
End if
End Sub
先添加一个command1按钮控件，弄完之后保存在程序目录下的answer.txt文件中
如果要健壮性，辨别错误输入就更麻烦了，需要的话我再写

Answer 2

Private Sub Command1_Click()
Dim h As Integer, f As Integer
h = Val(InputBox("鸡和兔的总头数", "请输入", 0))
f = Val(InputBox("鸡和兔的总脚数（偶数）", "请输入", 0))
x = (4 * h - f) / 2
y = (f - 2 * h) / 2
Label2.Caption = " 设笼中鸡和兔的总头数为" & h & ",总脚数为" & f & "。"
Label3.Caption = " 则笼中鸡有" & x & "只，兔有" & y & "只。"
End Sub

追问

Private Sub Command1_Click()这句话哪里来的

追答

添加一个Command按钮，双击他打开代码窗口就有了。

追问

Label2.Caption = " 设笼中鸡和兔的总头数为" & h & ",总脚数为" & f & "。"这句话有问题

追答

原本窗体上以仅有一个label标签了，所以会错误
你把代码改成
Private Sub Command1_Click()
Dim h As Integer, f As Integer
h = Val(InputBox("鸡和兔的总头数", "请输入", 0))
f = Val(InputBox("鸡和兔的总脚数（偶数）", "请输入", 0))
x = (4 * h - f) / 2
y = (f - 2 * h) / 2
Label1.Caption = " 设笼中鸡和兔的总头数为" & h & ",总脚数为" & f & "。"
Label2.Caption = " 则笼中鸡有" & x & "只，兔有" & y & "只。"
End Sub
就可以了

追问

你自己试一下还是不行

追答

我试过了是可以的,你是不是直接复制全部代码的？这样Private Sub Command1_Click()h和End Sub 就会出现重复，那就删掉一行，只要剩下一行就可以了，也就是说只要复制
Dim h As Integer, f As Integer
h = Val(InputBox("鸡和兔的总头数", "请输入", 0))
f = Val(InputBox("鸡和兔的总脚数（偶数）", "请输入", 0))
x = (4 * h - f) / 2
y = (f - 2 * h) / 2
Label1.Caption = " 设笼中鸡和兔的总头数为" & h & ",总脚数为" & f & "。"
Label2.Caption = " 则笼中鸡有" & x & "只，兔有" & y & "只。"

还有一种可能，就是你没添加label标签。

Answer 3

Private Sub btnProsse_Click()
Dim intHead As Integer
Dim intFeet As Integer
intHead = Int(tbHead.Text)
intFeet = Int(tbFeet.Text)

Dim Ji As Integer
Dim Tu As Integer

Ji = intFeet / 2 - intHead
Tu = intHead - Ji

Open "C:\123.txt" For Append As #1

Print #1, "鸡="; Ji, "兔="; Tu

Close #1

End Sub