20CN网络安全小组论坛 - 编程破解

论坛: 编程破解标题: vb的问题

作者: dick4067 [dick4067]

论坛用户

大家好！我是刚学vb的菜鸟！我刚刚学编小程序，但有一点问题不懂
我编的程序是
题目：y=(f-2*h)/2 x=(4*h-f)/2    按上式编写程序，用inputbox函数输入h和f的值，设h=71 ，f=158。
我编的是这样
    private sub form-click()
    y=(f-2*h)/2
    x=(4*h-f)/2
    msg1$="h="
    msg2$="f="
   msgtitle$="鸡兔同笼计算“
   tn1$=inputbox(msg1$,msgtitle$)
   tn2$=inputbox(msg2$,msgtitle$)
   cls
   print tn1$;",";tn2$;
   print x;y
  end sub
请问错在那里

地主发表时间: 10/23 20:43

回复: blindeaf [blindeaf]

论坛用户

private sub form-click()
    msg1$="h="
    msg2$="f="
   msgtitle$="鸡兔同笼计算“
   f=inputbox(msg1$,msgtitle$)
   h=inputbox(msg2$,msgtitle$)
   cls
y=(f-2*h)/2
x=(4*h-f)/2
print f;",";h;
print x;y
end sub

由于我机子VB还没装，不能试。不过我想可能是这样。你试试。

B1层发表时间: 10/23 20:52

回复: quake [quake]

论坛用户

可能是类型转换问题吧！

B2层发表时间: 10/24 10:29

回复: blindeaf [blindeaf]

论坛用户

VB里面好像不要类型转换吧。

B3层发表时间: 10/24 13:31

回复: caoshuang [caoshuang]

论坛用户

好象要类型转换吧！

B4层发表时间: 11/01 16:09

回复: iexist [iexist]

论坛用户

private sub form-click()
  y=(f-2*h)/2  'h 它得到你输入的数值吗?
    x=(4*h-f)/2   'f -------------------
    msg1$="h="
    msg2$="f="
   msgtitle$="鸡兔同笼计算“
   tn1$=inputbox(msg1$,msgtitle$)
   tn2$=inputbox(msg2$,msgtitle$)
   cls
   print tn1$;",";tn2$;
   print x;y
  end sub
在程序中加h = tn1$
           f = tn2$  就ok
或直接用h = inputbox(msg1$,msgtitle$)
        f = inputbox(msg2$,msgtitle$)

B5层发表时间: 11/02 10:02

回复: kikiny [kikiny]

论坛用户

你试试以下程序吧！！
Public X As Integer
Public Y As Integer
Public Tn1 As Integer
Public Tn2 As Integer
Const msg1 = "请输入鸡兔个数h="
Const msg2 = "请输入鸡兔脚个数f="
Const msgtitle = "鸡兔同笼计算"
Private Sub Form_Click()
    On Err GoTo theerr
    Tn1 = Val(InputBox(msg1, msgtitle))
    Tn2 = Val(InputBox(msg2, msgtitle))
    Form1.Cls
    Y = (4 * Tn1 - Tn2) / 2
    X = (Tn2 - 2 * Tn1) / 2
    Print "鸡兔个数h=" & Tn1 & "," & "鸡兔脚数h=" & Tn2
    Print "兔个数X=" & X & "," & "鸡个数Y=" & Y

theerr:
Exit Sub

End Sub

B6层发表时间: 11/03 20:40

论坛: 编程破解