作业帮 > 综合 > 作业

vb编程,鸡兔同笼的数学题

来源:学生作业帮 编辑:搜搜考试网作业帮 分类:综合作业 时间:2024/06/25 13:03:08
vb编程,鸡兔同笼的数学题
vb编程,鸡兔同笼的数学题
编成二元一次方程组就可以了吧……
去看看二元一次方程组编写的方法
再问: 具体程序
再答: 给你搜了一下: Private Sub Command1_Click() a1 = Val(Text1) b1 = Val(Text2) c1 = Val(Text3) a2 = Val(Text4) b2 = Val(Text5) c2 = Val(Text6) D = (a1 * b2) - (b1 * a2) s1 = (c1 * b2) - (b1 * c2) s2 = (a1 * c2) - (c1 * a2) If D 0 Then x = s1 / D y = s2 / D Text7 = x Text8 = y Else Text7 = "方程无解,或有无穷多解" Text8 = "" End If End Sub