论坛: 编程破解 标题: 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

论坛: 编程破解

20CN网络安全小组版权所有
Copyright © 2000-2010 20CN Security Group. All Rights Reserved.
论坛程序编写:NetDemon

粤ICP备05087286号