vb运行时，lable框的数字删除文件夹出错就出错

来源：蜘蛛抓取(WebSpider) 时间：2012-06-25 10:34 标签： vb出错
vb里，如何在运行工程后，在一个text控件里输入的数字写入到label里
vb里，如何在运行工程后，在一个text控件里输入的数字写入到label里
& & 并且退出关闭后，下次再打开，label里就显示之前在text控件里输入的数字
告诉我详细代码，我太菜了，完全不懂。
label1.cpation=text1.text 下次打开还有，就是用VB的文件系统操作了，或者用数据库。那个得专门学，
其他回答 (1)
创建个数据库
或者创建个XML
创建个txt文件
相关知识等待您来回答
编程领域专家vb中的lable caption属性的参数是什么，以下是我编的程序，可是他老是出现参数不可选错误_百度知道
vb中的lable caption属性的参数是什么，以下是我编的程序，可是他老是出现参数不可选错误
& x & &和& & yElseIf d = 0 Thenx = (-b + d ^ (1 &#47.Textb = Val.Caption = lable2;没有实根&quot.Caption = a * x ^ 2 + b * x + c = 0If d & 0 Thenx = (-b + d ^ (1 &#47.Caption & & 2)) &#47.Text1(0);的两实根为&lable2; (2 * a)lable2.Textd = b ^ 2 - 4 * a * clable2; 0 Thenx = &quot, d As Singlea = Val.Textc = V & xElseIf d &lt.Caption & & (2 * a)lable2; 2)) /的两相同实根为& 2)) &#47.Text1(0).Caption = lable2, b As Single.Caption = lable2; (2 * a)y = (-b + d ^ (1 &#47, c As Single.Text1(0)Private Sub Command1_Click()Dim a As Single
真的很急~~！，可还是错误424！！，或者直接把正确答案发过来多谢了！，而且我已经按下述方法改了急~~有没有哪位好心人给出答案啊
提问者采纳
Caption = Label2; 0 Thenx = (-b + d ^ (1 &#47，我帮你修改了.Text)c = Val(Text1(2); 2)) / (2 * a)Label2.Caption & xEnd IfEnd Sub 若还不能通过.Caption = Label2.Caption & &* x ^ 2 +&If d &和&* x + &Label2; 2)) / & x & &quot.Caption = Label2.Caption & & (2 * a)y = (-b - d ^ (1 / & xElseIf d &= 0&没有实根&quot.Text)d = b ^ 2 - 4 * a * cLabel2，我帮你看看;的两相同实根为& & c & &quot，我已调试完毕Private Sub Command1_Click()Dim a As S (2 * a)Label2, b As Single.Caption = a & & 2)) / & yElseIf d = 0 Thenx = (-b + d ^ (1 &#47，请把整个工程发给我里面好多错误啊, d As Singlea = Val(Text1(0); 0 Thenx = &quot.Text)b = Val(Text1(1);的两实根为& & b & &quot, c As Single，qw3
提问者评价
非常感谢~~我现在正在学vb，以前从没接触过编程，对很多变量呀、引号呀都不太清楚，再次谢谢你耐心的解答
其他类似问题
按默认排序
其他6条回答
的两相同实根为& & c & &的两实根为&a有可能为0 基于除数不能为零 还得加个限制条件x = (-b + d ^ (1 / (2 * a)Label2; & xElseIf d & 0 Thenx = (-b + d ^ (1 /textbox数组控件 下标应该是不相同的赋值给不同变量c = Val(Text1(2).Caption = Label2;Label2;& 2)) &#47.Caption = Label2.Caption & &val函数 括号b = Val(Text1(1);没有实根&quot.Caption & & & b & & * x + &&控件名拼写错误 字符串得用双引号If d &gt.Text) ' (2 * a)y = (-b + d ^ (1 / 0 Thenx = &和& * x ^ 2 + &quot.Caption = Label2, d As Singlea = Val(Text1(0).Text)d = b ^ 2 - 4 * a * cLabel2; (2 * a)Label2; 2)) / 0 And a & = 0& 2)) / & x & &quot.Text) ' & yElseIf d = 0 And a &lt, b As S 0 Then ' &#39, c As Single.Caption = a & &quotPrivate Sub Command1_Click()Dim a As Single
非常感谢你细致耐心的回答，我已经按你说的改了可还是错误424
控件名你对上了没啊？
对上了，非常郁闷，还是错误424，还有一个问题请教，我输入了x=ab想用print输出x的值，即ab该怎么输
Text1(0).Text 有3个数组控件 你都对上啦？x=a* b
lable.caption 是String 属性的。 如果要把int 转换成String 推荐用CStr. 例如：dim a as Integer(or Long).Lable2.Caption = CStr(a); 不过看你的用法 有可能出现小数点后好几位的情况。如果直接用CStr的话 可能会按照 科学计数法按换算。例如：Dim a as Singlea = 0.000001; // 这个也等于 a = 10 E-06;如果直接CStr。Lable2.Caption = CStr(a) //结果是 10E-06 而不是 0.000001.所以你可以直接用&&&.Lable2.Caption = &a.另外&lable2.Caption = a * x ^ 2 + b * x + c = 0& 为什么这样写。。。。
你解释下这一句你想干什么？lable2.Caption = a * x ^ 2 + b * x + c = 0用两次等号，不出错才怪。
就是想在标签框中显示ax^2+bx+c=0
那你就得加引号，写成label2.Caption =& a * x ^ 2 + b * x + c = 0&你这样写就成了表达式了。另外，你的上面几个句子应该写成a = Val(Text1(0).Text)
大概看一下,应该是部分格式和函数出错了.首先,Val函数后面要用括号;其次,标签label属性,在代码中你写成了lable...还有,代码中多次出现text1(0),你写的控件数组可能不对..
应该是字符串要用“”扩起来
我知道扩起来，可是扩起来变成了错误424，还是不行啊
加上前后引号，没了
caption的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁VB程序的调试_修正稿_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
评价文档：
36页免费36页免费25页免费3页¥2.0057页免费6页免费6页免费3页免费31页1下载券15页2下载券
喜欢此文档的还喜欢11页免费36页免费23页1下载券3页免费1页免费
VB程序的调试_修正稿|
把文档贴到Blog、BBS或个人站等：
普通尺寸(450*500pix)
较大尺寸(630*500pix)
你可能喜欢VB初学者,附例子_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
文档贡献者贡献于
评价文档：
21页免费21页免费297页免费4页免费7页免费15页免费10页免费7页免费7页免费6页免费
喜欢此文档的还喜欢34页1下载券208页2下载券10页免费9页1下载券16页1下载券
VB初学者,附例子|v​b​的​教​程​和​p​p​t
把文档贴到Blog、BBS或个人站等：
普通尺寸(450*500pix)
较大尺寸(630*500pix)
大小：2.67MB
登录百度文库，专享文档复制特权，财富值每天免费拿！
你可能喜欢如何用VB实现每隔一秒在label里出现一个0到9的随机数_百度知道
如何用VB实现每隔一秒在label里出现一个0到9的随机数
如题：：如何用VB实现每隔一秒在label里出现一个0到9的随机数
提问者采纳
打开VB，在窗体里添加Label1和时间控件Timer1,双击窗体在代码框中输入：Private 俯穿碘费鄢渡碉杀冬辑Sub Form_Load()Label1.Caption = 0Timer1.Interval = 1000End SubPrivate Sub Timer1_Timer()Dim strRndRandomizestrRnd = 10 * RndLabel1.Caption = Int(strRnd)End SubF5运行，察看
提问者评价
如何打它们加起来
其他类似问题
按默认排序
其他1条回答
Timer1的Interval设为1000,代码如下:Private Sub Timer1_Timer()RandomizeLab俯穿碘费鄢渡碉杀冬辑el1.Caption = Int(Rnd * 10)End Sub
随机数的相关知识
您可能关注的推广
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁

我要回帖

更多关于 vb出错 的文章

 

随机推荐