文件名称:鸡兔同笼程序设计(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
文件名称:鸡兔同笼程序设计(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