主题：[原创]关于QB一个小问题
tjszl1
[专家分：0] 发布于 2007-02-02 20:41:00
想用情况语句写一个解一元二次方程的程式,看清楚了.要全用.情况语句,程式中不能有行IF语句和块IF语句,希望高手能把程序写在回的帖子中,十分感谢.
回复列表 （共9个回复）
沙发
moz [专家分：37620] 发布于 2007-02-03 21:20:00
1. 不懂什么叫情况语句.
2. IF 可以用 selce case 代替.
板凳
tjszl1 [专家分：0] 发布于 2007-02-03 21:40:00
情况语句就是select case 测试表达式
case 值一
case 值二
这就是情况语句
3 楼
moz [专家分：37620] 发布于 2007-02-04 18:31:00
我不记得公式了, B*B-4*A*C 又要开根号又要除4怎么的,
4 楼
苍穹潇潇雨 [专家分：0] 发布于 2007-02-08 12:36:00
LET p=b^2-4*a*c
IF p<0 THEN END
x1=(-b+SQR(p))/(2*a)
x2=(-b-SQR(p))/(2*a)
PRINT "x1=";x1,"x2=";x2
END
5 楼
苍穹潇潇雨 [专家分：0] 发布于 2007-02-08 12:38:00
偶就知道这个,还有别的么?
6 楼
tjszl1 [专家分：0] 发布于 2007-02-09 19:58:00
[quote]LET p=b^2-4*a*c
IF p<0 THEN END
x1=(-b+SQR(p))/(2*a)
x2=(-b-SQR(p))/(2*a)
PRINT "x1=";x1,"x2=";x2
END[/quote]
非常感谢你的回答.不过请你再看一遍题.我说了不能有条件语句的.你用了行IF语句.这我也知道.
7 楼
verdi258123 [专家分：210] 发布于 2007-02-13 16:07:00
LET p=b^2-4*a*c
Select case p
case is<0
End
case is >=0
x1=(-b+SQR(p))/(2*a)
x2=(-b-SQR(p))/(2*a)
PRINT "x1=";x1,"x2=";x2
End select
8 楼
tjszl1 [专家分：0] 发布于 2007-02-15 23:05:00
[quote]LET p=b^2-4*a*c
Select case p
case is<0
End
case is >=0
x1=(-b+SQR(p))/(2*a)
x2=(-b-SQR(p))/(2*a)
PRINT "x1=";x1,"x2=";x2
End select[/quote]高人!谢谢,我只是不知道case 后面还可以用is,现在知道了.哈哈
9 楼
moz [专家分：37620] 发布于 2007-02-16 04:11:00
你可以不用的,系统会自动添加 IS 的
我来回复
您所在位置：