小弟刚刚学VB。在编写一个关于鸡兔问题就遇到麻烦。
已知条件给出了鸡兔的总头数为H,鸡兔的总脚数为F,
问鸡兔个多少只?
程序代码如下
Private Sub Form_click()
msg1$ = "输入f"
msg2$ = "输入h"
msg3$ = "鸡兔同笼问题"
jiao$ = InputBox(msg1$, msg3$)
tou$ = InputBox(msg2$, msg3$)
Print x = (4 * h - f) / 2, y = (f - 2 * h) / 2;
End Sub
输出的结果总是两个True.请高手给小弟看看。出错在什么地方??

解决方案 »

  1.   

    Print (4 * h - f) / 2, (f - 2 * h) / 2
      

  2.   

    MSGBOX (4 * h - f) / 2 & "," &  (f - 2 * h) / 2
      

  3.   

    F = InputBox(msg1$, msg3$)
    H = InputBox(msg2$, msg3$)
      

  4.   

    msg1$ = "输入f"
    msg2$ = "输入h"
    msg3$ = "鸡兔同笼问题"
    f = InputBox(msg1$, msg3$)
    h = InputBox(msg2$, msg3$)
    Print "鸡有" & (4 * h - f) / 2 & "只, 兔有" & (f - 2 * h) / 2 & "只"