Private Sub Command1_Click()
a = InputBox("a=", "输入头数")
b = InputBox("b=", "输入脚数")
x = 2 * a - b / 2
y = b / 2 - a
Print "鸡数 x="; x, "兔数 y="; y
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Command3_Click()
Cls
End Sub
Private Sub Form_Load()
End Sub