yi157 发表于 2008-6-5 12:50

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]]

随风逐流 发表于 2008-6-5 12:53

MsgBox """b*b-4*a*c<0"",请重新输入!", vbCritical

yi157 发表于 2008-6-5 14:54

非常对

先说一声谢谢
但是太简单了啊,还请高手告诉我为什么是这样?而且下面还有个小问题

随风逐流 发表于 2008-6-5 15:03

你可以測試下
輸出引號
兩個才輸出一個

yi157 发表于 2008-6-5 17:07

哦,和c语言里%差不多啊谢谢啦

hxfly 发表于 2008-6-5 21:23

双引号如果想欠套双引号，则需要把被欠套的每个双引号换成两个双引号、

yi157 发表于 2008-6-6 14:38

回复 6# hxfly 的帖子

谢谢

yi157 发表于 2008-6-9 00:16

看样子这题目是没谁能做出来了,可是我都觉得不是很难呀,只是暂时还不知道

multiple1902 发表于 2008-6-9 07:25

处理一下输入为空或全为0时的情况，或者用On Error Resume Next让它先执行下去，如果出错则提示用户

yi157 发表于 2008-6-11 10:33

有道理,也只能这样了.谢谢

jxyga111 发表于 2008-6-11 10:46

調試一下啊

页: [1]

编程论坛