vb鸡兔同笼代码(鸡兔同笼vb程序编写)
鸡兔同笼的vb代码怎么写啊？
Private Sub Command1_Click()
Dim a, b, m, n As Integer ? ? ? '鸡为a,兔为b,鸡兔总数为m,鸡兔脚数为n
For b = 1 To m
a = m - b
If 2 * a + 4 * b = n Then
Print "鸡=" a ",兔=" b
End If
Next b
End Sub
Visual Basic是一种由微软公司开发的包含协助开发环境的事件驱动编程语言。从任何标准来说，VB都是世界上使用人数最多的语言——不仅是盛赞VB的开发者还是抱怨VB的开发者的数量。它源自于BASIC编程语言。VB拥有图形用户界面（GUI）和快速应用程序开发（RAD）系统，可以轻易的使用DAO、RDO、ADO连接数据库，或者轻松的创建ActiveX控件。程序员可以轻松的使用VB提供的组件快速建立一个应用程序。
用vb编写鸡兔同笼，头有35，脚有94计算鸡兔各多少只
private
sub
form_load()
on
error
resume
next
dim
m,
n
as
integer
'//定义总数量和总脚量
dim
c,
r
as
integer
'//定义鸡和兔的数量
m
=
inputbox("请输入鸡兔总数量:",
"鸡兔同笼")
n
=
inputbox("请输入鸡兔总脚数:",
"鸡兔同笼")
'//数学知识
'//用二元一次方程
'//c
+
r
=
m
(c为鸡的数量,r为兔的数量)
'//2c
+
4r
=
n
'//所以:
c=(4m-n)/2
,
r=m-c
c
=
(4
*
m
-
n)
/
2
r
=
m
-
c
msgbox
"鸡的数量为:"
c
space(1)
"兔的数量为:"
r,
vbinformation,
"计算结果"
end
end
sub
怎么用VB编写鸡兔同笼问题的代码，按下面图片中的要求写
Private Sub Command1_Click()
Dim H As Integer '头总数
Dim F As Integer '脚总数
Dim C As Integer '鸡
Dim R As Integer '兔
H = Val(Text1.Text)
F = Val(Text2.Text)
If F Mod 2 = 0 Then
For C = 0 To H
For R = 0 To H
If C * 2 + R * 4 = F Then _
Label3.Caption = Label3.Caption _
"鸡：" C "只；" "兔：" R "只" vbCrLf
Next
Next
Else
MsgBox "总脚数必需为偶数！"
End If
End Sub
'因为存在多组答案，Label3高度要留得大一些。
鸡兔同笼问题vb代码private形式
建立两个textbox控件用于输入头和脚的数量，两个label控件，用于显示鸡和兔的数量
一个按钮command控件
Private Sub Command1_Click()
tou = Val(Text1.Text)
jiao = Val(Text2.Text)
For tu = 0 To tou
ji = tou - tu
jijiao = ji * 2
tujiao = tu * 4
If jiao = jijiao + tujiao Then
Label5.Caption = Str(ji)
Label6.Caption = Str(tu)
End If
Next
End Sub
关于VB程序设计【鸡兔同笼】
Private Sub Command1_Click()
Dim j As Integer '代表鸡的个数
Dim t As Integer ’代表兔的个数
Dim t1 As Integer '腿的个数
For j = 1 To 40
t = 40 - j
t1 = j * 2 + t * 4
If t1 = 100 Then
Print "鸡="; j; "只"; "兔="; t; "只"
End If
Next
End Sub