VB程序设计
我设计了一个鸡兔同笼的小程序，但是设计好了以后没法用，我又找不出原因，哪位高手帮我检查下，顺便修改。实在不行，帮帮忙，帮我写一个，感激不尽~~~
Private Sub Form_Load()
Form1.Caption = "鸡兔同笼"
Label1.Caption = "请在下面输入鸡兔总头数和鸡兔总脚数"
Label2.Caption = "鸡兔总头数"
Label3.Caption = "鸡兔总脚数"
Label4.Caption = "鸡数(只)"
Label5.Caption = "兔数(只)"
Command1.Caption = "计 算"
End Sub
Private Sub Command_Click()
Dim inth As Integer, intf As Integer, intx As Integer, inty As Integer
inth = Text1.Text
intf = Text2.Text
intx = (4 * inth - intf) / 2
inty = (intf - 2 * inth) / 2
Text3.Text = intx
Text4.Text = inty
End Sub
答案：1、代码如下： Private Sub Command1_Click()
Dim inth As Integer, intf As Integer, intx As Integer, inty As Integer
inth = Text1.Text
intf = Text2.Text
intx = (4 * inth - intf) / 2
inty = (intf - 2 * inth) / 2
Text3.Text = intx
Text4.Text = inty
End Sub
Private Sub Form_Load()
Form1.Caption = "鸡兔同笼"
Label1.Caption = "请在下面输入鸡兔总头数和鸡兔总脚数"
Label2.Caption = "鸡兔总头数"
Label3.Caption = "鸡兔总脚数"
Label4.Caption = "鸡数(只)"
Label5.Caption = "兔数(只)"
Command1.Caption = "计 算"
End Sub
2、相关链接：
| 孙子巧解“鸡兔同笼” |
|
|
|
|
|
|
|
大约在一千五百年前，大数学家孙子在《孙子算经》中记载了这样的一道题：“今有雏兔同笼，上有三十五头，下有九十四足，问雏兔各几何？”这四句的意思就是：有若干只鸡和兔在同一个笼子里，从上面数，有三十五个头；从下面数，有九十四只脚。求笼中各有几只鸡和兔？同学们，你会解答这个问题吗？你知道孙子是如何解答这个“鸡兔同笼”问题的？ 原来孙子提出了大胆的设想。他假设砍去每只鸡、每只兔一半的脚，则每只鸡就变成了“独脚鸡”，而每只兔就变成了“双脚兔”。这样，“独脚鸡”和“双脚兔”的脚就由94只变成了47只；而每只“鸡”的头数与脚数之比变为1：1，每只“兔”的头数与脚数之比变为1：2。由此可知，有一只“双脚兔”，脚的数量就会比头的数量多1。所以，“独脚鸡”和“双脚兔”的脚的数量与他们的头的数量之差，就是兔子的只数，即：47－35=12（只）；鸡的数量就是：35－12=23（只）。 当然，这道题还可以用方程来解答。我们可以先设兔的只数（也就是头数）是x,因为“鸡头+兔头=35”，所以“鸡头=35-x”。由此可知，有x只兔，应该有4x只兔脚，而鸡的只数是（35－x）,所以应该有2×（35－x）只鸡脚。现在已知鸡兔的脚总共是94只，因此，我们可以列出下面的关系式： 4x+2×(35－x)=94 x=12 于是可以算出鸡的只数是35-12=23。 还有一道这样的题：“100个和尚吃100个馒头。大和尚一人吃3个，小和尚3人吃一个。求大、小和尚各多少个？”它的答案是大和尚有25个，小和尚有75个。你知道是怎样算的吗？ |
int(变量)
要加括号的
Private Sub Command_Click()这一句里出了问题,应该是Private Sub Command1_Click(),你把按钮名少写了一个1
上一个：VB高手来一下
下一个：vb程序设计教程
