请指教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 """b*b-4*a*c<0"",请重新输入!", vbCritical

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

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

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

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

谢谢

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

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

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