| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 2717 人关注过本帖
标题:Label1.Caption =...求两根这样写为何不对该怎么写?
只看楼主 加入收藏
yi157
Rank: 1
等 级:新手上路
帖 子:151
专家分:0
注 册:2008-6-3
收藏
 问题点数:0 回复次数:10 
Label1.Caption =...求两根这样写为何不对该怎么写?
请指教else:label1.caption=...哪里错了?
Private Sub Command1_Click()
a = Val(Text1): b = Val(Text2): c = Val(Text3)
p = b * b - 4 * a * c
If p < 0 Then
MsgBox ""b*b-4*a*c<0",请重新输入!", vbCritical '错误:缺少语句结束
Else: Label1.Caption = 1 / 2 * (-b + Sqr(p)) / a & "," & 1 / 2 * (-b - Sqr(p)) / a  '当 _
输入为空或全为零时出现溢出错误
End If
End Sub

[[it] 本帖最后由 yi157 于 2008-6-5 17:30 编辑 [/it]]

[[it] 本帖最后由 yi157 于 2008-6-6 14:39 编辑 [/it]]
搜索更多相关主题的帖子: MsgBox Val cIf 引号 Sub 
2008-06-05 12:50
随风逐流
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:passerby
等 级:版主
威 望:8
帖 子:4054
专家分:271
注 册:2007-6-13
收藏
得分:0 
MsgBox """b*b-4*a*c<0"",请重新输入!", vbCritical

[url=http://www./html/6/6694/]极道金丹[/url][url=http://www./html/2/2849/]九阴九阳[/url][url=http://www./html/2/2596/]凡人修仙传[/url]
2008-06-05 12:53
yi157
Rank: 1
等 级:新手上路
帖 子:151
专家分:0
注 册:2008-6-3
收藏
得分:0 
非常对
先说一声谢谢
但是太简单了啊,还请高手告诉我为什么是这样?而且下面还有个小问题
2008-06-05 14:54
随风逐流
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:passerby
等 级:版主
威 望:8
帖 子:4054
专家分:271
注 册:2007-6-13
收藏
得分:0 
你可以測試下
輸出引號
兩個才輸出一個

[url=http://www./html/6/6694/]极道金丹[/url][url=http://www./html/2/2849/]九阴九阳[/url][url=http://www./html/2/2596/]凡人修仙传[/url]
2008-06-05 15:03
yi157
Rank: 1
等 级:新手上路
帖 子:151
专家分:0
注 册:2008-6-3
收藏
得分:0 
哦,和c语言里%差不多啊谢谢啦
2008-06-05 17:07
hxfly
Rank: 5Rank: 5
等 级:贵宾
威 望:17
帖 子:5810
专家分:118
注 册:2005-4-7
收藏
得分:0 
双引号如果想欠套双引号,则需要把被欠套的每个双引号换成两个双引号、

2008-06-05 21:23
yi157
Rank: 1
等 级:新手上路
帖 子:151
专家分:0
注 册:2008-6-3
收藏
得分:0 
回复 6# hxfly 的帖子
谢谢
2008-06-06 14:38
yi157
Rank: 1
等 级:新手上路
帖 子:151
专家分:0
注 册:2008-6-3
收藏
得分:0 
看样子这题目是没谁能做出来了,可是我都觉得不是很难呀,只是暂时还不知道
2008-06-09 00:16
multiple1902
Rank: 8Rank: 8
等 级:贵宾
威 望:42
帖 子:4881
专家分:671
注 册:2007-2-9
收藏
得分:0 
处理一下输入为空或全为0时的情况,或者用On Error Resume Next让它先执行下去,如果出错则提示用户
2008-06-09 07:25
yi157
Rank: 1
等 级:新手上路
帖 子:151
专家分:0
注 册:2008-6-3
收藏
得分:0 
有道理,也只能这样了.谢谢
2008-06-11 10:33
快速回复:Label1.Caption =...求两根这样写为何不对该怎么写?
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.017364 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved