用vb编写鸡兔同笼问题(鸡兔同笼问题的编程c++语言)
vb解决鸡兔同笼问题
窗体设计可以按照我的截图!控件就不说了!很简单!添加控件后直接把代码复制进去就行了!
代码如下:'判断数据是否是整数!
Public?Function?isInt(s?As?String)?As?Boolean
If?CStr(CInt(Val(s)))?=?s?Then
isInt?=?True
Else
isInt?=?False
End?If
End?Function
'根据头数和脚数求解兔子的数量的方程
Public?Function?Solv(head?As?Integer,?foot?As?Integer)?As?Integer
Dim?Rabit?As?Integer
Rabit?=?(foot?-?head?*?2)?/?2
Solv?=?Rabit
End?Function
Private?Sub?Command1_Click()
Dim?err?As?String,?OK?As?String
Dim?h_num?As?Integer,?f_num?As?Integer
If?isInt(Text1.Text)?Then
h_num?=?CInt(Text1.Text)
Else
err?=?err?+?"头数不是正整数!"
End?If
If?isInt(Text2.Text)?Then
f_num?=?CInt(Text2.Text)
Else
err?=?err?+?"脚数不是正整数!"
End?If
If?err?=?""?Then
OK?=?OK??"兔子数量为:"??CStr(Solv(h_num,?f_num))??vbCrLf
OK?=?OK??"鸡的数量为:"??CStr(h_num?-?Solv(h_num,?f_num))??vbCrLf
MsgBox?OK,?vbOKOnly,?"结果显示"
Else
MsgBox?err,?vbOKOnly,?"出错了"
End?If
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 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
鸡兔同笼的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提供的组件快速建立一个应用程序。