【文件属性】:
文件名称:鸡兔同笼程序设计(vb)
文件大小:182B
文件格式:TXT
更新时间:2014-06-11 07:42:35
鸡兔同笼
Dim x As Long, y As Long, a As Long, b As Long
a = InputBox("输入头数")
b = InputBox("输入脚数")
x = 2 * a - b / 2
y = b / 2 - a
Print "鸡的只数="; x
Print "兔的只数="; y